SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Bases de Datos => Mensaje iniciado por: iax0r en Viernes 5 de Junio de 2009, 17:29

Título: Cargar Datos desde Informix a en VB 6
Publicado por: iax0r en Viernes 5 de Junio de 2009, 17:29

Primero Saludar a esta comunidad, ahora comentarles que necesito extraer informacion desde una base de datos informix
el code es el siguente el que tengo, donde quiera cargar es un MSHFlexGrid (no se si es el indicado) pero por favor necesito ayuda

Código: Visual Basic

1.  
2. Dim Cad As String
3. Dim SQL As String
4. Set cn = New ADODB.Connection
5. Set rs = New ADODB.Recordset
6. 'Cad = "Driver={INFORMIX 3.82 (32 Bit)};Server=192.168.100.192;Database=tbase;Uid=ias;Pwd=ias123;"
7. Cad = "Dsn=SFI;Driver={INFORMIX 3.82 32 BIT};Host=192.168.xxx.xxx;Server=online;Service=10530;Protocol=onsoctcp;Database=tbase;Uid=xxx;Pwd=xxx;"
8. 'Cad = "Provider=Ifxoledbc.2;Persist Security info=True;Data Source=tbase@online;"
9. cn.ConnectionString = Cad
10. cn.Open Cad
11. If cn.Errors.Count > 0 Then
12. MsgBox "Error al Conectar", vbCritical
13. Else
14.         MsgBox "Conexion Establecida", vbInformation
15. End If
16. Set cm.ActiveConnection = cn
17.  cm.CommandText = "select gbdacrseg from gbdac"
18.  
19. rs.Open SQL, cm, adOpenStatic, adLockBatchOptimistic
20. Set DgUsuario.DataSource = rs
21.  
22.  

Gracias de antemano!