Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

DataGrid y ADO

Estas en el tema de DataGrid y ADO en el foro de Visual Basic clásico en Foros del Web. Hola gente del foro! Tengo un inconveniente con un codigo en VB6. Resulta que tengo un formulario en el cual cargo en un ComboBox unos ...
  #1 (permalink)  
Antiguo 16/07/2009, 12:41
Avatar de juancace  
Fecha de Ingreso: febrero-2006
Ubicación: Zona Norte del Gran Bs As
Mensajes: 89
Antigüedad: 18 años, 2 meses
Puntos: 0
Busqueda DataGrid y ADO

Hola gente del foro!
Tengo un inconveniente con un codigo en VB6. Resulta que tengo un formulario en el cual cargo en un ComboBox unos valores de una tabla SQL, lo tomo usando ADO.
A su vez, tengo que cargar en un datagrid algunos valores según el valor seleccionado en el ComboBox.
El ComboBox se carga al cargar el formulario (en el Load) mientras que el DataGrid se debe cargar después de seleccionar el valor en el combo. Hice una rutina en VB con una consulta sencilla, pero el DataGrid no se me carga y no se por que?
Alguien me puede dar una mano?
Desde ya Muchas Gracias!
__________________
JuAnCaCe :arriba:
  #2 (permalink)  
Antiguo 16/07/2009, 13:20
 
Fecha de Ingreso: junio-2008
Ubicación: Punta Alta, Argentina
Mensajes: 82
Antigüedad: 15 años, 10 meses
Puntos: 0
Respuesta: DataGrid y ADO

puedes poner el codigo que ususte?
Asi podemos ayudarte si te falta algo...
al aire es dificil saber lo que has hecho...
  #3 (permalink)  
Antiguo 16/07/2009, 15:01
Avatar de juancace  
Fecha de Ingreso: febrero-2006
Ubicación: Zona Norte del Gran Bs As
Mensajes: 89
Antigüedad: 18 años, 2 meses
Puntos: 0
Respuesta: DataGrid y ADO

AHI VA EL CODIGO:

Public Sub CargaGrid()
Dim cnn As ADODB.Connection, rs As ADODB.Recordset
Dim sql As String
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

With rs
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
End With

cnn.Open ConString_HIS
MsgBox cnn.ConnectionString
sql = "select CON_CON_Codigo, CON_CON_Descripcio from CON_Convenio where CON_EMP_Rut = '30-54674125-3'" ' " & "'" & Texto & "'"

rs.Open sql, ConString_HIS, , , adCmdText
MsgBox sql

TxtCUIT = Texto

Set DataGridConvenio.DataSource = rs

If Not rs Is Nothing Then
If rs.State = adStateOpen Then rs.Close
End If

cnn.Close

End Sub


GRACIAS!
__________________
JuAnCaCe :arriba:
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 19:10.