INSERTAR EN ACCESS....urgente!!!
Publicado por Guay (69 intervenciones) el 02/09/2002 12:52:38
Hola foro!
Estaba intentando exportar desde una hoja de Excel a una tabla de access automaticamente desde VB. Tengo este codigo que en principio era para pasar de access a excel y queria cambiarlo. Lo he intentado cambiar pero sin mucha fortuna y me ha quedado de esta forma pero me da un error en la clausula "FROM". Algun alma caritativa me podria decir donde fallo o alguna otra forma de hacerlo? El codigo es el siguiente:
Private Sub Command1_Click()
'Deberemos referenciar DAO
Dim strExcelFile As String
Dim strWorksheet As String
Dim strDB As String
Dim strTable As String
Dim objDB As Database
'Cambiaremos estos datos de acuerdo a nuestras necesidades
strExcelFile = "C:\TEMP.xls"
strWorksheet = "Hoja1"
strDB = "O:\camiones\Base Datos\Copia de bdtn.mdb"
strTable = "ExcelFinal"
Set objDB = OpenDatabase(strDB)
objDB.Execute " SELECT * INTO [" & strTable & "] FROM " & " [Excel 8.0; DATABASE=" & strExcelFile & "].[" & strWorksheet & "]"
objDB.Close
Set objDB = Nothing
End Sub
Graciaaaaaaaaaaaas!
Estaba intentando exportar desde una hoja de Excel a una tabla de access automaticamente desde VB. Tengo este codigo que en principio era para pasar de access a excel y queria cambiarlo. Lo he intentado cambiar pero sin mucha fortuna y me ha quedado de esta forma pero me da un error en la clausula "FROM". Algun alma caritativa me podria decir donde fallo o alguna otra forma de hacerlo? El codigo es el siguiente:
Private Sub Command1_Click()
'Deberemos referenciar DAO
Dim strExcelFile As String
Dim strWorksheet As String
Dim strDB As String
Dim strTable As String
Dim objDB As Database
'Cambiaremos estos datos de acuerdo a nuestras necesidades
strExcelFile = "C:\TEMP.xls"
strWorksheet = "Hoja1"
strDB = "O:\camiones\Base Datos\Copia de bdtn.mdb"
strTable = "ExcelFinal"
Set objDB = OpenDatabase(strDB)
objDB.Execute " SELECT * INTO [" & strTable & "] FROM " & " [Excel 8.0; DATABASE=" & strExcelFile & "].[" & strWorksheet & "]"
objDB.Close
Set objDB = Nothing
End Sub
Graciaaaaaaaaaaaas!
Valora esta pregunta
0