listar tabla con recordset de access 97
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
muchas gracias compañeros
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
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