Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 & Sql

Salve a tutti amici del NG
Volevo sapere come fare per leggere il risultato dell'istruzione corrente:
SELECT MAX(codice) FROM t_utenti;
Cioč volevo sapere come fare in VB per ottenere il risultato di questa
select, il tutto utilizzando ADO.
Ciao

 ha scritto nel messaggio
news:aekltg$7or7h$1...@ID-142171.news.dfncis.de...

Tralasciando Dim, controlli, CursorType, ecc....:
Set Mio_Recordset = New Adodb.Recordset
Set Mio_Recordset.ActiveConnection=Mia_Connection
Mio_Recordset.Source="SELECT MAX(codice) FROM t_utenti;"
Mio_Recordset.Open
Valore = Mio_Recordset.Fields.Item(0).Value
Ciao
Alberto

 Valore = Mio_Recordset.Fields.Item(0).Value
Grazie anche da parte mia, mi serviva questo.
E se io dovessi da visual basic andare a scrivere dentro un tabella di un
database come dovrei fare?
In pratica dovrei usare questo codice:
insert into tbl_clienti
values ('txtnome.text', 'txtcognome.text', 'txtindirizzo.text');
Cioè nella tabella clienti devo inserire un nuovo cliente e i dati di questo
nuovo cliente li prendo da 3 textbox presenti sull'interfaccia creata in VB.
Grazie mille.
Luca

 values ('txtnome.text', 'txtcognome.text', 'txtindirizzo.text');
Come prima, ometto Dim, controlli di stato, parametri del Command, ecc..:
Set Mio_Command = New Adodb.Command
Set Mio_Command.ActiveConnection = Mia_Connection
Mio_Command.CommandText="insert into tbl_clienti values ('" & txtnome.text &
"', '" & txtcognome.text & "', '" & txtindirizzo.text & "');"
Mio_Command.Execute
Ciao
Alberto

 & "');" Mio_Command.Execute
Occhio al tipo di dati: le stringhe vanno "apiciate" cioč racchiuse tra
apici ', i numeri no!
Sconsiglio di far riferimento direttamente ai text, per svariate ragioni. Le
stringhe prima di essere immesse in una query vanno sempre validate! ;)
Ciao

 stringhe prima di essere immesse in una query vanno sempre validate! ;)
Giustissimo.
Avevo infatti premesso che omettevo i controlli, ecc...
Visto che entriamo nel dettaglio, io consiglio (vivamente):
- Realizzare una function che prenda il contenuto di una stringa (ad esempio
la proprietà Text di una TextBox), e ritorni una stringa con un numero
valido per Sql, quindi con il punto come separatore, 0 se la stringa
originale contiene lettere o se è vuota, ecc...
- Decidere in fase di disegno se gli apicini sono ammissibili nelle stringhe
da archiviare. Anche per un semplice cognome, ad esempio, è molto probabile
che prima o poi qualcuno inserisca un cognome con l'accento o con
l'apostrofo, ed ecco che arriva l'errore Ado. Se l'apicino è ammissibile, si
può sostituirlo con due apicini in sequenza, altrimenti lo si rimuove.
Meglio di tutto, creare una function attraverso cui fare passare le
stringhe, per un controllo che raddoppi gli apicini, o li rimuova, in
funzione di un parametro boolean della function stessa
- Realizzare una function che prenda il contenuto di un controllo con una
data (DateTimePicker, TextBox, ecc..), e restituisca una stringa con la data
nel formato opportuno per il DB con cui si lavora, da utilizzare nella
stringa Sql.
- Realizzare una function per la conversione delle variabili VB booleane nel
valore numerico valido per il DB con cui si opera (-1, 0, +1).
Ciao
Alberto

 - Realizzare una function che prenda il contenuto di una stringa (ad
esempio
cut cut
Grazie ragazzi. Siete stai utili e gentilissimi.
Adesso provo a realizzare tutto cio. Spero di non aver più bisogno di
disturbarvi (ma temo di si).
Ciao e grazie
Luca