السلام عليكم ورحمة الله وبركاته
بعد إذن أخي Easy 4ever
تفضل، لازم تتأكد من نوع بيانات كل حقل، الحقل الرقمي ضع مربع النص الخاص به داخل val مثل
السلام عليكم ورحمة الله وبركاته
بعد إذن أخي Easy 4ever
تفضل، لازم تتأكد من نوع بيانات كل حقل، الحقل الرقمي ضع مربع النص الخاص به داخل val مثل
كود :
command.Parameters.AddWithValue("@id1 ", [color=#FF0000]Val([/color]Me.txtID1.Text[color=#FF0000])[/color])PHP كود :
Dim sql As String = " UPDATE a1 SET " & _
" name = @name " & _
" , ro1 = @ro1 " & _
" , id1 = @id1 " & _
" , id2 = @id2 " & _
" , id3 = @id3 " & _
" , namper1 = @namper1 " & _
" , namper2 = @namper2 " & _
" , fs = @fs " & _
" , ml = @ml "
Dim command As New OleDbCommand(sql, conn)
command.Parameters.AddWithValue("@name ", Me.txtName.Text)
command.Parameters.AddWithValue("@ro1 ", Me.txtRo1.Text)
command.Parameters.AddWithValue("@id1 ", Me.txtID1.Text)
command.Parameters.AddWithValue("@id2 ", Me.txtID2.Text)
command.Parameters.AddWithValue("@id3 ", Me.txtID3.Text)
command.Parameters.AddWithValue("@namper1 ", Me.txtNamper1.Text)
command.Parameters.AddWithValue("@namper2 ", Me.txtNamper2.Text)
command.Parameters.AddWithValue("@fs ", Me.txtFS.Text)
command.Parameters.AddWithValue("@ml ", Me.txtML.Text)
conn.Open()
command.ExecuteNonQuery()
conn.Close()
MsgBox("تم تعديل البيانات")
السلام عليكم ورحمة الله وبركاته
