PdcDBQuery.GetField: Difference between revisions
Jump to navigation
Jump to search
No edit summary |
|||
Line 23: | Line 23: | ||
msgbox objQuery.GetField("KL_NAAM") | msgbox objQuery.GetField("KL_NAAM") | ||
else | else | ||
msgbox "Error:" & vbCrLf & pdc.LastError & vbCrLf & vbCrLf & "SQL:" & vbCrLf & | msgbox "Error:" & vbCrLf & pdc.LastError & vbCrLf & vbCrLf & "SQL:" & vbCrLf & objQuery.SQL | ||
end if | end if | ||
End Sub | End Sub |
Latest revision as of 15:04, 27 December 2021
Declaration
GetField(FieldName as String) as Variant
Description
Returns the value of the supplied fieldname for the current record
Notes
This method will return a field from a record.
Code example
This code example executes a SQL statement and returns the customer name of the first record.
Sub sExecuteQuery
dim objQuery
dim intCnt
set objQuery = pdc.Database.OpenQuery(pdcConData)
objQuery.SQL = "SELECT * FROM LK_KLANT"
if objQuery.Execute then
objQuery.FirstRecord
msgbox objQuery.GetField("KL_NAAM")
else
msgbox "Error:" & vbCrLf & pdc.LastError & vbCrLf & vbCrLf & "SQL:" & vbCrLf & objQuery.SQL
end if
End Sub
Availability
Available since September 2008 (from version 3.8)