
DM API OBJECTS 113
PCDSQL
oSelectSQL.GetColumnValue(j))
Next j
Next i
End Sub
Private Sub Form_Load()
'Set the default values for the labels above
'the columns.
lblColumnName(0).Caption = "First Column"
lblColumnName(1).Caption = "Second Column"
'Set the library that the query will use.
oSelectSQL.SetLibrary("MyLibrary")
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim nResult As Long
Dim sBuf As String
'Clear the result set as the object goes
'out of scope.
nResult = oSelectSQL.ReleaseResults
End Sub
Kommentare zu diesen Handbüchern