PdcDBQuery.GetField: Difference between revisions

From External Bemet Wiki
Jump to navigation Jump to search
No edit summary
MKob (talk | contribs)
 
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 & qryCustomer.SQL
     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)