sigoo sin conectar haber en k fallo..
codigo:
Código vb:
Ver originalPublic Class IDENTIFICACION
Dim dt As New DataTable
Dim fila As Integer = 0
Private Sub IDENTIFICACION_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0" & " Data Source=C:\negocio\negocio.mdb"
' La cadena de selección
Dim sql As String = "SELECT * FROM usuarios"
' Crear un nuevo objeto del tipo DataAdapter
Dim da As New OleDb.OleDbDataAdapter(sql, sCnn)
da.Fill(dt) 'el fallo da en esta fila
da.Dispose()
actualizar()
' Crear los comandos de insertar, actualizar y eliminar
' Dim cb As New OleDbCommandBuilder(da)
End Sub
Private Sub actualizar()
TextBox1.Text = CStr(dt.Rows(fila)("usuario"))
TextBox2.Text = CStr(dt.Rows(fila)("contraseña"))
End Sub
End Class
el error:
El proveedor 'Microsoft.Jet.OLEDB.4.0 Data Source=C:\negocio\negocio.mdb' no está registrado en el equipo local.