estrarre valore da SQL

Question

Ho questo codice:

Dim A as Date, B as Integer

DoCmd.RunSQL "SELECT Last(TXF2.DFAT) AS UDF, Max(TXF2.NFAT) AS UNF FROM TXF2;"

Come posso assegnare alle due variabili i valori UDF ed UNF?

Se scrivo A = UDF e B = UNF non me li accetta.

Grazie.

Answer 1

Ciao,

1. La tua riga di codice ti deve dare un errore perché il commando RunSQL richiede una query di azione o definizione non una query di selezione.
2. Per prendere i valori dalla query puoi usare un recordset:

Dim db As DAO.Database

Dim rs As DAO.Recordset

Dim A as Date

Dim B as Integer

Dim strSQL As String

strSQL = "SELECT Last(DFAT) AS UDF, Max(NFAT) AS UNF FROM TXF2"

Set db = Currentdb

Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)

If Not rs.BOF Then

   A = rs!UDF

   B = rs!UNF

End If

Nota: Per l'uso di Last() vedi http://support.microsoft.com/kb/208190.

Answer 2

Grazie Mimmo e Karl.

Answer 3

Ciao Luigi,

se salvi la query, puoi utilizzare la funzione DLookUp per estrarre i due dati ad es.:

A=dLookUp("UDF","nomeQuery")

B=dLookUp("UNF","nomeQuery")

altrimenti su codice devi trattare la query come recordset e quindi trattare le colonne restituite.

Dim myrst as recordset

set myrst=CurrentDb.Openrecordset("SELECT Last(TXF2.DFAT) AS UDF, Max(TXF2.NFAT) AS UNF FROM TXF2"

A=myrst("UDF")

B=myrst("UNF")

set myrst=nothing

Mimmo