13/02/2008, 15:51
|
 | Colaborador | | Fecha de Ingreso: enero-2002 Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 23 años, 3 meses Puntos: 146 | |
| Re: Cargar fichero en Commantext
Casi lo tienes
Sería algo como esto:
Código:
<%
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("c:\query.sql", 1)
sReadAll = objTextFile.ReadAll
objTextFile.Close
set con = Server.CreateObject("ADODB.Connection")
ConnString = "Provider=SQLNCLI;Server=192.168.0.1;Database=Pruebas;Uid=login;Pwd=password;Initial Catalog=Pruebas"
Con.CommandTimeout = 0
con.Open ConnString
set Cmd=Server.CreateObject("ADODB.Command")
Cmd.ActiveConnection=con
Cmd.CommandText=sReadAll
Cmd.Execute
Response.Write "Comando executado: <br>"
Response.Write sReadAll
con.close
%>
Saludos |