[VB6]Memorizzare il risultato di una query in una variabile

[hyperzone]

Ciao a tutti,
volevo sapere se era possibile prelevare il risultato di una query e metterlo in una variabile per poi compiere operazioni di vario di genere... Mi spiego meglio:
------------------------------------------------
If dbEsiste.Recordset.RecordCount <> 0 Then
txtAppoggio.Text = dbEsiste
parziale = txtAppoggio.Text
somma = txtQuanto.Text
somma = somma + parziale
Else
'Esegui altre operazioni
End if
------------------------------------------------
dbEsiste è un controllo ADO e praticamente vorrei in questo controllo è memorizzato il risultato di una query che va a vericare se un prodotto esiste in magazzino e se esiste prende la quantità di pezzi presenti. Ecco la query con l'inserimento nell'oggetto:
------------------------------------------------
strpath = "SELECT Quantita FROM Scarica " & _
"Where CodiceProdotto = " & " '" & txtCod & "'"

With dbEsiste
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.CommandType = adCmdText
.RecordSource = strpath
.Refresh
End With
-------------------------------------------------
Praticamente ora nel mio oggetto è memorizzata la quantità che corrisponde al codice inserito. E' possibile fare ciò che ho detto in precedenza?!
Se non è possibile esiste un'altra strada?
Ringrazio anticipatamente coloro che mi aiuteranno

[Aki]

Originariamente inviato da hyperzone
Ciao a tutti,
volevo sapere se era possibile prelevare il risultato di una query e metterlo in una variabile per poi compiere operazioni di vario di genere... Mi spiego meglio:
------------------------------------------------
If dbEsiste.Recordset.RecordCount <> 0 Then
txtAppoggio.Text = dbEsiste
parziale = txtAppoggio.Text
somma = txtQuanto.Text
somma = somma + parziale
Else
'Esegui altre operazioni
End if
------------------------------------------------
dbEsiste è un controllo ADO e praticamente vorrei in questo controllo è memorizzato il risultato di una query che va a vericare se un prodotto esiste in magazzino e se esiste prende la quantità di pezzi presenti. Ecco la query con l'inserimento nell'oggetto:
------------------------------------------------
strpath = "SELECT Quantita FROM Scarica " & _
"Where CodiceProdotto = " & " '" & txtCod & "'"

With dbEsiste
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.CommandType = adCmdText
.RecordSource = strpath
.Refresh
End With
-------------------------------------------------
Praticamente ora nel mio oggetto è memorizzata la quantità che corrisponde al codice inserito. E' possibile fare ciò che ho detto in precedenza?!
Se non è possibile esiste un'altra strada?
Ringrazio anticipatamente coloro che mi aiuteranno

X vedere se esiste record
[CODE]strQuery = "IF EXISTS (SELECT * FROM Scarica Where ...)"CODE]

Se non ci son record si autoannulla...

[hyperzone]

Si, ok però a me servirebbe mettere il risultato della query in una variabile che posso manipolare per compiere altre operazioni con quel risultato

[Aki]

Originariamente inviato da hyperzone
Si, ok però a me servirebbe mettere il risultato della query in una variabile che posso manipolare per compiere altre operazioni con quel risultato

strQuery = "SELECT * AS VAR  FROM Scarica Where ...) "

hai memorizzato nella variabile 'var' il risultato

[hyperzone]

No questo non l'ho fatto. Potresti spiegarmelo con maggiori dettagli xfavore?!

[Aki]

pe esempio:

SELECT COUNT(*) AS VAR FROM SCARICA

ti valorizza 'var' con il valore del numero di record totali
poi lo richiami come un normale campo, in vb.net:

dim dr as sqldatareader
  dim variabile as string = dr("var")
dr.close()

[hyperzone]

Ah! è in Vb6 funziona allo stesso modo?!

[Aki]

credo non ci sia il DataReader, usi il Recordset ma la query è uguale

[hyperzone]

Okz ora ci provo e ti faccio sapere, grazie x la tua consulenza