Newsgroup: it.comp.lang.visual-basic
Titolo: Prima che sbrocco, VB + SQL

Allora il pezzo di codice, con cui mi scervello da tre giorni è questo.
sql44 = "select nome, visibile from merce where id = " & Form1.Tag
res.Open sql44, Cn
Dim x As Integer
x = 0
Do Until res.EOF = True
List1.AddItem res("nome")
x = x + 1
Dim ciao As Integer
ciao = res("visibile")
If ciao = 1 Then List1.Selected(List1.ListIndex) = 1
res.MoveNext
Loop
In pratica seleziona il nome dell'articolo e l'id della visibilita (1 =
visibile, 0 = non visibile)  nel menu dal DB
E ci siamo, poi scatta il loop che dice quando Ciao ( variabile dell'iD
visibilita) è uguale a UNO
allora checka (TRUE) l'item nella listbox.
Non funza!
Il codice è perfetto! ( mo me so allargato ... :)) )
Perche'?

Non funza!
dal Manifesto di questo newsgroup:
Articolo 13)
All'inizio del messaggio dovra' essere chiaramente indicato sia la
versione
dell'ambiente di sviluppo usato (includendo gli aggiornamenti
eventuali),
che il sistema operativo (patch incluse, anche qui); queste
informazioni
saranno utili agli altri per dare una risposta il piu' possibile
corretta.
Dopo di ciò si dovrà indicare il problema, riportando eventualmente
anche la
routine (opportunamente sintetizzata) che non funziona. Eventuali
richieste
di aiuto devono essere precise, in grado di focalizzare il problema, e
se
necessario (spesso), esponendo in che contesto e' applicato il
problema
stesso.
Evitare testi del tipo: "Ma perche' le date non funzionano nei comandi
SQL?"
Bensi': "Ho provato a fare una selezione dei record discriminando per
la
data di nascita, tipo "SELECT * FROM tabella WHERE
dtNascita=30/10/98", ma
mi da errore di sintassi, dove sbaglio?"
-- 
ciao, hal

 
Quando premi F5 appare il messaggio:
"Errore: Il codice e' perfetto"?
Dim ciao as integer all'interno del loop mi sa che genera 
res.RecordCount-1 errori ...
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 Loop

 ciao, hal
Ciao :)

 > If ciao = 1 Then List1.Selected(List1.NewIndex) = 1
Adesso ci provo, 'scolta, a che serve newindex ?
Il professore me lo spiego', ma quel giorno ero innamorato :)
Grazie :)


Mh, ma non era che ogni volta che dichiaro una variabile questa viene
resettata a 0 ?
O ricordo male ?
Cmq, hai ragione, non mi piace e non ci avevo fatto caso..
Provvedo a spostare la dim.
Grazie :)

 Il professore me lo spiego', ma quel giorno ero innamorato :)
'scolta un po' te: Quali sono le ultime 4 parole della guida a "Listbox,
controllo"?
Devo dirti che succede se non rispondi esattamente?

 Devo dirti che succede se non rispondi esattamente?
Gli diamo ancora un po di tempo ? ^______^

*Gigio2k [work]* ha scritto:

L'ha già avuto e ... se l'è giocato:
Ha risposto ad altri post dopo che questo era già qui... e l'ha bellamente
ignorato.

MSOL ha crashatro due volte mentre davo lunghe risposte al post di moreno
:))
E ho perso tempo ...
E adesso dico una cosa :)
Io MsDN non ce l'ho!
La mia guida solitamente è google ..... e quando Gugol non c'e' ...di solito
ci siete voi .. :))
dato che Msdn in cd non so dove trovarlo ...
e , vi prego, non ditemi di scaricarlo, che quando dice bene, viaggio a 3,5
kbs ...
Come faccio ?
sigh..

E cmq, "'scolta " , non era mica chissa cosa, come per dire
"Vieni qua, schiavo." ...era colloquiale...
Spero l'avrai capito..

 MSOL ha crashatro due volte mentre davo lunghe risposte al post di moreno
Ah, no, che macello...ho confuso il tuo post delle 11 con il mio delle
23...pensando che eravamo entrambi Online...