#1 visual studio 2008 con access 2007
El error que me da es el siguiente:No se ha inicializado la propiedad SelectCommand antes de llamar a 'Fill'.
La linea que me da el error esta en negrita.
Lo que prtendo hacer es que un formulario en el que introduces usuario y contraseña vaya a una tabla de access a verificar si existe ese usuario y lo deje entrar o no
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cnn As New OleDb.OleDbConnection
Dim dt As New DataTable
Dim da As New OleDb.OleDbDataAdapter
Dim cmd As New OleDb.OleDbCommand
Dim ds As New DataSet
' abro la conexion
cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Fran\Documents\bd1.accdb;Persist Security Info=False"
cnn.Open()
da.Fill(ds, "log")
If ds.Tables("Log").Rows.Count = 1 Then
Me.DialogResult = DialogResult.OK
Me.Close()
Else
MessageBox.Show("Usuario o contaseña no valida", "Mensaje de Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
TextBox1.Text = ""
TextBox2.Text = ""
Me.TextBox1.Focus()
End If
cnn.Close()
End Sub
La linea que me da el error esta en negrita.
Lo que prtendo hacer es que un formulario en el que introduces usuario y contraseña vaya a una tabla de access a verificar si existe ese usuario y lo deje entrar o no
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cnn As New OleDb.OleDbConnection
Dim dt As New DataTable
Dim da As New OleDb.OleDbDataAdapter
Dim cmd As New OleDb.OleDbCommand
Dim ds As New DataSet
' abro la conexion
cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Fran\Documents\bd1.accdb;Persist Security Info=False"
cnn.Open()
da.Fill(ds, "log")
If ds.Tables("Log").Rows.Count = 1 Then
Me.DialogResult = DialogResult.OK
Me.Close()
Else
MessageBox.Show("Usuario o contaseña no valida", "Mensaje de Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
TextBox1.Text = ""
TextBox2.Text = ""
Me.TextBox1.Focus()
End If
cnn.Close()
End Sub
0