Cómo conectar VB a la base de datos de Access
Consulte el siguiente código. Me pregunto si puede ayudar.
Private Sub Command1_Click()
Dim Mycon As ADODB.Connection 'Define un objeto de conexión y utiliza este objeto para establecer comunicación con la base de datos.
Dim Myrt As ADODB.Recordset 'Define un objeto de conjunto de registros. Después de obtener los registros uno por uno de la base de datos, colóquelos en este objeto.
Dim Mystr As String 'Define una variable de cadena para almacenar algunos parámetros necesarios al conectarse a la base de datos.
Set Mycon = New ADODB.Connection 'Crea un nuevo objeto de conexión.
Set Myrt = New ADODB.Recordset 'Crea un nuevo objeto de conjunto de registros.
Myrt.CursorLocation = adUseClient 'Define el tipo de cursor del conjunto de registros. Si eres nuevo en este aspecto, no es necesario realizar una investigación en profundidad aquí. Sabes que hay dos tipos de cursor. en el conjunto de registros Uno es el cursor del lado del servidor, el otro es el cursor del lado del cliente, aquí usamos el cursor del lado del cliente, ambos tipos tienen sus propias características, si desea conectarse a una tabla de contraseñas de usuario, simplemente configure el cliente. cursor lateral.
Mystr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\db1.mdb" 'Establezca algunos parámetros necesarios para conectarse a la base de datos de Access utiliza Microsoft.Jet. .4.0, si se trata de otros tipos de bases de datos, esta oración será diferente. Si desea depurar este código, cambie d:\db1.mdb.
Mycon.Open Mystr 'Utilice el objeto de conexión definido para abrir la base de datos con los parámetros establecidos previamente y luego opere el objeto de conexión para operaciones posteriores en la base de datos.
Myrt.Open "seleccionar * del nombre de la tabla", Mycon, 3, 1 'El objeto de conjunto de registros realiza una operación de apertura y obtiene registros de una tabla en la base de datos. Mycon aquí representa la base de datos. La frase "seleccionar * del nombre de la tabla" significa obtener todos los registros de una tabla. Modifique el nombre de la tabla cuando la pruebe.
'Aquí obtienes datos útiles de una tabla en la base de datos. Puedes obtener los datos que necesitas operando en el conjunto de registros Myrt. Por ejemplo, si es una tabla de contraseñas de usuario, si esta tabla tiene dos campos, un campo de nombre de usuario y un campo de contraseña. Luego use Myrt ("nombre de usuario") para obtener los datos de este campo en el registro actual. Si esta tabla tiene 10 registros, puede usar Myrt.movenext para mover el puntero del conjunto de registros.
'Si coloca un control DataGrid en la interfaz, puede usar la siguiente oración para ver el contenido obtenido por el objeto del conjunto de registros Myrt de la base de datos.
Set DataGrid1.DataSource = Myrt
End Sub
El código en el suplemento de su pregunta no tiene el código para conectarse a la base de datos Este botón. es el código para verificar la identidad e iniciar sesión. Debe conectarse a la base de datos antes de esto, porque el código para conectarse a la base de datos debe tener la ruta, el nombre y otra información de la base de datos. Por ejemplo: D:\db1.mdb.