hola a todos espero que me puedan ayudar lo que trato de hacer es conectarme a una base de datos informix para despues insertarla en una base de datos sql server pero me da una error al querer insertar en el sql sever
pero la parte de llamar a algun registro de informix me muestra los registros
funciona bien, este es el codigo para ver si alguien me puede help me
<%
Dim myArray(100,50)
Dim x
Dim i
Dim StrCommnad
set fso = createobject("scripting.filesystemobject")
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.ConnectionString = "DSN=sam;UID=ssmsa;PWD=xxxxx"
objConnection.ConnectionTimeout = 0
objConnection.Open
set objtabla=server.CreateObject("ADODB.recordset")
'varAux = Now()
set objtabla=objConnection.Execute("SELECT * FROM sapat001 where codpacie=99922112")
Set act = fso.CreateTextFile(server.mappath("pacientessam.tx t"), true)
i=1
do while not objtabla.EOF
myarray(i,0) = objtabla.Fields(0)
myarray(i,1) = objtabla.Fields(1)
myarray(i,2) = objtabla.Fields(2)
myarray(i,3) = objtabla.Fields(3)
myarray(i,4) = objtabla.Fields(4)
myarray(i,5) = objtabla.Fields(5)
myarray(i,6) = objtabla.Fields(6)
myarray(i,7) = objtabla.Fields(7)
myarray(i,8) = objtabla.Fields(8)
myarray(i,9) = objtabla.Fields(9)
myarray(i,10) = objtabla.Fields(10)
myarray(i,11) = objtabla.Fields(11)
i=i+1
if ( i=100 ) then i=99 end if
objtabla.MoveNext
loop
objConnection.Close
Dim objConnection
Dim strCommand
Dim iCont
Dim strFecIng
Dim varAux
Dim idusuario
Dim vcont
Dim RsPaciente
Dim Paciente
set objBase=server.CreateObject("ADODB.Connection")
objbase.Open "PROVIDER=SQLOLEDB;DATA SOURCE=11.11.11.11;UID=sa;PWD=xxxxxxx;DATABASE=nik ol"
for x = 1 to i
Response.Write(myarray(x,0) & "|" &myarray(x,1)& "|" &myarray(x,2) & "|" &myarray(x,3)& "|" &myarray(x,4)& "|" &myarray(x,5)& "|" &myarray(x,6)& "|" &myarray(x,7)& "|" &myarray(x,8)& "|" &myarray(x,9)& "|"&myarray(x,10)& "|" &myarray(x,11))&"<br>"
act.WriteLine(myarray(x,i))
'varAux = Now()
'strFecIng = Year(myarray(x,7)) & "/" & Month(myarray(x,7)) & "/" & Day(myarray(x,7)) & " 10:00"
StrCommand = "insert into tblPacientes values("& myarray(x,0)& " ," &_
"'" & myarray(x,1) & "'," &_
"" & myarray(x,2) & "," &_
"'" & myarray(x,3) & "'," &_
"" & myarray(x,4) & "," &_
"" & myarray(x,5) & "," &_
"'" & myarray(x,6) & "'," &_
"'" & myarray(x,7) & "'," &_
"'" & myarray(x,8) & "'," &_
"'" & myarray(x,9) & "'," &_
"'" & myarray(x,10) & "'," &_
"'" & myarray(x,11) & "')"
Response.Write(strCommand)
Set RsPaciente = Server.CreateObject("ADODB.Recordset")
Set RsPaciente = objConnection.Execute(strCommand)
paciente = rspaciente(0)
next
Response.Write("Se han copiado " & x & " registros.")
%>
<%
'Response.AddHeader "Refresh", "5"
%>
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set RS = FSO.GetFile(Server.MapPath("pacientessam.txt"))
modificado = RS.DateLastModified
%>
Actualizacion de la tabla pacientes el: <%=(modificado)%>
<%
Set RS = Nothing
Set FSO = Nothing
%>
el error que me da:Script error detected at line 74.
Source line: Set RsPaciente = objConnection.Execute(strCommand)
Description: La operación no está permitida si el objeto está cerrado.