السلام عليكم ورحمة الله وبركاته
إليك هذا الكود حسب الترتيب المنطقي والذي ذكره أيضاً الأخ Mr. DotNet
PHP كود :
Private Sub Save(ByVal id As Integer)
'' id التحقق من وجود السجل برقم الـ *************************
conn.Open()
Dim exist As Boolean = If(New OleDb.OleDbCommand("SELECT COUNT(id) FROM table1 WHERE id=" & id, conn).ExecuteScalar > 0, True, False)
conn.Close()
Dim sql As String = String.Empty
If exist Then '' إذا كان موجود قم بالتحديث ******************
sql = " UPDATE table1 SET " & _
" " & _
" UserName = @UserName " & _
" , MobileNumber = @MobileNumber " & _
" , Date = @Date " & _
" " & _
" WHERE id=" & id
Else '' إذا لم يكن موجود قم بلإضافة كجديد ********************
sql = " INSERT INTO table1" & _
" " & _
" ( UserName, MobileNumber, Date )" & _
" " & _
" VALUES " & _
" " & _
" ( @UserName, @MobileNumber, @Date )"
End If
Dim comm As New OleDb.OleDbCommand(sql, conn)
comm.Parameters.AddWithValue("@UserName ", Me.txtUserName.Text)
comm.Parameters.AddWithValue("@MobileNumber ", Me.txtMobileNumber.Text)
comm.Parameters.AddWithValue("@Date ", Me.txtDate.Text)
conn.Open()
comm.ExecuteNonQuery()
conn.Close()
End Sub
ملاحظة: استغربت استخدامك ToString. بعد كل بارامتر مثل
كود :
cm.Parameters.AddWithValue("@UserName", (TextBox1.Text))[color=#FF0000].ToString[/color]()السلام عليكم ورحمة الله وبركاته
