StillExecuting
Hola buenas estoy haciendo una aplicacion que trata de introducir datos de un fichero de texto plano a una base de datos sql server.
Tengo un problema cuando lleva un rato ejecutandose la aplicaci贸n, 茅sta se cuelga, busque por un manual y encontr茅 "StillExecuting", el caso es que he consegido encontrar el error con StillExecuting:
SQLL7 = "select * from alojamientos where alojamientos_cif ='" + CStr(cif) + "' "
Set RsODBC_cif = MiConexion.OpenRecordset(SQLL7, dbOpenDynamic, dbRunAsync, dbPessimistic)
While RsODBC_cif.StillExecuting
MsgBox ("aqui esta el fallo")
Wend
Evidentemente se cuelga el programa, mi pregunta es ¿Que puedo hacer para que no se cuelgue y poder ejecutar el resto de la aplicaci贸n?
Muchas gracias de antemano.
Tengo un problema cuando lleva un rato ejecutandose la aplicaci贸n, 茅sta se cuelga, busque por un manual y encontr茅 "StillExecuting", el caso es que he consegido encontrar el error con StillExecuting:
SQLL7 = "select * from alojamientos where alojamientos_cif ='" + CStr(cif) + "' "
Set RsODBC_cif = MiConexion.OpenRecordset(SQLL7, dbOpenDynamic, dbRunAsync, dbPessimistic)
While RsODBC_cif.StillExecuting
MsgBox ("aqui esta el fallo")
Wend
Evidentemente se cuelga el programa, mi pregunta es ¿Que puedo hacer para que no se cuelgue y poder ejecutar el resto de la aplicaci贸n?
Muchas gracias de antemano.
