Edgar
06 de Agosto del 2004

Hola colega, en esta oportunidad me encuentro en urgencia ya que tengo un gran problema al utilizar el msflexgrid. Mi sistema lo realize hace unos meses pero me estan solicitando agregarle un modulo de reportes. Mi idea fundamental es colocar un msflexgrid para que el usuario observe la data y luego pueda mandar a crear el reporte. El problema radica en que mi sistema esta echo en DAO pero NO utilizo data control, toda la codificacion la realizo manualmente. Desearia saber como puedo hacer para mostrar mi data en el msflexgrid (ojo no utilizo control data), como utilizo la instruccion datasource y si existe el recordsource? que codificaci贸n deberia utilizar para conectar mi data con el msflexgrid? si tengo consultas sql donde la especificaria?? de verdad que agradezco mucho de tu ayuda colega porque me veo en urgencia... Muchas Gracias

El codigo que te presento a continuaci贸n es con el que realizo mi conexion la cual funciona perfectamente:
Public DataBase As DataBase
Public avc1 As Recordset

Set DataBase = OpenDatabase(App.Path & "avc1.mdb")
Set avc1 = DataBase.OpenRecordset("avc1", dbOpenTable)
avc1.Index = "PrimaryKey"

Muchas Gracias de antemano =)

Ironfx
06 de Agosto del 2004

yo hice esto sin utilizar un data ni un adodc en un msflexgrid ojala te sirva

Const sPathBase As String = _
"D:\PracticaVBasic\credcon.mdb"
Set db = OpenDatabase(sPathBase)
Dim fila, columna As Integer
fila = 1
columna = 1
Set rs = db.OpenRecordset("SELECT * FROM Clientes where clave = 40", dbOpenDynaset)
While Not rs.EOF
MSFlexGrid1.TextMatrix(fila, columna) = rs("clave")
MSFlexGrid1.TextMatrix(fila, columna + 1) = rs("empresa")
rs.MoveNext
fila = fila + 1
Wend