(12-03-16, 04:20 PM)khodor1985 كتب : في النموذج عندك لاسمه : register
قم باستدعاء المكتبة التالية :

PHP كود :

Imports System.Data.SqlClient
Imports Sysytem.Data.MySqlClient 


قم بالإعلان عن المتغيرات التالية في أعلى النموذج :

PHP كود :

Dim con As New MySqlConnection("ضع هنا جملة الإتصال")
    Dim cmd As MySqlCommand
    Dim da As MySqlDataAdapter
    Dim ds As DataSet
    Dim sqlstr As String 


ثم ضع الكود التالي في زر الأمر :

PHP كود :

Try
            con.Open()

            sqlstr = "Select * From tblUser Where UsrName=@UsrName"
            cmd = New MySqlCommand(sqlstr, con)
            cmd.Parameters.Add("@UsrName", MySqlDBType.VarWChar).Value = txtUser.Text

            If cmd.ExecuteScalar > 0 Then
                MsgBox("User exists in tblUser")
                con.Close()
                Return

            End If


            sqlstr = "Insert Into tblUser(UsrName,UsrPassword) Values (@UsrName,@UsrPassword)"
            cmd = New MySqlCommand(sqlstr, con)
            cmd.Parameters.Add("@UsrName", MysqlDBType.VarWChar).Value = txtUser.Text
            cmd.Parameters.Add("@UsrPassword", MySqlDBType.VarWChar).Value = txtPass.Text

            cmd.ExecuteNonQuery()
            MsgBox("User added successfully")
            con.Close()
        Catch ex As Exception
            If con.State = ConnectionState.Open Then con.Close()
            MsgBox(ex.Message)
        End Try 


استبدل أسماء مربعات النصوص الموجودة في الكود أعلاه بأسماء مربعات النصوص الموجودة عندك في المشروع.