Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Dim StrSQL As String = "UPDATE DB_DB SET DB_PCNUM='" & Textserpc.Text & "', DB_XPNUM='" & Textserxp.Text & "' Where DB_SERNUM='" & Textsernum.Text & "'" Dim da As New SqlDataAdapter(StrSQL, conn) Dim dt1 As New DataTable da.Fill(dt1) MsgBox("تم الحفظ") End Sub
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
(18-11-19, 05:44 AM)asemshahen5 كتب : هذا كود زر العديل :
PHP كود :
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Dim StrSQL As String = "UPDATE DB_DB SET DB_PCNUM='" & Textserpc.Text & "', DB_XPNUM='" & Textserxp.Text & "' Where DB_SERNUM='" & Textsernum.Text & "'" Dim da As New SqlDataAdapter(StrSQL, conn) Dim dt1 As New DataTable da.Fill(dt1) MsgBox("تم الحفظ") End Sub
كل الشكر لك اخي عاصم واخر سؤال و اوعدك ان يكون اخر سؤال لي بالمنتدي وبعد ذلك سوف اتفرغ لي مساعدت الاخرين
اذا كان لدي تسكت بوكس علي الفورم اريد عند وضع شئ به يستعلم عنه في الجدول الاول DB_SERNUM اذا كان موجود يعمل سيلكت علي الصف كامل و اذا كان غير موجود تظهر رساله
(18-11-19, 05:44 AM)asemshahen5 كتب : هذا كود زر العديل :
PHP كود :
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Dim StrSQL As String = "UPDATE DB_DB SET DB_PCNUM='" & Textserpc.Text & "', DB_XPNUM='" & Textserxp.Text & "' Where DB_SERNUM='" & Textsernum.Text & "'" Dim da As New SqlDataAdapter(StrSQL, conn) Dim dt1 As New DataTable da.Fill(dt1) MsgBox("تم الحفظ") End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Dim StrSQL As String = "UPDATE DB_DB SET DB_PCNUM='" & Textserpc.Text & "', DB_XPNUM='" & CDate(Textserxp.Text) & "' Where DB_SERNUM='" & Textsernum.Text & "'" Dim da As New SqlDataAdapter(StrSQL, conn) Dim dt1 As New DataTable da.Fill(dt1) MsgBox("تم الحفظ") End Sub
أو استبدل Textserxp باداة DateTimePicker فيكون الكود :
PHP كود :
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Dim StrSQL As String = "UPDATE DB_DB SET DB_PCNUM='" & Textserpc.Text & "', DB_XPNUM='" & DateTimePicker1.Value.Date & "' Where DB_SERNUM='" & Textsernum.Text & "'" Dim da As New SqlDataAdapter(StrSQL, conn) Dim dt1 As New DataTable da.Fill(dt1) MsgBox("تم الحفظ") End Sub
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
(18-11-19, 05:59 AM)asemshahen5 كتب : ضع هذا الكود :
PHP كود :
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Dim StrSQL As String = "UPDATE DB_DB SET DB_PCNUM='" & Textserpc.Text & "', DB_XPNUM='" & CDate(Textserxp.Text) & "' Where DB_SERNUM='" & Textsernum.Text & "'" Dim da As New SqlDataAdapter(StrSQL, conn) Dim dt1 As New DataTable da.Fill(dt1) MsgBox("تم الحفظ") End Sub
أو استبدل Textserxp باداة DateTimePicker فيكون الكود :
PHP كود :
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Dim StrSQL As String = "UPDATE DB_DB SET DB_PCNUM='" & Textserpc.Text & "', DB_XPNUM='" & DateTimePicker1.Value.Date & "' Where DB_SERNUM='" & Textsernum.Text & "'" Dim da As New SqlDataAdapter(StrSQL, conn) Dim dt1 As New DataTable da.Fill(dt1) MsgBox("تم الحفظ") End Sub
شكرا لك اخي عاصم ولكن بخصوص المشاركه السابقه اللي حضرتك اشرت اليه الكود يشتغل صحيح في الشروع ولكن عند نقله الي مشروعي يظهر خطا هنا
DataGridView1.Rows.Clear()
هذا الكود DataGridView1.Rows.Clear() يستخدم عندما يتم تعبئة الداتاغريد من مصدر خارجي دون ربطه بالداتا سيت او الداتا تيبل عند الربط بالداتا سيت او الداتا تيبل يتم تفريغ الداتاسيت او الداتا تيبل و اعادة تحميلها و من ثم اعادة تحميل الداتا غريد فيو .
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر