Access - Problema con Variables en sentencia INSERT TO

   
Vista:

Problema con Variables en sentencia INSERT TO

Publicado por alex (1 intervención) el 22/11/2009 04:37:47
Hola, tengo un gran problema, tengo varias bases de datos todas iguales, lo que quiero hacer es poner toda esta informacion en una sola base de datos, para lo cual estoy tratando de importar los datos de cada una de ellas.
Estoy usando un modulo para hacer el programita, en el cual uso la sentencia INSERT TO,, el problema que tengo segun se observa abajo, es que quiero pasar la ruta (path) de donde se van a importar/copiar los datos por medio de una variable, pero la cual no logro que funcione ya probe concatenando con los signos apostrofe('),corchetes([]), signo de suma(+) y no logro hacerlo funcionar,, me marca error tras error.

Ahora bien tambien quisiera poder usar la palabra WHERE para limitar los datos, también por medio de una variable, pero tampoco logro hacer que funcione.

Esto es algo de lo que ya he probado y no funciona,,,

'SQLText = "INSERT INTO tbl_Customers_Accions_Auxiliar SELECT tbl_Customers_Accions.* FROM tbl_Customers_Accions WHERE Salesman_Name = '" & strSalesmanName & "' IN '" & strArchivo & "'"
'SQLText = "INSERT INTO tbl_Customers_Accions_Auxiliar SELECT tbl_Customers_Accions FROM tbl_Customers_Accions IN " & "' & miRuta & '"

Dim miRuta As String
Dim strSalesmanName As String
Dim varEng As String

'*****ESTO SI FUNCIONA***************************
'SQLText = "INSERT INTO tbl_Customers_Accions_Auxiliar SELECT tbl_Customers_Accions.* FROM tbl_Customers_Accions IN 'E:\LADW\Proyectos\FY2010\BI\Received\Cono Sur\miBase.mdb'"
'DoCmd.RunSQL SQLText
'************************************************

strRuta = Forms![frmImportar_paraConsolidar]!txtRuta
strSalesmanName = Forms![frmImportar_paraConsolidar]!txtSalesman

SQLText = "INSERT INTO tbl_Customers_Accions_Auxiliar SELECT tbl_Customers_Accions FROM tbl_Customers_Accions IN & miruta "
'Debug.Print SQLText
DoCmd.RunSQL SQLText

cmdImportar_Click_ErroresModulo:
If Err.Number = 0 Then
Exit Function
Else
MsgBox "Error " & Err.Number & " en proc. functionImportarTablas de Documento VBA (" & Err.Description & ")", vbOKOnly + vbCritical
End If
End Function

Uso Access 2002 con win xp,, de antemano agradezco mucho su amable colaboracion.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder