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
 

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

Preguntas similares