Stored Procedure
Hej,Jeg har et maerkeligt problem - Jeg benytter mig af en stored-procedure som i princippet skulle oprette en ny ordre i finansprogrammet. Det lader til at den opretter recorden, men jeg kan ikke se den i finansprogrammet og hellere ikke via Access (ADP-forbindelse). Men laver jeg en select from i asp og vælger det ID den returnerede til mig får jeg det output...
Hvis jeg via Access kører den stored-procedure og indtaster de 3 nødvendige parameter så opretter den fint ordren?!?!
<%
Dim objConn
Dim objCmd
Const adCmdStoredProc = 4
Const adInteger = 3
Const adCurrency = 6
Const adParamInput = 1
Const adParamOutput = 2
Const adExecuteNoRecords = 128
Const adDBDate = 133
Const adLongVarChar = 201
Const adBSTR = 8
'Instantiate objects
Set objconn = Server.CreateObject("ADODB.Connection")
set objCmd = Server.CreateObject("ADODB.Command")
connect = " provider=sqloledb;server=xxx;database=x;uid=yx;pwd=yx"
objconn.open = connect
strSQL = "SELECT * from orders where OrderNo='5214'"
set rs = objConn.execute(strSQL)
do until rs.EOF
for each x in rs.Fields
Response.Write(x.name)
Response.Write(" = ")
Response.Write(x.value & "<br />")
next
Response.Write("<br />")
response.Flush()
rs.MoveNext
loop
strSQL = "SELECT MAX (convert(bigInt,OrderNo)) as MaxOrder from Orders"
set rs = objConn.execute(strSQL)
strMaxOrder = CDbl(rs("MaxOrder")) + 1
With objCmd
.ActiveConnection = connect
.CommandText = "kompas_orders_addnew"
.CommandType = adCmdStoredProc 'Requires the adovbs.inc file or typelib meta tag
'Add Input Parameters
.Parameters.Append .CreateParameter("@OrderID", adInteger, adParamInput, ,strMaxOrder)
.Parameters.Append .CreateParameter("@Customer", adInteger, adParamInput, , 21472231)
.Parameters.Append .CreateParameter("@UserID", adInteger, adParamInput, , 0)
'Execute the function
'If not returning a recordset, use the adExecuteNoRecords parameter option
.Execute, , adExecuteNoRecords
orderID = .Parameters("@orderID")
End With
response.write orderID
%>
