tengo el sgte problema...quiero buscar el nombre de usuario en la BD y ver si existe o no y asi darle paso a q ingrese su Password ,(tambien verificaría en la BD su clave) pero no cacho como poder hacerlo este es el codigo que llevo.
EN EL FORM
Imports System.Data.SqlClient
Public Class Form1
Dim I As String
Private Sub TxtUser_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtUser.KeyPress
If e.KeyChar.IsLetter(e.KeyChar) Then
e.Handled = False
ElseIf e.KeyChar.IsSeparator(e.KeyChar) Then
e.Handled = False
ElseIf e.KeyChar.IsControl(e.KeyChar) Then
e.Handled = False
TxtUser.Text = Trim(TxtUser.Text)
I = Len(TxtUser.Text) 'LEN = Cuenta numero de caracteres de la cadena
If e.KeyChar = Chr(13) And I <> 0 Then
TxtUser.Text = StrConv(TxtUser.Text, vbLowerCase) ' CAMBIA TODA LA CADENA A minuscula
conectar()
cargardatos()
'AQUI LA DUDA
tabb = New SqlCommand(" if Select nombre from usuario = " & (TxtUser.Text))
MessageBox.Show("Ingreso Ok", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
TxtPass.Focus()
tabb = New SqlCommand("else")
tabb = New SqlCommand("end if")
End If
Else
MessageBox.Show("Ingrese solo letras", "Information", MessageBoxButtons.OK, MessageBoxIcon.Warning)
e.Handled = True
End If
End Sub
Public Sub cargardatos()
tabb = New SqlCommand("select * from usuario", conn)
dadap.SelectCommand = tabb
dadap.Fill(dset, "usuario")
End Sub
End Class
EN EL MODULO
Imports System
Imports System.Data
Imports System.Data.SqlClient
Module Module1
Friend conn As SqlConnection
Friend tabb As SqlCommand
Friend dadap As SqlDataAdapter
Friend dset As DataSet
Public Sub conectar()
conn = New SqlConnection
tabb = New SqlCommand
dadap = New SqlDataAdapter
dset = New DataSet
'Nombre BD Mantenedor
With conn
.ConnectionString = "Initial Catalog= Mantenedor;" & _
"Data Source = localhost;" & _
"Integrated Security= SSPI"
.Open()
End With
MessageBox.Show("OK")
End Sub
End Module
Agradeceria su ayuda
