Problema Con Update [sql]

[webporta.it]

Salve a tutti!
Mi è successa una cosa stranissima...Visto che non mi andava di pensare...Ho fatto fare l'UPDATE ad Access 2000..Poi mi sono ricopiato l'SQL e l'ho inserito nel mio programma...

PERO' NON FUNGE!!!!!! in Visual Basic!
Ecco l'errore che mi dà:
------
NESSUN VALORE SPECIFICATO PER ALCUNI PARAMETRI NECESSARI
------

    
    sql = "UPDATE tbl_TRACING SET tbl_TRACING.TOT_Pezzi = tbl_TRACING.Pezzo * TOT_Manifolds, "
    sql = sql & "tbl_TRACING.T_Weight = ((tbl_TRACING.Pezzo * TOT_Manifolds) * (tbl_TRACING.U_Weight));"

      Rs.Open sql

Ho già dichiarato sql ed rs ed TOT_Manifolds...

Aiutatemi è importantissimo

[xegallo]

hai provato a farlo fare alla connessione cn.execute e non al recorsdset?

[webporta.it]

Originariamente inviato da xegallo
hai provato a farlo fare alla connessione cn.execute e non al recorsdset?

no!!!!

provo....
la sintassi è connessione.execute sql
giusto?

[webporta.it]

niente da fare lo stesso errore!!!
come posso fare??
ma è possibile che in access funziona ed da vb no!?!?!??!

[xegallo]

togli l'ultimo ;

e posta la connectionstring

[webporta.it]

HO PRESO LA TUA CONNECTIONSTRING
MODIFICANDOLA UN PO... MA A SEMPRE FUNZIONATO

Public Cn As New ADODB.Connection
Public Rs As New ADODB.Recordset

Sub connettiDB(percorso As String)
   With Cn
      .ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0;" & _
                          "Data source = " & percorso

                          'nella prima riga si specifica il provider
                          'nella seconda il percorso al db
      .ConnectionTimeout = 5 'numero dei secondi di timeout
      .CursorLocation = adUseClient 'tipo di cursore
      .Mode = adModeShareDenyNone 'nessuna limitazione
      .Open 'apertura ricordarsi di chiuderla
   End With
   With Rs
      .ActiveConnection = Cn ' imposta a che connessione si riferisce
      .LockType = adLockOptimistic ' imposta il tipo di lock
   End With
End Sub

HO PROVATO FACENDO CN.EXECUTE SQL (e togliando anche quel ; ma niente)
sempre lo stesso errore

[xegallo]

ma ke è TOT_Manifolds?
se è una variabile devi scrivere così

sql = "UPDATE tbl_TRACING SET tbl_TRACING.TOT_Pezzi = tbl_TRACING.Pezzo * " & TOT_Manifolds & ", "
    sql = sql & "tbl_TRACING.T_Weight = ((tbl_TRACING.Pezzo * " & TOT_Manifolds & ") * (tbl_TRACING.U_Weight));"

cn.execute sql

[webporta.it]

OK