¿Cómo utilizar el código VBA para conectar la base de datos de acceso y encontrar el código?

Microsoft Office Access es un sistema de gestión de bases de datos relacionales lanzado por Microsoft. Combina las dos características de MicrosoftJet Database Engine y la interfaz gráfica de usuario, y es uno de los programas del sistema de Microsoft Office. Utilice el código vba para conectarse a la base de datos de acceso y encontrar el código. El código es el siguiente:

Sub FYMXDL()

Dim XQID As Integer

Dim JZID. Como Entero

Dim FYID Como Entero

Dim FBXZ Como String 'Propiedades de subcontratación

Dim DW Como String

Dim SARR(1 A 31) Como doble

Atenuar primero como nuevo ADODB.Recordset

mYpath = ThisWorkbook.Path & "\jzfydata.accdb"

Establecer cONn = CreateObject(" ADODB.Connection")

cONn.ConnectionString = "Provider=Microsoft.Ace.OleDB.12.0;Data Source=" & mYpath

cONn.ConnectionString = cONn.ConnectionString & "; Jet OLEDB:Base de datos "

cONn.Open

XQID = Celdas(3, 2).Valor

JZID = Celdas(3, 5).Valor

'Borrar los detalles de costos del cambio de creación de comunidad

Sql = "eliminar ?de fymxb donde community ID=" & XQID & " AND building ID = " & JZID

cONn.Execute Sql

Const kshh = 7

hh = kshh

Hacer mientras las celdas (hh, 3).Valor > 0

FYID = Celdas(hh, 3).Valor

FBXZ = Celdas(hh, 11).Texto

Para i = 1 a 31

SARR(i) = Ronda(Celdas(hh, 13 + i - 1).Valor, 2)

Siguiente i

Sql = Sql & "," & SARR( i)

Siguiente i

Sql = Sql & " )"

cONn.Execute Sql

hh = hh + 1

Bucle

Fin Sub