Database SQL Stored Procedure
Hvordan returnerer man et autogeneret ID under Insert i en SQL sætning. SQL Sætningen virker, men der bliver ikke returneret noget ID i mit VB program.********************************************************
Public Function SaveStikPrøveSpecfikationer(Stregkode As String, ModelBetegnelse As String, OrdreNr As String) As Long
On Error GoTo err_handler
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Set cmd = MakeConnection()
cmd.ActiveConnection.BeginTrans
Dim prm As ADODB.Parameter
cmd.CommandText = "tblStikproeve_Insert"
cmd.CommandType = adCmdStoredProc
Set prm = cmd.CreateParameter("Stregkode", adVarWChar, adParamInput, 25, Stregkode)
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter("ModelBetegnelse", adVarWChar, adParamInput, 25, ModelBetegnelse)
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter("OrdreNr", adVarWChar, adParamInput, 10, OrdreNr)
cmd.Parameters.Append prm
rs.CursorType = adOpenKeyset
rs.CursorLocation = adUseClient
rs.LockType = adLockBatchOptimistic
rs.Open cmd
cmd.ActiveConnection.CommitTrans
Call closeConnection(cmd)
SaveStikPrøveSpecfikationer = rs!StikProeveId ’Her skulle ID returneres
********************************************************
Jeg får følgende fejl:
Error Number 91, ErrDescription Object variable or With block variable not set, ErrSource Project1
