كود للتحقق من وجود البيانات سابقا في قواعد البيانات

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

اخي ما عليك الا عمل جملة Select بشرط ان الحقول المدخلة موجوده في الجدول مسبقا فاذا رجعت الجملة صف او اكثر فأعلم ان البيانات موجوده مسبقا, وكمثال شوف الكود التالي

أخي الفاضل VB Helper

اسمح لي ببعض الملحوظات البسيطة علي الجزء الثاني من الكود حيث ان :::

اقتباس

cmd = New SqlCommand("Inser Into Users Values(@Name,@Password,@Email)

كلمة Insert ناقصة الحرف t

جملة Insert بها بعض الملاحظات البسيطة

اقتباس

cmd = New SqlCommand("Inser Into Users Values(@Name,@Password,@Email)

cmd.Parameters.AddWithValue("Name",txtName.Text)

cmd.Parameters.AddWithValue("Password",txtPassword.Text)

cmd.Parameters.AddWithValue("Email",txtEmail.Text)

الجملة بعد التعديل

cmd = New SqlCommand("Insert into users values(@Name,@Password,@Email)", sqlcon)
            cmd.Parameters.AddWithValue("@Name", Txtname.Text)
            cmd.Parameters.AddWithValue("@Password", txtpassword.Text)
            cmd.Parameters.AddWithValue("@Email", txtemail.Text)

الكود كامل يعمل بشكل سليم

Imports System.Data
Imports System.Data.SqlClient
Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sqlcon As New SqlConnection("ConnectionString")
        Dim cmd As New SqlCommand("Select * From users Where Name=@Name And Password=@Password And Email=@Email", sqlcon)

        cmd.Parameters.AddWithValue("Name", Txtname.Text)
        cmd.Parameters.AddWithValue("Password", txtpassword.Text)
        cmd.Parameters.AddWithValue("Email", txtemail.Text)
        sqlcon.Open()

        Dim reader As SqlDataReader = cmd.ExecuteReader()
        If reader.HasRows Then
            MessageBox.Show("The User is already exist!!")

        Else
            sqlcon.Close()
            sqlcon.Open()
            cmd = New SqlCommand("Insert into users values(@Name,@Password,@Email)", sqlcon)
            cmd.Parameters.AddWithValue("@Name", Txtname.Text)
            cmd.Parameters.AddWithValue("@Password", txtpassword.Text)
            cmd.Parameters.AddWithValue("@Email", txtemail.Text)

            cmd.ExecuteNonQuery()

        End If
        sqlcon.Close()
    End Sub

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

شكر اخ محمد .. لقد تم التعديل .. بالتوفيق ..