[shado1796]

@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته




إليك هذا الكود حسب الترتيب المنطقي والذي ذكره أيضاً الأخ 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]()

السلام عليكم ورحمة الله وبركاته

بالنسبة للكود فطريقته مختلفه عن طريقتي في كودي السابق .. ؟؟؟
اما لماذا استخدم .ToString فاستخدمته للنصوص ،، لماذا هل هو يؤثر ؟؟