[ahmedbezia]

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

[boudyonline]

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

[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

[boudyonline]

(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

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