Hej!
Jag har lagt till två kolumner för tillägg i en tabell mha ADODB Command.
När jag kör execute så får jag felmeddelandet "Number of query values and destination fields are not the same.".
Men de ÄR samma (i alla fall vad jag kan se).
Tar jag bort tillägget av de två nya kolumnerna så fungerar allt bra igen.
Jag tycker jag har lagt till dem överallt där de ska.

Koden ser ut som följer:

Public Function insertComponent(data As DataCollectorComponent, _
conn As ADODB.Connection) As Boolean

'data är nedan ett XML element som innehåller korrekt data.
'Har även provat att hårdkoda in data för att utsluta att något fel ligger i XMLen.

Dim queryParams As New ParameterContainerComponent

Dim cmd As New ADODB.Command

With cmd
.ActiveConnection = conn
.CommandText = "commInsertComponent"
.CommandType = adCmdStoredProc
End With

queryParams.compIdPrm.value = data.componentId
cmd.parameters.Append queryParams.compIdPrm

queryParams.descIdPrm.value = data.getDescriptionId
cmd.parameters.Append queryParams.descIdPrm

queryParams.removedPrm.value = data.removed
cmd.parameters.Append queryParams.removedPrm

'Ny kolumn
queryParams.PreferredItemStatusPrm.value = data.PreferredItemStatus
cmd.parameters.Append queryParams.PreferredItemStatusPrm

'Ny kolumn
queryParams.EquivalentComponentsPrm.value = data.EquivalentComponents
cmd.parameters.Append queryParams.EquivalentComponentsPrm
'Number of query values and destination fields are not the same.

cmd.Execute

End function

'***************************************************************

'Här initieras ParameterContainerComponent-klassen

Public compIdPrm As New ADODB.Parameter
Public descIdPrm As New ADODB.Parameter
Public removedPrm As New ADODB.Parameter
'Nya kolmner
Public PreferredItemStatusPrm As New ADODB.Parameter
Public EquivalentComponentsPrm As New ADODB.Parameter

Private Sub Class_Initialize()

With compIdPrm
.Name = "componentId"
.Type = adBSTR
.Direction = adParamInput
End With

With descIdPrm
.Name = "descriptionId"
.Type = adInteger
.Direction = adParamInput
End With

With removedPrm
.Name = "removed"
.Type = adBoolean
.Direction = adParamInput
End With

'Ny kolumn
With PreferredItemStatusPrm
.Name = "PreferredItemStatus"
.Type = adBSTR
.Direction = adParamInput
End With

'Ny kolumn
With EquivalentComponentsPrm
.Name = "EquivalentComponents"
.Type = adBSTR
.Direction = adParamInput
End With


Tabellen innehåler följande fält:
ComponentId
descriptionId
removed
PreferredItemStatus
EquivalentCOmponents
CreatedDate
lastchange


STORT TACK FÖR EV. HJÄLP!!
Jag har verkligen kört fast!

Mvh, Sofia

Har du lagt till parametrarna i din stored procedure?

Hej!
Där satt den!
Jag har med alla hast fått sätta mig in och ändra i annans kod så jag missade uppenbarligen att ändra på alla ställen.

Tack!

Sofia