codigo activex en dts-->tiempo de espera excedido¿?

Hola a todos...
El codigo es el siguiente:


Function Main()
dim myConn
dim myRecordset
dim iRowCount

' instantiate the ADO objects
set myConn = CreateObject("ADODB.Connection")
set myRecordset = CreateObject("ADODB.Recordset")
myConn.Open = "Provider=SQLOLEDB.1;Data Source=(local); Initial
Catalog=bmbweb;user id = 'sa';password='PDAPESDB'"

mySQLCmdText = "Select F1,F7 from cancelacionbis where F1
="&DTSSource("F1")

myRecordset.Open mySQLCmdText, myConn


set Flds = myRecordset.Fields
set iF1 = Flds("F1")
set iF2 = Flds("F7")

' MsgBox "F1 is: " & iF1.Value
' MsgBox "F2 is: " & iF2.Value

If (iF1.Value<> DTSSource("F1").value or iF2.value <>
DTSSource("F7").value)Then

'mySQLCmdText = "Insert into cancelacionbis (F1,F7) values ("&
DTSSource("F1")&","& DTSSource("F7")&")"

MsgBox "Es diferente "
End if

DTSDestination("F1") = DTSSource("F1")
DTSDestination("F7") = DTSSource("F7")
DTSDestination("F5") = DTSSource("F5")
DTSDestination("F3") = DTSSource("F3")
DTSDestination("F9") = DTSSource("F9")
DTSDestination("F11") = DTSSource("F11")
Main = DTSTransformStat_OK
End Function


hay alguna forma de mejorarlo?
Por que si lo pruebo desdeel disñador si funciona y si ejcuto el DTS me da
el error'

Un saludo y gracias

Hola, podrias aumentar el tiempo de Timeout del ADO, creo que la propiedad
se llama CommandTimeOut


Salu2
Maxi


"Xavi" escribió en el mensaje
news:
> Hola a todos...
> El codigo es el siguiente:
>
>
> Function Main()
> dim myConn
> dim myRecordset
> dim iRowCount
>
> ' instantiate the ADO objects
> set myConn = CreateObject("ADODB.Connection")
> set myRecordset = CreateObject("ADODB.Recordset")
> myConn.Open = "Provider=SQLOLEDB.1;Data Source=(local); Initial
> Catalog=bmbweb;user id = 'sa';password='PDAPESDB'"
>
> mySQLCmdText = "Select F1,F7 from cancelacionbis where F1
> ="&DTSSource("F1")
>
> myRecordset.Open mySQLCmdText, myConn
>
>
> set Flds = myRecordset.Fields
> set iF1 = Flds("F1")
> set iF2 = Flds("F7")
>
> ' MsgBox "F1 is: " & iF1.Value
> ' MsgBox "F2 is: " & iF2.Value
>
> If (iF1.Value<> DTSSource("F1").value or iF2.value <>
> DTSSource("F7").value)Then
>
> 'mySQLCmdText = "Insert into cancelacionbis (F1,F7) values ("&
> DTSSource("F1")&","& DTSSource("F7")&")"
>
> MsgBox "Es diferente "
> End if
>
> DTSDestination("F1") = DTSSource("F1")
> DTSDestination("F7") = DTSSource("F7")
> DTSDestination("F5") = DTSSource("F5")
> DTSDestination("F3") = DTSSource("F3")
> DTSDestination("F9") = DTSSource("F9")
> DTSDestination("F11") = DTSSource("F11")
> Main = DTSTransformStat_OK
> End Function
>
>
> hay alguna forma de mejorarlo?
> Por que si lo pruebo desdeel disñador si funciona y si ejcuto el DTS me da
> el error'
>
> Un saludo y gracias

si lo hago contra un fichero de texto funciona bien.por que?
O sea quiero decir que la exportacion la hago sobre un fichero de texto en
vez de sobre una tabla de la base de datos

"Maxi" wrote:

Hola, podrias aumentar el tiempo de Timeout del ADO, creo que la
propiedad
se llama CommandTimeOut


Salu2
Maxi


"Xavi" escribió en el mensaje
news:
> Hola a todos...
> El codigo es el siguiente:
>
>
> Function Main()
> dim myConn
> dim myRecordset
> dim iRowCount
>
> ' instantiate the ADO objects
> set myConn = CreateObject("ADODB.Connection")
> set myRecordset = CreateObject("ADODB.Recordset")
> myConn.Open = "Provider=SQLOLEDB.1;Data Source=(local); Initial
> Catalog=bmbweb;user id = 'sa';password='PDAPESDB'"
>
> mySQLCmdText = "Select F1,F7 from cancelacionbis where F1
> ="&DTSSource("F1")
>
> myRecordset.Open mySQLCmdText, myConn
>
>
> set Flds = myRecordset.Fields
> set iF1 = Flds("F1")
> set iF2 = Flds("F7")
>
> ' MsgBox "F1 is: " & iF1.Value
> ' MsgBox "F2 is: " & iF2.Value
>
> If (iF1.Value<> DTSSource("F1").value or iF2.value <>
> DTSSource("F7").value)Then
>
> 'mySQLCmdText = "Insert into cancelacionbis (F1,F7) values ("&
> DTSSource("F1")&","& DTSSource("F7")&")"
>
> MsgBox "Es diferente "
> End if
>
> DTSDestination("F1") = DTSSource("F1")
> DTSDestination("F7") = DTSSource("F7")
> DTSDestination("F5") = DTSSource("F5")
> DTSDestination("F3") = DTSSource("F3")
> DTSDestination("F9") = DTSSource("F9")
> DTSDestination("F11") = DTSSource("F11")
> Main = DTSTransformStat_OK
> End Function
>
>
> hay alguna forma de mejorarlo?
> Por que si lo pruebo desdeel disñador si funciona y si ejcuto el DTS me
> da
> el error'
>
> Un saludo y gracias