منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشكله بالتعديل اخي عاصم اسف علي ازعاجك - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكله بالتعديل اخي عاصم اسف علي ازعاجك (/showthread.php?tid=32170)

مشكله بالتعديل اخي عاصم اسف علي ازعاجك - moha8080 - 18-11-19

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

RE: مشكله بالتعديل اخي عاصم اسف علي ازعاجك - asemshahen5 - 18-11-19

هذا كود زر العديل :

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 


RE: مشكله بالتعديل اخي عاصم اسف علي ازعاجك - moha8080 - 18-11-19

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

RE: مشكله بالتعديل اخي عاصم اسف علي ازعاجك - asemshahen5 - 18-11-19

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

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

RE: مشكله بالتعديل اخي عاصم اسف علي ازعاجك - moha8080 - 18-11-19

(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 

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

RE: مشكله بالتعديل اخي عاصم اسف علي ازعاجك - asemshahen5 - 18-11-19

ضع هذا الكود :

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 


RE: مشكله بالتعديل اخي عاصم اسف علي ازعاجك - moha8080 - 18-11-19

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

RE: مشكله بالتعديل اخي عاصم اسف علي ازعاجك - asemshahen5 - 18-11-19

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