Re: Para variar una consulta =)

17/06/2005 - 01:17 por Sete | Informe spam

Me metiDebido a tu comentario my Friend averigue lo del ExecuteScalar y logre realizar lo siguiente
' VARIABLE
Private Conn As OleDbConnectio
Private scalarCMD As OleDbComman
Conn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\pruebasdeVB.NET\-==Ultimo==-\Login.0.1.1\bin\Almagro.mdb"
scalarCMD = New OleDbCommand("SELECT Login, Pass FROM Usuario where (Login=@Login and Pass=@Pass)", Conn

Dim respuesta As Strin

Conn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\pruebasdeVB.NET\-==Ultimo==-\Login.0.1.1\bin\Almagro.mdb"
scalarCMD = New OleDbCommand("SELECT Login, Pass FROM Usuario where (Login=@Login and Pass=@Pass)", Conn

scalarCMD.Parameters.Add("@Login", OleDbType.VarChar, 15).Value = txtLogin.Tex
scalarCMD.Parameters.Add("@Pass", OleDbType.VarChar, 15).Value = txtPass.Tex

MessageBox.Show("Hasta los Parametros.Todo OK"
Conn.Open(
respuesta = scalarCMD.ExecuteScalar(
Conn.Close(

MessageBox.Show(respuesta

Pero ahora la cosa es, q solo imprimo el Login en el ultimo MessageBox, q tendria q hacer para encontrar el Pass (o el segundo Parameter) y una vez echo esto. Que hacer para ver si dejo ingresar a la aplicacion o no

Gracias Saludos

Sete

Ver este tema: http://www.softwaremix.net/viewtopic-401840.html

Enviado desde http://www.softwaremix.net

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Para variar una consulta =)

Leer las respuestas

#1 A.Poblacion

17/06/2005 - 10:29 | Informe spam

"Sete" wrote in message
news:

Me metiDebido a tu comentario my Friend averigue lo del ExecuteScalar y

logre realizar lo siguiente:

' VARIABLES
Private Conn As OleDbConnection
Private scalarCMD As OleDbCommand
Conn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data

Source=D:\pruebasdeVB.NET\-==Ultimo==-\Login.0.1.1\bin\Almagro.mdb")

scalarCMD = New OleDbCommand("SELECT Login, Pass FROM Usuario

where (Login=@Login and Pass=@Pass)", Conn)

Dim respuesta As String

Conn = New

OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=D:\pruebasdeVB.NET\-==Ultimo==-\Login.0.1.1\bin\Almagro.mdb")

scalarCMD = New OleDbCommand("SELECT Login, Pass FROM Usuario

where (Login=@Login and Pass=@Pass)", Conn)

scalarCMD.Parameters.Add("@Login", OleDbType.VarChar, 15).Value txtLogin.Text
scalarCMD.Parameters.Add("@Pass", OleDbType.VarChar, 15).Value txtPass.Text

MessageBox.Show("Hasta los Parametros.Todo OK")
Conn.Open()
respuesta = scalarCMD.ExecuteScalar()
Conn.Close()

MessageBox.Show(respuesta)

Pero ahora la cosa es, q solo imprimo el Login en el ultimo MessageBox, q

tendria q hacer para encontrar el Pass (o el segundo Parameter) y una vez
echo esto. Que hacer para ver si dejo ingresar a la aplicacion o no.

Yo lo haria asi:

Private Conn As OleDbConnection
Private scalarCMD As OleDbCommand
Conn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=D:\loquesea.mdb")
scalarCMD = New OleDbCommand("SELECT Count(*) FROM Usuario where
Login=@Login and Pass=@Pass", Conn)
Dim numEncontrados As Integer
scalarCMD.Parameters.Add("@Login", OleDbType.VarChar, 15).Value txtLogin.Text
scalarCMD.Parameters.Add("@Pass", OleDbType.VarChar, 15).Value txtPass.Text
Conn.Open()
numEncontrados = scalarCMD.ExecuteScalar()
Conn.Close()

If numEncontrados>0 Then
MessageBox.Show("El login y pass existen en la base de datos.")
End If

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida