PdcDBQuery.FieldNames

Declaration

FieldNames as IStrings

Description

Returns the list of fieldnames for the supplied query.

Code example

This code example returns the first fieldname of the query ("KL_NAAM").

Sub sExecuteQuery
dim objQuery
dim intCnt

  set objQuery = pdc.Database.OpenQuery(pdcConData)
  objQuery.SQL = "SELECT * FROM LK_KLANT"

  if objQuery.Execute then
    msgbox objQuery.FieldNames(0)
  else
    msgbox "Error:" & vbCrLf & pdc.LastError & vbCrLf & vbCrLf & "SQL:" & vbCrLf & qryCustomer.SQL
  end if
End Sub