Beste,
Ik krijg een compile-error "only user-defined types defined in public object modules can be coerced to or from a variant or passed to late-bound function" op de 'gele' regel.
Wat kan de reden hiervan zijn?
Ik krijg een compile-error "only user-defined types defined in public object modules can be coerced to or from a variant or passed to late-bound function" op de 'gele' regel.
Wat kan de reden hiervan zijn?
Code:
Private Type MDXTable
MDXFilters As String
SelectionName As String
Exclude As Boolean
End Type
Sub testSP()
tmpAantalTabs = 2 'Wb.Sheets(Wb.Sheets.Count)
ReDim MyVar(tmpAantalTabs) As MDXTable
MyVar(0).MDXFilters = "{{[Customer].[Last Name].&[Peters], [Customer].[Last Name].&[ Peters]} * {[Profile General].[Age class (per 10j)].&[UNKNOWN],[Profile General].[Age class (per 10j)].&[80-90]}}"
MyVar(0).SelectionName = "Selectie1"
MyVar(0).Exclude = False
MyVar(1).MDXFilters = "{{[Customer].[Last Name].&[Van Buggenhout], [Customer].[Last Name].&[Peters]} * {[Profile General].[Age class (per 10j)].&[UNKNOWN],[Profile General].[Age class (per 10j)].&[80-90]}}"
MyVar(1).SelectionName = "Selectie2"
MyVar(1).Exclude = True
'Debug.Print "MyVar: " & MyVar(0).MDXFilters & " " & MyVar(0).SelectionName & " " & MyVar(0).Exclude
'Debug.Print "MyVar: " & MyVar(1).MDXFilters & " " & MyVar(1).SelectionName & " " & MyVar(1).Exclude
Set cnnSaveML = New ADODB.Connection
Set cmdSaveML = New ADODB.Command
GetGeneralSettings
cnnStrSaveML = "Provider=SQLOLEDB;Data Source=" & cnnSaveML_Srvr & ";Initial Catalog=" & cnnSaveML_Cat & ";Trusted_Connection=No;"
cnnStrSaveML = cnnStrSaveML & "User ID=" & cnnSaveML_User & ";Password=" & cnnSaveML_PssWrd
'dit is de connectie naar de server waar de stored procedure opstaat
cnnSaveML.Open cnnStrSaveML
' CREATE PROCEDURE MST_Query
' (@MDXFilters as MDXTable READONLY,
' @Division as varchar(50),
' @Channel as varchar(50),
' @MLType as varchar(50),
' @IsUnique bit)
cmdSaveML.Parameters.Append cmdSaveML.CreateParameter("@MDXFilters", adArray, adParamInput, -1, MyVar())
cmdSaveML.Parameters.Append cmdSaveML.CreateParameter("@Division", adVarChar, adParamInput, 50, "MGL")
cmdSaveML.Parameters.Append cmdSaveML.CreateParameter("@Channel", adVarChar, adParamInput, 50, "TM")
cmdSaveML.Parameters.Append cmdSaveML.CreateParameter("@MLType ", adVarChar, adParamInput, 50, "TM30dnA")
cmdSaveML.Parameters.Append cmdSaveML.CreateParameter("@IsUnique", adVarBinary, adParamInput, 1, True)
cmdSaveML.CommandText = "MST_Query"
cmdSaveML.ActiveConnection = cnnSaveML
cmdSaveML.CommandType = adCmdStoredProc
cmdSaveML.Execute
cnnSaveML.Close
End Sub