[moha8080]

مشكله بالتعديل اخي عاصم اسف علي ازعاجك

[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 


[moha8080]

(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 اذا كان موجود يعمل سيلكت علي الصف كامل و اذا كان غير موجود تظهر رساله 

[asemshahen5]

تابع هذا الموضوع :

كود تحديد من فظلكم .

[moha8080]

(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 


ظهر هذا الخطاء عند الحفظ

[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 


[moha8080]

(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()

[asemshahen5]

هذا الكود DataGridView1.Rows.Clear() يستخدم عندما يتم تعبئة الداتاغريد من مصدر خارجي دون ربطه بالداتا سيت او الداتا تيبل عند الربط بالداتا سيت او الداتا تيبل يتم تفريغ الداتاسيت او الداتا تيبل و اعادة تحميلها و من ثم اعادة تحميل الداتا غريد فيو .