Set ResultAS.Query = QueryAS
If Not ResultAS.Execute() Then
Messagebox "Errore esecuzione Query : " & ResultAS.GetErrorMessage(DB_LASTERROR) &"",0+16,"Errore"
Else
If ResultAS.NumRows <> 0 Then
Do
Call ResultAS.NextRow()
valore=ResultAS.GetValue("nomecolonna")
.....
Loop Until ResultAS.IsEndOfData
|