RE:CONEXION INFORMIX CON VISUAL BASIC
Publicado por
Juan Carlos (1 intervención) el 10/10/2001 18:08:05
Primeramente tienes que instalar los ODBC de Informix, despues crear tu DSN y con eso puedes conectarte al Informix muy Facil. Este metodo es por medio de RDO, tambien se puede por ADO. Si tienes alguna duda escribeme.
Dim EN As rdoEnvironment 'Abre el Ambientepara la Conexion Remota Dim Db As rdoConnection 'Abre la Conexion al Servidor
Set EN = rdoEngine.rdoEnvironments(0)
EN.CursorDriver = rdUseOdbc
EN.LoginTimeout = 320
' Aqui haces la conexion al servidor informix por medio de ODBC, en este caso GStrDBServerConect es la variable donde almaceno todos los datos del DSN (Nombre del DSN,Usuario,Password,Nombre de la Base de Datos etc.)
' Hacer la conexion al servidor de Informix
Set Db = EN.OpenConnection("", rdDriverNoPrompt, False, GStrDBServerConect, rdAsyncEnable)
Do While Db.StillConnecting
DoEvents
Loop
' Con esto abres ya una tabla que se encuentra dentro del servidor de Informix, en este caso es Extr_Ado
Set RecExtrAdo = Db.OpenResultset("SELECT * FROM extr_ado", rdOpenStatic, rdConcurRowVer, rdAsyncEnable)
Do While RecExtrAdo.StillExecuting
DoEvents
Loop
Espero te ayude estas lineas de codigo.