Adodb.connection, salida

07/07/2003 - 15:28 por _JuanE | Informe spam
que tal, utilizo el siguiente codigo para generar una salida en excel,
funciona bien, pero no en todas las máquinas, algunos utilizan office97
y otros office2000 y tambien funciona.
He actualizado en las maquinas del los clientes el mdac_, que mas me puede
faltar????, si alguien sabe de algo sería de mucha ayuda.


ruta="C:\ALCIA\ESVLECTURA\DATOS\SALIDA\"
archivo="nuevo"

Set ADOTMPConnect = New ADODB.Connection

ADOTMPConnect.Open "Provider=MSDASQL.1;Persist Security Info=False;Data
Source=Excel Files;Initial Catalog=" & Ruta & Archivo, "admin", , -1


sql ="CREATE TABLE Informe (LIBRO VARCHAR(25) , SERVICIOS LONG , LECTOR LONG
, OBSV VARCHAR(14) )"

ADOTMPConnect.Execute SQL

sql ="INSERT INTO Informe (LIBRO , SERVICIOS , LECTOR , OBSV ) VALUES
(80001.00, 148.00, 141.00, '')"

ADOTMPConnect.Execute SQL



Saludos

JuanE!, desde Chile
 

Leer las respuestas

#1 Victor Koch
07/07/2003 - 15:49 | Informe spam
A partir del ADO o MDAC_Type 2.6 no se incluye el Jet ni los SP del Jet,
esto quiere decir que si no tenias instalado previamente una version
anterior del ADO no tenes el Jet, consulta la pagina de M$ para bajarte el
Jet y los SP.

Un saludo, Víctor Koch.


"_JuanE" <no+ escribió en el mensaje
news:#
que tal, utilizo el siguiente codigo para generar una salida en excel,
funciona bien, pero no en todas las máquinas, algunos utilizan office97
y otros office2000 y tambien funciona.
He actualizado en las maquinas del los clientes el mdac_, que mas me puede
faltar????, si alguien sabe de algo sería de mucha ayuda.


ruta="C:\ALCIA\ESVLECTURA\DATOS\SALIDA\"
archivo="nuevo"

Set ADOTMPConnect = New ADODB.Connection

ADOTMPConnect.Open "Provider=MSDASQL.1;Persist Security Info=False;Data
Source=Excel Files;Initial Catalog=" & Ruta & Archivo, "admin", , -1


sql ="CREATE TABLE Informe (LIBRO VARCHAR(25) , SERVICIOS LONG , LECTOR


LONG
, OBSV VARCHAR(14) )"

ADOTMPConnect.Execute SQL

sql ="INSERT INTO Informe (LIBRO , SERVICIOS , LECTOR , OBSV ) VALUES
(80001.00, 148.00, 141.00, '')"

ADOTMPConnect.Execute SQL



Saludos

JuanE!, desde Chile


Preguntas similares