Cómo usar el código vba para conectar la base de datos de acceso y encontrar el código

El siguiente programa se conecta a la base de datos y escribe el contenido de la tabla de Excel en la base de datos.

El código es el siguiente:

Sub FYMXDL()

Atenuar XQID como entero

Atenuar JZID como entero

Atenuar FYID como entero

Atenuar FBXZ como cadena 'Propiedades de subcontratación

Atenuar DW como cadena

Atenuar SARR(1 a 31) como doble

Atenuar primero Como nuevo ADODB.Recordset

mYpath = ThisWorkbook.Path amp "\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 = Cells(3, 2).Value

JZID = Cells(3, 5).Value

' Limpiar el edificio de celdas Detalles de costos

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

cONn.Execute Sql

Const kshh = 7

hh = kshh

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

FYID = Celdas(hh, 3) ).Valor

FBXZ = Celdas(hh, 11).Texto

Para i = 1 a 31

SARR(i) = Redondo(Celdas( hh , 13 i - 1).Value, 2)

Next i

Sql = "INSERT INTO fymxb(ID de comunidad, ID de edificio, ID de costo, naturaleza de subcontratación, carga de trabajo, unidad total oferta ganadora de precio, oferta ganadora de honorarios de mano de obra, oferta ganadora de honorarios de material principal, oferta ganadora de honorarios de material auxiliar, oferta ganadora de honorarios de maquinaria, oferta ganadora de honorarios de administración, oferta ganadora de honorarios, oferta ganadora de honorarios, oferta ganadora de impuestos, oferta ganadora de precio combinado, precio unitario total, costo estándar, honorario de mano de obra, costo estándar, honorario_estándar de material principal costo, tarifa de material auxiliar_costo estándar, tarifa de maquinaria_costo estándar, tarifa de administración_costo estándar, beneficio_costo estándar, tarifa_costo estándar, Impuestos_costo estándar, precio total_costo estándar, precio unitario total_costo real, tarifa de mano de obra_costo real, tarifa de material principal_costo real, tarifa de material auxiliar_costo real, tarifa de maquinaria_costo real , tarifa de gestión_costo real, beneficio _costo real, tarifa_costo real, impuesto_costo real, precio combinado_coste real) VALORES (" amp; XQID amp; ", " amp; JZID amp; ", " amp; FYID amp; ", '" amp ; FBXZ amp; "'"

Para i = 1 a 31

Sql = Sql amp "," amp;

Siguiente i

Sql = Sql amp " )"

cONn.Execute Sql

hh = hh 1

Bucle

Fin del subtítulo