Dataset

[Sete18]

Tengo este codigo, segun yo deberia estar ok (soy newbye) me tira error en el Adapter1.fill(dsUsuario1, "usuario") 'usuario es la tabla de conde saco los datos, el error dice excepcion no controlada del tipo "System.data.oledb.oledbexcepcion" en system.data .dll

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==-\WindowsApplication5\NADA.mdb")

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

dsUsuario1 = New DataSet()

dsUsuario1.Clear()
Adapter1.Fill(dsUsuario1, "usuario")

Adapter1.SelectCommand.Parameters("@paramLogin").V alue = txtLogin.Text
Adapter1.SelectCommand.Parameters("@paramPass").Va lue = 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

[jose_d]

Pues lo unico que veo es que estas haciendo el datafill antes de mandar los parametros creo que es ese el error, mira eso y me cuentas, la idea es.

Adapter1.SelectCommand.Parameters("@paramLogin").V alue = txtLogin.Text
Adapter1.SelectCommand.Parameters("@paramPass").Va lue = txtPass.Text

Adapter1.Fill(dsUsuario1, "usuario")

[Rony J.]

Si, también noté eso aunque la verdad es que hace tiempo que no trabajo mucho con los adaptadores..

Además tenes esto:

Iniciado por Sete18

dsUsuario1 = New DataSet()

dsUsuario1.Clear()

Para que haces dsUsuario1.Clear() ?? puesto que los estás creando allí mismo no es necesario que lo hagas..