Eseguire
una ricerca veloce nell' archivio delle risorse di Visual Basic
Italia®:
|
Preso
dall'archivio...
Premere il pulsante sotto per accedere direttamente ad un articolo
o ad un esempio preso in modo casuale dall'archivio.
|
Ultimo
e-book pubblicato:
"INTRODUZIONE
AI CSS"
Lo scopo del CSS language è quello di controllare lo
stile dei vari elementi che concorrono a formare un
documento HTML.
Si può operare in tre modi collegamento ad un foglio di stile
esterno;definizione degli stili all'inizio
del documento utilizzo della proprietà style all'interno
di un Tag HTML (embedded style). Questo e-book introduttivo
servirà per apprendere tali nozioni fondametali dei fogli
di stile.
Prezzo: € 0.0.
|
Contatti.
Utilizzare l'email generica per domande relative al sito:
oppure scrivere
ad un responsabile di area.
Responsabile
del sito: >Andrea
Martelli
Responsabile area "Corso di VB":
> Giorgio Abraini
|
|
|
|
aiuto con sql |
sara |
07/06/2003 |
Difficoltà:
Facile
|
|
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
|
|