listar tabla con recordset de access 97

xsebas
15 de Enero del 2004
tengo una base de datos y necesito listar unos campos de una tabla fila a fila mediante codigo de VB. Lo estoy intentando con un recorset pero no me acaba de salir. Me poseis explicar como hacerlo o pasarme el codigo de como usar un recorset?

muchas gracias compañeros

Alfredo
15 de Enero del 2004
Dim Rec As Recordset
Dim CodRet, linea As Integer
Dim Resultado As Currency

CodRet = Val(TxtItem1)
strSQL = "SELECT fecha, cancha, hora, nropartido, entradas, gpremio AS Valor "
strSQL = strSQL & "FROM planican "
strSQL = strSQL & "WHERE (gpremio > 0 ) and (right$(nropartido,1)=" & NroTorneo & ")"
strSQL = strSQL & "Order BY fecha "
Set Rec = Bases1.OpenRecordset(strSQL)
If Not Rec.EOF Then
Rec.MoveLast
Rec.MoveFirst
registros = Rec.RecordCount + 1
Grilladata.Rows = registros ' tengo disenada una grilla comun
linea = 1
Resultado = 0
Do While Not Rec.EOF
Arma_linea linea, Resultado, Rec 'escribe la linea
linea = linea + 1
Rec.MoveNext
Loop
Else
Limpia_Grilla 'vacia la grilla (grid o flexgrid)
End If

Este es un fragmento de codigo VB donde colecto informacion de una tabla con SQL y la trasnfiero a un recordset para luego trabajar registro por registro

un campo de registro es rec!campo
Espero que te sirva