[نيمو]

للاسف لايوجد عندي sql server لكن اعتقد نفس الفكرة

كود :

       Dim str As String = "select * from Tble"
       Dim Dt As New DataTable
       Dim Da As New OleDbDataAdapter
       Dt.Clear()
       Da = New OleDbDataAdapter(str, Con)
       Da.Fill(Dt)

       For i As Integer = 0 To Dt.Rows.Count - 1
           If Dt.Rows(i).Item("Uname") = TextBox1.Text Then
               MsgBox("الاسم موجود بالفعل يرجى اختيار اسم اخر", MsgBoxStyle.Critical, "انتباه")
           End If
       Next