¿Cómo utilizar VB para leer y escribir la base de datos de ACCESS? Quiero mostrar la tabla directamente.

(Asegúrese de colocar el archivo de su base de datos y el formulario de su proyecto en la misma carpeta)

Primero inserte un módulo y escriba el código en el módulo

p>

Cn público como ADODB.Connection

Sub con()

Establecer cn = Nuevo ADODB.Connection

cn.ConnectionString = "Provider= Microsoft. Jet.OLEDB.4.0;Data Source=" & App.Path & "\database name.extension;Persist Security Info=False" (en una línea)

End Sub

Escribir código en el formulario

llamar a con

cn.open //Abrir la base de datos

Atenuar rs como ADODB.Recordset //rs es una variable

Establecer rs = Nuevo ADODB.Recordset

Buscar

rs.Open "select * del nombre de la tabla donde el nombre del campo 1=' " & Text1.Text & " ' y nombre de campo 2= ' " & Text2.Text & " ' ", cn //El contenido del texto cumple con los requisitos que estás buscando

rs.Abre "select * from table name" // Encuentra el contenido de toda la tabla

Set DataGrid1.DataSource = rs //Mostrar en DataGrid

Agregar contenido a la base de datos (pero parece que solo se puede hacer uno por uno, de lo contrario Usar bucle)

cn.Ejecutar "INSERT INTO indica (campo 1, campo 2, campo 3) VALUES('" & Texto1 & "','" & Texto2 & "','" & Combo3. Texto & "')"

Eliminar cn.Execute "DELETE FROM indica dónde el nombre del campo='" & Texto1 & "'"