🚀 go-pugleaf

Anzich� la virgola, prova a utilizzare il punto e virgola;
Oppure scrivi le SQL separatamente.

          /...\
       (@ @)
ooO--(_)--Ooo

http://bcp.3000.it

"sara" <sara83@hotmail.com> ha scritto nel messaggio
news:ZyjEa.68296$lK4.2035138@twister1.libero.it...
> Scusate ma non ho molta esperienza in visual basic e sto cercando
> disperatamente un aiuto. Vorrei aggiornare la tebella che ho allegato ma
non
> riesco a collegare le varie stringhe di sql poich� non conosco la
sintassi.
> Ho provato con una sola stringa sql
> (sql = "update lavorazione set prezzo= '" & txtsemplice.Text & "' where
> tecnica='tinta semplice '") e ho visto che aggiona il database ma se provo
a
> porre una virgola subito dopo e a scrivere un'altra stringa mi da errore
di
> sintassi. Ho anche provato a scrivere il codice come riportato di seguito
ma
> in questo modo visual basic aggiorna soltanto l'ultima stringa (nel caso
> specifico quella riguardante il cerato). Se gentilmente qualcuno pu�
> aiutarmi gli sarei veramente grata. Grazie
>
>
>
>
>
>
>
> Set con = CreateObject("adodb.connection")
> Set rs = CreateObject("adodb.recordset")
> strcon = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & App.Path &
> "\impostazioni.mdb"
> con.Open strcon
> sql = "update lavorazione set prezzo= '" & txtsemplice.Text & "' where
> tecnica='tinta semplice '"
> sql = "update lavorazione set prezzo= '" & txtvelatura.Text & "' where
> tecnica='velatura'"
> sql = "update lavorazione set prezzo= '" & txtstracciato.Text & "' where
> tecnica='stracciato'"
> sql = "update lavorazione set prezzo= '" & txtspugnato.Text & "' where
> tecnica='spugnato'"
> sql = "update lavorazione set prezzo= '" & txtsogni.Text & "' where
> tecnica='casa dei sogni'"
> sql = "update lavorazione set prezzo= '" & txtspatolato.Text & "' where
> tecnica='spatolato'"
> sql = "update lavorazione set prezzo= '" & txtstucco.Text & "' where
> tecnica='stucco antico'"
> sql = "update lavorazione set prezzo= '" & txtmarmoriz.Text & "' where
> tecnica='marmorizzato'"
> sql = "update lavorazione set prezzo= '" & txtcerato.Text & "' where
> tecnica='cerato'"
> con.Execute sql
>
>
>
>