Difference between revisions of "SQLCOMMIT()"
From Recital Documentation Wiki
Yvonnemilne (Talk | contribs) |
Yvonnemilne (Talk | contribs) |
||
| (One intermediate revision by one user not shown) | |||
| Line 8: | Line 8: | ||
==See Also== | ==See Also== | ||
| − | [[CREATE CONNECTION]], [[SQLCANCEL()]], [[SQLCOLUMNS()]], [[SQLCONNECT()]], [[SQLDISCONNECT()]], [[SQLEXEC()]], [[SQLGETPROP()]] [[SQLMORERESULTS()]], [[SQLPREPARE()]], [[SQLROLLBACK()]], [[SQLSETPROP()]], [[SQLSTRINGCONNECT()]], [[SQLTABLES()]] | + | [[CREATE CONNECTION]], [[SQLCANCEL()]], [[SQLCOLUMNS()]], [[SQLCONNECT()]], [[SQLDISCONNECT()]], [[SQLERROR()]], [[SQLEXEC()]], [[SQLGETPROP()]] [[SQLMORERESULTS()]], [[SQLPREPARE()]], [[SQLROLLBACK()]], [[SQLSETPROP()]], [[SQLSTRINGCONNECT()]], [[SQLTABLES()]] |
==Description== | ==Description== | ||
| Line 46: | Line 46: | ||
nSetEnd = SQLSETPROP(nStatHand,"Transactions",2) | nSetEnd = SQLSETPROP(nStatHand,"Transactions",2) | ||
if nSetEnd = 1 | if nSetEnd = 1 | ||
| − | messagebox("Manual Transactions enabled") | + | messagebox("Manual Transactions enabled",0,"Transaction") |
else | else | ||
| − | if messagebox("Unable to enable Manual Transactions",36," | + | if messagebox("Unable to enable Manual Transactions, continue?",36,"Transaction") = 6 |
SQLDISCONNECT(nStatHand) | SQLDISCONNECT(nStatHand) | ||
return | return | ||
| Line 56: | Line 56: | ||
if SQLGETPROP(nStatHand, "Transactions") = 2 | if SQLGETPROP(nStatHand, "Transactions") = 2 | ||
if messagebox("Commit Insert?",36,"Transaction") = 6 | if messagebox("Commit Insert?",36,"Transaction") = 6 | ||
| − | messagebox("SQLCOMMIT() returned " + etos(SQLCOMMIT(nStatHand))) | + | messagebox("SQLCOMMIT() returned " + etos(SQLCOMMIT(nStatHand)),0,"Transaction") |
else | else | ||
| − | messagebox("SQLROLLBACK() returned " + etos(SQLROLLBACK(nStatHand))) | + | messagebox("SQLROLLBACK() returned " + etos(SQLROLLBACK(nStatHand)),0,"Transaction") |
endif | endif | ||
endif | endif | ||
nSetEnd = SQLSETPROP(nStatHand, "Transactions",1) | nSetEnd = SQLSETPROP(nStatHand, "Transactions",1) | ||
if nSetEnd = 1 | if nSetEnd = 1 | ||
| − | messagebox("Automatic Transactions enabled") | + | messagebox("Automatic Transactions enabled",0,"Transaction") |
else | else | ||
| − | messagebox("Unable to enable Automatic Transactions.") | + | messagebox("Unable to enable Automatic Transactions.",0,"Transaction") |
endif | endif | ||
endif | endif | ||
Latest revision as of 16:14, 4 July 2011
Purpose
Commit a transaction
Syntax
SQLCOMMIT(<nStatementHandle>)
See Also
CREATE CONNECTION, SQLCANCEL(), SQLCOLUMNS(), SQLCONNECT(), SQLDISCONNECT(), SQLERROR(), SQLEXEC(), SQLGETPROP() SQLMORERESULTS(), SQLPREPARE(), SQLROLLBACK(), SQLSETPROP(), SQLSTRINGCONNECT(), SQLTABLES()
Description
The SQLCOMMIT() function is used to commit a transaction. The SQLCOMMIT() function is only required when Manual Transactions are in effect. The Transactions setting, set using SQLSETPROP(), can be either Automatic (1) or Manual (2). Manual Transactions can be can be rolled back using the SQLROLLBACK() function.
The SQLCOMMIT() function operates on the data source specified by <nStatementHandle>.
| Keywords | Description |
|---|---|
| nStatementHandle | The workarea in which the gateway data source is open |
Return values:
| Return Value | Description |
|---|---|
| 1 | SQL statement was committed successfully |
| –1 | Error occurred |
Example
nStatHand=SQLSTRINGCONNECT("rec@rec1:user1/pass1-southwind.tcpip",.T.) if nStatHand < 1 messagebox("Cannot make connection", 16, "SQL Connect Error") else messagebox("Connection made", 48, "SQL Connect Message") nSetEnd = SQLSETPROP(nStatHand,"Transactions",2) if nSetEnd = 1 messagebox("Manual Transactions enabled",0,"Transaction") else if messagebox("Unable to enable Manual Transactions, continue?",36,"Transaction") = 6 SQLDISCONNECT(nStatHand) return endif endif nRET=SQLEXEC(nStatHand,"INSERT INTO example (ACCOUNT_NO, TITLE, LAST_NAME, FIRST_NAME, INITIAL, STREET, CITY, STATE, ZIP, LIMIT, START_DATE) VALUES ('00200','Mr','Doe','John','L','1 High Street','Beverly','MA','01916', 12000, {05/12/2003})") if SQLGETPROP(nStatHand, "Transactions") = 2 if messagebox("Commit Insert?",36,"Transaction") = 6 messagebox("SQLCOMMIT() returned " + etos(SQLCOMMIT(nStatHand)),0,"Transaction") else messagebox("SQLROLLBACK() returned " + etos(SQLROLLBACK(nStatHand)),0,"Transaction") endif endif nSetEnd = SQLSETPROP(nStatHand, "Transactions",1) if nSetEnd = 1 messagebox("Automatic Transactions enabled",0,"Transaction") else messagebox("Unable to enable Automatic Transactions.",0,"Transaction") endif endif SQLDISCONNECT(nStatHand)
Products
Recital, Recital Server
