Sete
06 de Junio del 2005

Tengo este codigo, segun yo deberia estar ok (soy newbye) me tira error en el Adapter1.fill(dsUsuario1)t.

Imports System.Data
Imports System.Data.OleDb

Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
Dim coneccion As OleDbConnection
Dim Adapter1 As OleDbDataAdapter
Dim dsUsuario1 As DataSet

coneccion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:pruebasdeVB.NET-==Ultimo==-WindowsApplication5NADA.mdb")

Adapter1 = New OleDbDataAdapter("SELECT Login, Pass FROM Usuario WHERE (Login=@paramLogin) And (Pass=@paramPass)", coneccion)

dsUsuario1 = New DataSet()

dsUsuario1.Clear()
Adapter1.Fill(dsUsuario1)

Adapter1.SelectCommand.Parameters("@paramLogin").Value = txtLogin.Text
Adapter1.SelectCommand.Parameters("@paramPass").Value = txtPass.Text

If (Me.BindingContext(dsUsuario1, "Usuario").Count And Me.BindingContext(dsUsuario1, "Usuario").Count) = 0 Then
MessageBox.Show("No usuario")
txtLogin.Text = ""
txtPass.Text = ""
txtLogin.Focus()
Else
MessageBox.Show("Abrir Aplicación")
txtLogin.Text = ""
txtPass.Text = ""
txtLogin.Focus()
End If
End Sub
End Class

pelemas11
06 de Junio del 2005

Como parametro del Adapter1.Fill , además del dataset, pasale el origen de datos, porque sino no sabe de donde tiene que pasar los datos al dataset, ponle el nombre de la tabla de la bd, o el nombre d tu origen de datos.
Prueba a ver si es eso.

Sete
06 de Junio del 2005

le coloque ..

Adapter1.Fill(dsUsuario1, "Usuario") -->> Que es la tabla

y no resulto tampoco.....asi q para probar le coloque el nombre de la bd y nada tampoko...el mismo error ....q podra ser?