envio de datos a Tabla Access
Publicado por Pablo (1 intervención) el 21/02/2007 17:07:50
Hola a tod@s:
Mi consulta es si alguienpuede ayudarme con el codigo para enviar datos desde una planilla excel de dimension n x m, es decir n campos y m datos por campo, auna tabala de acces con la misma dimensión. El codigo que utilizo es el siguiente:
Set BD = OpenDatabase("C:\Apply\BaseDatos\baselocalP")
BD.Execute " DELETE * FROM stream;"
f = 1
c = 1
While Cells(6 + f, 2).Value <> ""
n= 12
While c <13 And Cells(4 + f,c).Value <> ""
SQL= " INSERT INTO stream VALUES('" + Trim(Cells(6 + f, 2).Value) + "');"
BD.Execute (SQL)
c = c + 1
Wend
f=f+1
Wend
alguien tiene otra idea de como hacerloc on VBA (sin exportar o vincular tablas)? Se los agradecería.
Atte
Pablo
Mi consulta es si alguienpuede ayudarme con el codigo para enviar datos desde una planilla excel de dimension n x m, es decir n campos y m datos por campo, auna tabala de acces con la misma dimensión. El codigo que utilizo es el siguiente:
Set BD = OpenDatabase("C:\Apply\BaseDatos\baselocalP")
BD.Execute " DELETE * FROM stream;"
f = 1
c = 1
While Cells(6 + f, 2).Value <> ""
n= 12
While c <13 And Cells(4 + f,c).Value <> ""
SQL= " INSERT INTO stream VALUES('" + Trim(Cells(6 + f, 2).Value) + "');"
BD.Execute (SQL)
c = c + 1
Wend
f=f+1
Wend
alguien tiene otra idea de como hacerloc on VBA (sin exportar o vincular tablas)? Se los agradecería.
Atte
Pablo
Valora esta pregunta


0