20-12-15, 11:27 PM
جرب هاد التعديل وخبرني
كود :
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=D:\My Apps\HassanPro\HassanPro\DataB\Database1.mdf;Integrated Security=True;User Instance=True")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
textboxAutoCompte(TextBox1)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text.Trim = "" Or TextBox2.Text.Trim = "" Then
MsgBox("برجاء ادخل جميع البيانات", MsgBoxStyle.Exclamation, "خطاء")
TextBox1.Select()
Exit Sub
End If
Dim tbl As New DataTable
Dim daa As New SqlDataAdapter("select * from Company where (CompanyName=@cname) ", con)
daa.SelectCommand.Parameters.AddWithValue("@cname", TextBox1.Text)
daa.Fill(tbl)
If tbl.Rows.Count > 0 Then
Dim msgReturnValue As MsgBoxResult = MsgBox("عفوأ الاسم الشركة او كود الشركة موجود ! هل تريد تعديل ام لا ؟", MsgBoxStyle.YesNo)
If msgReturnValue = MsgBoxResult.Yes Then
Dim cmdUpdate As New SqlCommand("UPDATE Company SET CompanyCode=@ccode WHERE (CompanyName=@cname)", con)
cmdUpdate.Parameters.AddWithValue("@ccode", TextBox2.Text)
cmdUpdate.Parameters.AddWithValue("@cname", TextBox1.Text)
If Not ConnectionState.Open Then con.Open()
Dim retUpdate As Integer = cmdUpdate.ExecuteNonQuery
con.Close()
If retUpdate > 0 Then
MsgBox("تم التعديل بنجاح", MsgBoxStyle.Exclamation, "HassanPro")
End If
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Select()
Exit Sub
Else
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Select()
Exit Sub
End If
Else
Dim cmdInsert As New SqlCommand("insert into Company (CompanyName, CompanyCode) values (@cname, @ccode)", con)
cmdInsert.Parameters.AddWithValue("@cname", TextBox1.Text)
cmdInsert.Parameters.AddWithValue("@ccode", TextBox2.Text)
If Not ConnectionState.Open Then con.Open()
Dim retInsert As Integer = cmdInsert.ExecuteNonQuery
con.Close()
If retInsert > 0 Then
MsgBox("تم الاضافة بنجاح", MsgBoxStyle.Exclamation, "HassanPro")
textboxAutoCompte(TextBox1)
End If
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Select()
End If
End Sub
Sub textboxAutoCompte(ByVal tb As TextBox)
Dim dt As New DataTable
Dim ret As Integer = New SqlDataAdapter("Select CompanyName From Company", con).Fill(dt)
Dim MySource As New AutoCompleteStringCollection()
For Each s In dt.AsEnumerable.Cast(Of DataRow).Select(Function(r) r("CompanyName")).ToArray()
MySource.Add(s)
Next
With tb
.AutoCompleteCustomSource = MySource
.AutoCompleteMode = AutoCompleteMode.SuggestAppend
.AutoCompleteSource = AutoCompleteSource.CustomSource
End With
End Sub
