ADODB.Connection, salida

07/07/2003 - 15:15 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 _JuanE
07/07/2003 - 16:29 | Informe spam
perdon la pregunta era para el grupo de vb, me equivoque en la salida

saludos!

JuanE!, desde Chile
"_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