[سعود]

شوف اخوي عدلت على المثال بحيث نستخدم الزر Enter للتحقق والادخال ايضا حذفت مربع النص الاخر والداتاقريد

اتبع الخطوات التالية:
انشي فورم جديد واكتب باعلاه(اعلى اطار محرر الكود) الاستدعاء التالي:

كود :

Imports System.Data.OleDb

ثم في منطقة التصريحات العامة (ليس ضمن اي روتين)

كود :

Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
Dim con As New OleDbConnection(str)

ثم اكتب دالة فحص هل الاسم موجود

كود :

Function isfound(ByVal t As String) As Boolean
        Dim sql As New OleDbCommand("select count(tn) from tb where tn=@tn", con)
        sql.Parameters.AddWithValue("@tn", t)

        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        If sql.ExecuteScalar > 0 Then
            Return True
        Else
            Return False
        End If

        If con.State = ConnectionState.Open Then
            con.Close()
        End If
    End Function

ثم اكتب دالة اضافة اسم جديد

كود :

Function insert(ByVal t As String) As Boolean
        If isfound(t) Then
            Return True
        Else
            Dim se As New OleDbCommand("insert into tb(tn) values(@tn)", con)
            se.Parameters.AddWithValue("@tn", t)


            If con.State = ConnectionState.Closed Then
                con.Open()
            End If
            Try
                se.ExecuteNonQuery()
                Return False
            Catch ex As Exception
                Return True
            End Try


        End If

        If con.State = ConnectionState.Open Then
            con.Close()
        End If

    End Function

ثم اضف مربع نص وليكن اسمه Textbox1
وضمن حدث TextBox1_KeyDown اكتب:

كود :

If e.KeyData = Keys.Enter Then
            If TextBox1.Text.Trim.Replace(" ", "") = "" Then
                MsgBox("يجب كتابة اسم في مربع النص الخاص بالاسم ", MsgBoxStyle.Critical, "")
                TextBox1.Focus()
                Exit Sub
            End If

            If insert(TextBox1.Text) = False Then
                TextBox1.Focus()
                TextBox1.BackColor = Color.White
                MsgBox("تمت الاضافة بنجاح", MsgBoxStyle.Information, "")
                TextBox1.Clear()
            Else
                TextBox1.BackColor = Color.Red
                TextBox1.Clear()
                MsgBox("الاسم محجوز , فضلا جرب اسما آخر ", MsgBoxStyle.Critical, "")
                TextBox1.Focus()
                Exit Sub

            End If
        End If

اخشى ان الدوال سببت لك اشكال لكن استخدامها فيها متعة لاحدود لها وعن تجربة.