Foros del Web » Programación para mayores de 30 ;) » Programación General »

Visualizacion de resultados de una consulta a una BD

Estas en el tema de Visualizacion de resultados de una consulta a una BD en el foro de Programación General en Foros del Web. Hola foreros!!!!! Que tal andan ustedes??? Bueno, vengo con una preguntilla, que no me deja dormir......... Tengo una aplicacion en VB6 que realiza una consulta ...
  #1 (permalink)  
Antiguo 27/07/2004, 02:34
 
Fecha de Ingreso: abril-2002
Ubicación: Euskal Herria
Mensajes: 95
Antigüedad: 22 años
Puntos: 0
Mensaje Visualizacion de resultados de una consulta a una BD

Hola foreros!!!!!
Que tal andan ustedes???

Bueno, vengo con una preguntilla, que no me deja dormir.........

Tengo una aplicacion en VB6 que realiza una consulta a una BD en Access 97 con DAO. Quiero que esa consulta se visualice en un Grid... pero mi problema es como realizarlo....¿sabe alguien darme alguna indicacion al respecto? Os lo agradeceria mucho...
Un saludo
  #2 (permalink)  
Antiguo 27/07/2004, 14:03
Avatar de GeoAvila
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Antigua Guatemala
Mensajes: 4.032
Antigüedad: 20 años, 5 meses
Puntos: 53
este es un ejemplo espero que te sirva
Código:
Dim A As Integer
          Dim db As Connection
          Dim adoPrimaryRS As Recordset
          Set db = New Connection
          Set adoPrimaryRS = New Recordset
          db.CursorLocation = adUseClient
          db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & BasePath
          adoPrimaryRS.Open "select * from consulta_detalle_cargos where id_registro=" & FacRegistro & "", db, adOpenStatic, adLockOptimistic
          If adoPrimaryRS.BOF = False Then
          Me.ListadoDetalleFactura.Rows = adoPrimaryRS.RecordCount + 1
          adoPrimaryRS.MoveFirst
                For A = 1 To adoPrimaryRS.RecordCount
                Me.ListadoDetalleFactura.TextMatrix(A, 1) = adoPrimaryRS!id_servicio
                Me.ListadoDetalleFactura.TextMatrix(A, 2) = adoPrimaryRS!nombre
                Me.ListadoDetalleFactura.TextMatrix(A, 3) = adoPrimaryRS!cantidad
                Me.ListadoDetalleFactura.TextMatrix(A, 4) = adoPrimaryRS!Total
                adoPrimaryRS.MoveNext
                Next A
                
          End If
listadodetallefactura es el MsFlexgrid
__________________
* Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ
Sitio http://www.geoavila.com twitter: @GeoAvila
  #3 (permalink)  
Antiguo 27/07/2004, 14:04
Avatar de GeoAvila
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Antigua Guatemala
Mensajes: 4.032
Antigüedad: 20 años, 5 meses
Puntos: 53
por cierto sBase el Path de la base de datos.. se fue en el mensaje..

nos vemos
__________________
* Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ
Sitio http://www.geoavila.com twitter: @GeoAvila
  #4 (permalink)  
Antiguo 03/08/2004, 01:00
 
Fecha de Ingreso: abril-2002
Ubicación: Euskal Herria
Mensajes: 95
Antigüedad: 22 años
Puntos: 0
Mensaje

Buenas!!
Aqui estoy de nuevo. Era para deciros que me salio el problemilla que tenía. Lo he resuelto con el MSFLEGrid,... asi que muchas gracias por vuestra ayuda...
Ahora tengo otra cosilla...¿como puedo imprimir el contenido del MSFLEXGrid?
Saludos,
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 14:37.