منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("تاكد من ان خانة اسم المستخدم او كلمة المرو غير فارغة")
            Return
        End If
        da = New SqlDataAdapter("SELECT * FROM Table_1 where username = '" & TextBox1.Text & "'", con)
        da.Fill(dt)
        If dt.Rows.Count <> 0 Then
            MessageBox.Show("ان هذا الاسم مستخدم من قبل رجاء استخدم اسم اخر ")
        Else
            Dim cmd As New SqlCommand("INSERT INTO Table_1 (username, passwords) values ('" & TextBox1.Text & "','" & TextBox2.Text & "')", con)
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
            TextBox1.Text = ""
            TextBox2.Text = ""
            Me.Hide()
            acuser.Show()
            MsgBox("تم انشاء الحساب")
        End If
    End Sub