السلام عليكم اخواني الكرام كل عام وحضراتك بخير
اريد المساعده
عندي فاتوره برقم ID والفاتوره تحمل رقم مثلا B3 وبها عدة سطور وانا اريد ان اعدل سطر واحد في الفاتوره والمشكله عند تعديل سطر واحد اجد جميع السطور تم تعديلها بنفس البيانات يعني البيانات تكررت في جميع السطور التي تحمل رقم الفاتوره
ارجوا التعديل علي هذا الكود فيجوال بيسك 2017 وقاعدة بيانات SQLITE
ولكم جزبل الشكر
Try
Using conn As SQLiteConnection = DatabaseConnection.GetConnection()
conn.Open()
Dim query As String = "UPDATE amel_21_d SET weight = @weight, wit18 = @wit18, many = @many, tota_am = @tota_am, name = @name, noty = @noty, type = @type WHERE inon_f = @inon_f"
Using cmd As New SQLiteCommand(query, conn)
cmd.Parameters.AddWithValue("@weight", Txtwazn.Text)
cmd.Parameters.AddWithValue("@wit18", Txtch1.Text)
cmd.Parameters.AddWithValue("@many", TXTMANY.Text)
cmd.Parameters.AddWithValue("@tota_am", TextBox1.Text)
cmd.Parameters.AddWithValue("@name", Com_AMEL.Text)
cmd.Parameters.AddWithValue("@noty", Txtnoty.Text)
cmd.Parameters.AddWithValue("@type", Txtpye.Text)
cmd.Parameters.AddWithValue("@inon_f", Txtno.Text)
Dim rowsAffected As Integer = cmd.ExecuteNonQuery()
If rowsAffected > 0 Then
MsgBox("تم تحديث بنجاح ")
Else
MsgBox("لم يتم العثور على الخلية المحددة ")
End If
End Using
End Using
Catch ex As Exception
MsgBox("خطأ: " & ex.Message)
End Try
اريد المساعده
عندي فاتوره برقم ID والفاتوره تحمل رقم مثلا B3 وبها عدة سطور وانا اريد ان اعدل سطر واحد في الفاتوره والمشكله عند تعديل سطر واحد اجد جميع السطور تم تعديلها بنفس البيانات يعني البيانات تكررت في جميع السطور التي تحمل رقم الفاتوره
ارجوا التعديل علي هذا الكود فيجوال بيسك 2017 وقاعدة بيانات SQLITE
ولكم جزبل الشكر
Try
Using conn As SQLiteConnection = DatabaseConnection.GetConnection()
conn.Open()
Dim query As String = "UPDATE amel_21_d SET weight = @weight, wit18 = @wit18, many = @many, tota_am = @tota_am, name = @name, noty = @noty, type = @type WHERE inon_f = @inon_f"
Using cmd As New SQLiteCommand(query, conn)
cmd.Parameters.AddWithValue("@weight", Txtwazn.Text)
cmd.Parameters.AddWithValue("@wit18", Txtch1.Text)
cmd.Parameters.AddWithValue("@many", TXTMANY.Text)
cmd.Parameters.AddWithValue("@tota_am", TextBox1.Text)
cmd.Parameters.AddWithValue("@name", Com_AMEL.Text)
cmd.Parameters.AddWithValue("@noty", Txtnoty.Text)
cmd.Parameters.AddWithValue("@type", Txtpye.Text)
cmd.Parameters.AddWithValue("@inon_f", Txtno.Text)
Dim rowsAffected As Integer = cmd.ExecuteNonQuery()
If rowsAffected > 0 Then
MsgBox("تم تحديث بنجاح ")
Else
MsgBox("لم يتم العثور على الخلية المحددة ")
End If
End Using
End Using
Catch ex As Exception
MsgBox("خطأ: " & ex.Message)
End Try