PdcDBQuery.Execute: Difference between revisions

From External Bemet Wiki
Jump to navigation Jump to search
No edit summary
No edit summary
 
Line 14: Line 14:
Sub sExecuteQuery
Sub sExecuteQuery
dim objQuery
dim objQuery
dim intCnt


   set objQuery = pdc.Database.OpenQuery(pdcConData)
   set objQuery = pdc.Database.OpenQuery(pdcConData)
Line 22: Line 21:


   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 13:17, 30 May 2018

Declaration

Execute as Boolean

Description

Executes the SQL statement

Notes

This methos will execute the provided SQL statement. There is no difference between a SELECT-statement and other statements.

Code example

This code example executes a SQL statement.

Sub sExecuteQuery
dim objQuery

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

  if objQuery.Execute then

  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)