Function db_sql_requests(merchant_id As Long) As Boolean
Dim i As Integer
Dim wsp As Workspace, dbs As Database, rs2 As Recordset
Dim con As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset
'on error goto error handler
On Error GoTo err_db_sql_requests
db_sql_requests = False
'return reference to current database and workspace
Set dbs = CurrentDb
Set wsp = DBEngine.Workspaces(0)
Set rs2 = dbs.OpenRecordset("requests", dbOpenTable)
'create and open a new connection to the sql WorldsmartMaster database
Set con = New ADODB.Connection
con.Open odbc_adoprovider
'create a command object and a parameter object
Set cmd = New ADODB.Command
cmd.ActiveConnection = con
cmd.CommandTimeout = 0
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "spxRequests"
cmd.Parameters.append cmd.CreateParameter("@iMerchantId", adInteger, adParamInput, 0, merchant_id)
'create and open an updateable recordset (passing in the command object)
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open cmd, , adOpenStatic, adLockBatchOptimistic
'if requests found
If Not rs.EOF Then
'append records
Do While Not rs.EOF
rs2.AddNew
For i = 0 To rs.Fields.count - 1
rs2.Fields(i) = rs.Fields(i)
Next i
rs2.update
rs.MoveNext
Loop
End If
'return true on function exit
db_sql_hotcard_requests = True
'common exit call
exit_db_sql_requests:
'close on exit or error
rs.Close
rs2.Close
Set dbs = Nothing
Exit Function
'common error call
err_db_sql_requests:
process_error "db_sql_requests"
End Function
|