15-10-18, 02:35 PM
اخوان ممكن مساعده مستعجله عملت نظام وشغال تمام بس المشكله عندي نقص بكود الحفظ
اريد من احفظ قيد اذا كان بيانات حقل التكيست 5 موجود مسبقا مايحفظ يعرض رساله وذا غير موجود يحفظ القيد وهذا كود الخزن
جربت كود بحث بس المشكله ما اعرف اذا رجعت قيمه da اشلون اتعامل وياهاوهذا التعديل الي سويته على الكود بس ما عاعرف القيمه الي ترجع اشلون اتعامل ويايها
اريد من احفظ قيد اذا كان بيانات حقل التكيست 5 موجود مسبقا مايحفظ يعرض رساله وذا غير موجود يحفظ القيد وهذا كود الخزن
كود :
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
dataconnection()
TextBox15.Text = DateTime.Now
TextBox14.Text = My.Computer.Name.ToString()
cmd.Connection = cnn
cmd.CommandText = "INSERT INTO [info] " & _
"([name],[department],[dgree],[pagn],[typepag],[typegan],[ngan],[unti],[datauser],[dateuser]) VALUES" & _
"('" & TextBox1.Text & "','" & ComboBox1.Text & "','" & ComboBox5.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & ComboBox6.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox14.Text & "','" & TextBox15.Text & "')"
cmd.ExecuteNonQuery()
cnn.Close()
clear1()
End Sub
كود :
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
dataconnection()
TextBox15.Text = DateTime.Now
TextBox14.Text = My.Computer.Name.ToString()
cmd.Connection = cnn
Dim da As New OleDb.OleDbDataAdapter("SELECT * From info where ngan like '%" & TextBox5.Text & "%'", cnn)
اذا رجعت da قيد اشلون راح اتعامل وياه هنا مشكلتي
cmd.CommandText = "INSERT INTO [info] " & _
"([name],[department],[dgree],[pagn],[typepag],[typegan],[ngan],[unti],[datauser],[dateuser]) VALUES" & _
"('" & TextBox1.Text & "','" & ComboBox1.Text & "','" & ComboBox5.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & ComboBox6.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox14.Text & "','" & TextBox15.Text & "')"
cmd.ExecuteNonQuery()
cnn.Close()
clear1()
End Sub