GetRows

Private Sub cmdGetDataRow_Click()
'

' Mostra il metodo Getrow

'

Dim ws As Workspace
Dim db As Database
Dim rs As Recordset
'

Dim varDataRows As Variant
Dim intRows As Integer
Dim intColumns As Integer
'

Dim intLoopRow As Integer
Dim intLoopCol As Integer
Dim strMsg As String
'

Set ws = DBEngine.CreateWorkspace(App.EXEName, "admin", "")
Set db = ws.OpenDatabase("e:\devstudio\vb\biblio.mdb")

Set rs = db.OpenRecordset("SELECT * FROM Authors")
'

intRows = InputBox("Qunate righe?", "Esempio GetRows", 0)
intColumns = rs.Fields.Count
varDataRows = rs.GetRows(intRows)
'

For intLoopRow = 0 To intRows - 1
strMsg = ""
For intLoopCol = 0 To intColumns - 1
strMsg = strMsg & varDataRows(intLoopCol, _
intLoopRow) & vbCrLf
Next
MsgBox strMsg
Next
'

rs.Close
db.Close
ws.Close
'

End Sub

ZD Tips © 1998 by Mauro Rossi