http://wiki.ecibemet.com/index.php?action=history&feed=atom&title=PdcDBQuery.LastAutoIncValuePdcDBQuery.LastAutoIncValue - Revision history2026-05-06T18:09:39ZRevision history for this page on the wikiMediaWiki 1.43.1http://wiki.ecibemet.com/index.php?title=PdcDBQuery.LastAutoIncValue&diff=2988&oldid=prevArjan: Created page with "== Declaration == LastAutoIncValue as integer == Description == Returns the last value of the autoincrement field that is created by the query == Notes == This method Retu..."2017-09-11T20:21:42Z<p>Created page with "== Declaration == LastAutoIncValue as integer == Description == Returns the last value of the autoincrement field that is created by the query == Notes == This method Retu..."</p>
<p><b>New page</b></p><div>== Declaration ==<br />
LastAutoIncValue as integer<br />
<br />
== Description ==<br />
Returns the last value of the autoincrement field that is created by the query <br />
<br />
== Notes ==<br />
This method Returns the last value of the autoincrement field that is created by the query.<br />
<br />
== Code example ==<br />
This code example executes a SQL statement and returns the LastAutoIncValue . <br />
<br />
<source lang="vb"><br />
Sub sExecuteQuery<br />
dim objQuery<br />
dim intCnt<br />
<br />
set objQuery = pdc.Database.OpenQuery(pdcConData)<br />
for intCnt = 0 tot 12<br />
objQuery.SQL = "INSERT INTO USERTABLE (USER1) VALUES ('TestField')"<br />
if objQuery.Execute then<br />
msgbox objQuery.LastAutoIncValue<br />
else<br />
msgbox "Error:" & vbCrLf & pdc.LastError & vbCrLf & vbCrLf & "SQL:" & vbCrLf & objQuery.SQL<br />
end if<br />
next<br />
<br />
End Sub<br />
</source><br />
<br />
== Availability ==<br />
Available since September 2017(from version 5.3)</div>Arjan