Para variar una consulta =)

16/06/2005 - 08:21 por Sete | Informe spam
Saludos señores, les cuento, hice una consulta a un aBD en access desde VB.NET, no me genera ningun error y por lo tanto deberia estar bien, pero el problema es q no se como hacer para saber si la consulta devuelve algun resultado, aqui les coloco el codigo

' VARIABLE

Private Conn As OleDbConnectio
Private DA As OleDbDataAdapte
Private selectCMD As OleDbComman
Private DS As DataSe

'En el For

Conn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\pruebasdeVB.NET\Almagro.mdb"

selectCMD = New OleDbCommand("SELECT Login, Pass FROM Usuario where (Login=@Login and Pass=@Pass)", Conn

DA = New OleDbDataAdapter(

DA.SelectCommand = selectCM

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

MessageBox.Show("HAsta los Parametros.Todo OK"

'En el Boto

Dim custDS As DataSet = New DataSet(
DA.Fill(custDS, "Customers"
MessageBox.Show("Conuslta Realizada OK"

Como dato, todo esto ya lo habia echo, pero con el asistente, y como generaba tanto codigo q no entendia me decidi a hacerlo por mi cuenta, pero el problema es solo que no se q codigo colocar para ver si la consulta encuentra o no lo q anda buscando, para posteriormente dejar ingresar o no a la aplicacion

eso seria...gracias muchachos...y muchos saludos


Sete

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

Enviado desde http://www.softwaremix.net

Preguntas similare

Leer las respuestas

#1 A.Poblacion
16/06/2005 - 09:27 | Informe spam
Detrás del DA.Fill(custDS, "Customers"), examina la tabla cargada. Si tiene
más de un registro, significa que el Login y el Password los ha encontrado:

If custDS.Tables("Customers").Rows.Count>0 Then


Aunque de todas formas, no es la forma más eficaz de averiguar si el login y
el password existen en la base de datos. En lugar de llenar un DataSet,
resultaría más eficaz lanzar un "Select Count..." con el método
ExecuteScalar del OleDbCommand.


"Sete" wrote in message
news:

Saludos señores, les cuento, hice una consulta a un aBD en access desde


VB.NET, no me genera ningun error y por lo tanto deberia estar bien, pero el
problema es q no se como hacer para saber si la consulta devuelve algun
resultado, aqui les coloco el codigo:

' VARIABLES

Private Conn As OleDbConnection
Private DA As OleDbDataAdapter
Private selectCMD As OleDbCommand
Private DS As DataSet

'En el Form

Conn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data


Source=D:\pruebasdeVB.NET\Almagro.mdb")

selectCMD = New OleDbCommand("SELECT Login, Pass FROM Usuario where


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

DA = New OleDbDataAdapter()

DA.SelectCommand = selectCMD

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

MessageBox.Show("HAsta los Parametros.Todo OK")

'En el Boton

Dim custDS As DataSet = New DataSet()
DA.Fill(custDS, "Customers")
MessageBox.Show("Conuslta Realizada OK")

Como dato, todo esto ya lo habia echo, pero con el asistente, y como


generaba tanto codigo q no entendia me decidi a hacerlo por mi cuenta, pero
el problema es solo que no se q codigo colocar para ver si la consulta
encuentra o no lo q anda buscando, para posteriormente dejar ingresar o no
a la aplicacion.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida