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

السلام علسكم
خطئ في كود زر التعديل ممكن مساعدة

انظر المرفقات

(01-06-20, 03:23 PM)boudyonline كتب : [ -> ]
انظر المرفقات

هل يوجد خطئ هنا

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles ButEdit.Click

Dim SavInto As New OleDb.OleDbCommand

SavInto.Connection = Conn

SavInto.CommandType = CommandType.Text

SavInto.CommandText = "update price set [Part_No]='" & TextBox1.Text & "',[Description]='" & TextBox2.Text & "',[Price]='" & TextBox3.Text & "',[pri_acht]='" & TextBox4.Text & "',[Qontiti]='" & TextBox5.Text & "' where ID = " & Val(TextBox6.Text) & ""

Conn.Open()

SavInto.ExecuteNonQuery()

SavInto.Dispose()

Conn.Close()

End Sub

(01-06-20, 05:09 PM)ahmedbezia كتب : [ -> ]
(01-06-20, 03:23 PM)boudyonline كتب : [ -> ]
انظر المرفقات
هل يوجد خطئ هنا

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles ButEdit.Click

Dim SavInto As New OleDb.OleDbCommand

SavInto.Connection = Conn

SavInto.CommandType = CommandType.Text

SavInto.CommandText = "update price set [Part_No]='" & TextBox1.Text & "',[Description]='" & TextBox2.Text & "',[Price]='" & TextBox3.Text & "',[pri_acht]='" & TextBox4.Text & "',[Qontiti]='" & TextBox5.Text & "' where ID = " & Val(TextBox6.Text) & ""

Conn.Open()

SavInto.ExecuteNonQuery()

SavInto.Dispose()

Conn.Close()

End Sub

اخي الفاضل :
هل راجعت ملفي المرفق سالفاً ؟؟؟
إذا راجعته ستفهم أين الخطأ