error en insert into en dbase III
Publicado por KARL (10 intervenciones) el 29/06/2013 19:20:50
Hola estoy programando una conexion a una bse de datos dbase III , y consigo borrar una tabla pero no insertar en ella cuando el origen es excel..
Set base = CreateObject("ADODB.Connection")
base.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & basedirectorio2 & ";" & _
"Extended Properties=""DBASE III;"";"
ok : base.Execute "DELETE FROM XDiario"
ok : base.Execute "INSERT INTO XDiario(ASIEN) VALUES ('1')"
no ok : insert into tabla (campo) select campo1 FROM [Excel 8.0;Database=" & ActiveWorkbook.FullName & "].[hoja$]
Esta ultima linea si funciona cuando inserto en una tabla de access (cambiando la propiedad de conexion a acess)
alguna idea?
Set base = CreateObject("ADODB.Connection")
base.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & basedirectorio2 & ";" & _
"Extended Properties=""DBASE III;"";"
ok : base.Execute "DELETE FROM XDiario"
ok : base.Execute "INSERT INTO XDiario(ASIEN) VALUES ('1')"
no ok : insert into tabla (campo) select campo1 FROM [Excel 8.0;Database=" & ActiveWorkbook.FullName & "].[hoja$]
Esta ultima linea si funciona cuando inserto en una tabla de access (cambiando la propiedad de conexion a acess)
alguna idea?
Valora esta pregunta
0