Entre ayer y hoy he aprendido a utilizar VBA en Access para realizar unas modificaciones en unas bases de datos, lo pongo aqui como referencia por si vuelvo a necesitar hacer algo del estilo:<\/p>\n
\r\n' ExecuteQuery: Realitza una modificaci\u00f3 a la BD\r\n' Provar amb:\r\n' ExecuteQuery \"INSERT INTO CamaraEnvasadoPreenvasado VALUES ('test', 'borrar')\"\r\nSub ExecuteQuery(strSQL As String)\r\n Dim cnn As ADODB.Connection\r\n Dim lngAffected As Long\r\n \r\n ' Open the connection.\r\n Set cnn = CurrentProject.Connection\r\n\r\n ' Execute the query.\r\n cnn.Execute CommandText:=strSQL, _\r\n RecordsAffected:=lngAffected, _\r\n Options:=adExecuteNoRecords\r\n\r\n 'Debug.Print \"Records Affected = \" & lngAffected\r\n \r\n ' Close connection and destroy object variables.\r\n cnn.Close\r\n Set cnn = Nothing\r\nEnd Sub\r\n\r\n' TransformDB: Agafa els registres de Frustas_Hortalizas amb el\r\n' camp \"checkField\" a true i guarda el num. suscriptor junt amb\r\n' \"idEnvase\" a la taula RelacionEnvase\r\n' Provar amb: TransformDB \"Pre_codigo_PLU\", 25\r\nSub TransformDB(checkField As String, idEnvase As Integer)\r\n Dim cnnDB As ADODB.Connection\r\n Dim recordSt As New ADODB.Recordset\r\n Dim strSQL As String\r\n Dim idSuscriptor As String\r\n Dim i As Integer\r\n \r\n ' Connectar a la BD actual:\r\n Set cnnDB = CurrentProject.Connection\r\n\r\n ' Obtenim els registres que tenen el camp indicat a true\r\n strSQL = \"SELECT * FROM Frustas_Hortalizas WHERE \" & checkField & \" = -1\"\r\n With recordSt\r\n Set .ActiveConnection = cnnDB\r\n .CursorType = adOpenKeyset\r\n .CursorLocation = adUseClient\r\n .LockType = adLockOptimistic\r\n .Open strSQL\r\n End With\r\n \r\n ' Insertar a la taula RelacionEnvases una relacio entre\r\n ' l'idSusbcriptor dels registres trobats i el idEnvas corresponent\r\n ' al camp que hem comprovat\r\n i = 0\r\n If Not recordSt.EOF Then\r\n recordSt.MoveFirst\r\n End If\r\n Do While Not recordSt.EOF\r\n idSuscriptor = recordSt.Fields(\"Numero de suscriptor\").Value\r\n ' Insertar amb ID de \"envasado\" 26\r\n ExecuteQuery \"INSERT INTO RelacionEnvases VALUES ('\" & idSuscriptor & \"','\" & idEnvase & \"')\"\r\n i = i + 1\r\n recordSt.MoveNext\r\n Loop\r\n 'Debug.Print \"Fields \" & recordSt.Fields.Count\r\n Debug.Print \"Found \" & i & \" registers with field \" & checkField & \" = true. idEnvase = \" & idEnvase\r\n ' Close Connection object and destroy object variable.\r\n cnnDB.Close\r\n Set cnnDB = Nothing\r\nEnd Sub\r\n<\/pre>\nMientras editamos el modulo en MS Access podemos pulsar CTRL+G para mostrar la ventana “Inmediato” y ahi se pueden ejecutar las funciones.<\/p>\n","protected":false},"excerpt":{"rendered":"
Entre ayer y hoy he aprendido a utilizar VBA en Access para realizar unas modificaciones en unas bases de datos, lo pongo aqui como referencia por si vuelvo a necesitar hacer algo del estilo: ‘ ExecuteQuery: Realitza una modificaci\u00f3 a la BD ‘ Provar amb: ‘ ExecuteQuery “INSERT INTO CamaraEnvasadoPreenvasado VALUES (‘test’, ‘borrar’)” Sub ExecuteQuery(strSQL … Continue reading Visual Basic for Applications (MS Access)<\/span>