Hallo Peter,
Du schreibst, dass Du das accdb-Format verwendest. Das bedeutet, dass Du keine Projektdateien mehr verwenden kannst! Wenn Du eine Stored Procedure verwenden möchtest, dann musst Du im ADO-Command-Objekt auch als CommandType = adCmdStoredProc verwenden.
Mit der folgenden Funktion erstelle ich mein Connection-Objekt (in Verbindung mit einer UDL-Datei)
Public Function fn_app_CreateConnection() As ADODB.Connection
On Error GoTo ErrorHandler:
Dim ConnectionString As String
ConnectionString = Replace("File Name=" & Environ("userprofile") & "\" & CONST_UDLFileName, "\\", "\")
Set fn_app_CreateConnection = CreateObject("ADODB.Connection")
With fn_app_CreateConnection
.ConnectionTimeout = 0
.CommandTimeOut = 0
.Open ConnectionString
End With
ExitCode:
On Error Resume Next
Exit Function
ErrorHandler:
MsgBox Err.Description, vbInformation, "1. SQL-Server-Konferenz"
Resume ExitCode
End Function
Um dann eine Stored Procedure auszuführen, verwende ich folgenden Code:
...
Set cmd = New ADODB.Command
With cmd
Set .ActiveConnection = fn_app_CreateConnection()
.CommandText = "dbo.proc_app_InsertCustomerData"
.CommandType = adCmdStoredProc
Set prm = .CreateParameter("@ReturnValue", adInteger, adParamReturnValue)
.Parameters.Append prm
Set prm = .CreateParameter("@CompanyName_01", adVarChar, adParamInput, 80, c.CompanyName_01)
.Parameters.Append prm
Set prm = .CreateParameter("@CompanyName_02", adVarChar, adParamInput, 80, c.CompanyName_02)
.Parameters.Append prm
Set prm = .CreateParameter("@CompanyName_03", adVarChar, adParamInput, 80, c.CompanyName_03)
.Parameters.Append prm
Set prm = .CreateParameter("@CCode", adVarChar, adParamInput, 3, c.CCode)
.Parameters.Append prm
Set prm = .CreateParameter("@Street", adVarChar, adParamInput, 80, c.Street)
.Parameters.Append prm
BTW: Du solltest aus mehreren Gründen IMMER mit Variablen arbeiten statt den SQL-Text zu konkatenieren:
Uwe Ricken (Blog |
Twitter)
Microsoft Certiied Master - SQL Server 2008
Microsoft Certified Solution Master - CHARTER Data Platform
Microsoft Certified Solution Expert - Data Platform
db Berater GmbH
Microsoft SQL Server Blog (german only)
