CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Ayuda En Bd Con Vb 2005

(1/1)

necros10:
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

necros10:
parece que no tengo ayuda :(:(:(:(

ElNapster:

--- Código: Text ---tabb = New SqlCommand(&#34; if Select nombre from usuario = &#34; & (TxtUser.Text)) 
Y eso pa'que ?

Lo que tenes que hacer es :
1. El usuario ya pass estan en una tu tabla de la BD o son usuarios del SQL Server ?
2. Si son de una tabla xxx de tu BD
obtengo_usuario = "  Select nombre
                                  from tu_tabla
                                    where  id = " & text1.text
                                    & " and     pass = " & text2.text

El login o nombre del usuario se lo asignas a un variable luego haces la comparacion o  no se como vas a hacer la comparacion y solo ver si la variable no es NULL ya que si lo es es porque no coincide el id con el pass ....  :blink: ...

Bueno espero te sirva y si tienes dudas pues solo postea tu duda  ;) .

 :comp:

hdr:
tienes mal el concepto del sqlcommand, el sqlcommand es una consulta sql que se ejecuta contra una conexion que tengas abierta, cuando ejecutas el comnado puede tener un datatable o dataset que es donde se contienen los datos que estas pidiendo, los datasets tienen datatables y los datatables tienen datarows, si navegas los datarows puede navegar por los resultados que te trae de la bd,
tambien puedes ejecutar una consulta escalar que solo te retorna un numero
por ejemplo SELECT count(id) FROM estudiantes;

necros10:
CODE [
Y eso pa'que ?

Lo que tenes que hacer es :
1. El usuario ya pass estan en una tu tabla de la BD o son usuarios del SQL Server ?
2. Si son de una tabla xxx de tu BD
obtengo_usuario = " Select nombre
from tu_tabla
where id = " & text1.text
& " and pass = " & text2.text

El login o nombre del usuario se lo asignas a un variable luego haces la comparacion o no se como vas a hacer la comparacion y solo ver si la variable no es NULL ya que si lo es es porque no coincide el id con el pass ....  ...

Bueno espero te sirva y si tienes dudas pues solo postea tu duda  .

]
 
1. el usuario y la pass estan en la BD y no son Usuarios de SQL
2.Ahora Intentare lo que medices porq realmente no cacho como hacerlo

y esa linea que habia colocado era lo que se me habia ocurrido en el momento aunq sabia que estaba mala

Navegación

[0] Índice de Mensajes