UPDATE che non va(VB6)

[alexinside83]

ciao a tutti...
(linguaggio VB)
devo fare un update ma quando premo il pulsante "Aggiorna" mi da questo errore:

Parametri insufficienti.Previsto 1.

ora vi posto l codice:

Dim strQuery As String, strstring As String
Static ConnAccess As New ADODB.Connection
Dim rsServer As New ADODB.Recordset
Dim RecSet As New ADODB.Recordset
Dim strSelect As String
Dim id As Integer
Dim Errore As Integer
Dim DataCorretta As String

If ConnAccess.State = 0 Then
ConnAccess.Open strConnAccess
End If

DataCorretta = Text13.Text & "/" & Text14.Text & "/" & Text15.Text

strInsert = "UPDATE Associazioni SET Denominazione='" & Text1.Text & "',Sigla='" & Text2.Text & "',Indirizzo='" & Text3.Text & "',dataIscrione='" & DataCorretta & "',Comune='" & Text4.Text & "',Provincia='" & Text6.Text & "',Cap='" & Text5.Text & "',Telefono='" & Text8.Text & "',Fax='" & Text9.Text & "',URL='" & Text10.Text & "',email='" & Text11.Text & "',OrarioSegreteria='" & Text19.Text & "',LegaleRappr='" & Text7.Text & "',Interlocutori='" & Text17.Text & "',Reperibilità='" & Text18.Text & "',NumRegistroReg='" & Text12.Text & "',CF='" & Text16.Text & "',Tipologia='" & Text20.Text & "',Settore='" & Text21.Text & "',AttivitaPrevalente='" & Text22.Text & "',sociovssp='" & Check1.Value & "' WHERE idAssociazioni='" & num & "'"
  Set rsServer = ConnAccess.Execute(strInsert)

La riga in grasseto e quella dove il debug si ferma...

grazie a tutti

[xegallo]

o mi spiego male io o non capisci tu devi specificare se si tratta di vb6 vb.net o altro

[alexinside83]

ah scusa non avevo afferrato al volo...
comunque è VB6...

Scusa ancora.

[alexinside83]

help me...

[b.lory]

Set rsServer = ConnAccess.Execute(strInsert)

...ma se fai una eliminazione tramite execute(della New ADODB.Connection ) devi passare il comando senza il recordset.(quello che ti ho evidenziato in rosso)... + o - cosi...

ConnAccess.Execute strInsert

ciao

[alexinside83]

grazie mille...risolto...il problema era un altro, una cavolata...grazie lo stesso

ale