Para variar una consulta =)

[Sete18]

Saludos señores, les cuento, hice una consulta a una BD 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.OLED B.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.

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

[Scho]

Tal como lo tienes te faltaría algo así:

Código:

...
Dim custDS As DataSet = New DataSet()
DA.Fill(custDS, "Customers")
If custDS.Tables("Customers").Rows.count = 1 then
   MessageBox.Show("Conuslta Realizada OK")
End If 

Aunque quizá habría alguna forma un poco más óptima.

Saludos