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