>Consigliato da LBenaglia allego un esempio di prova per far vedere
>il mio problema sull'istruzione ROUND in una query di ACCESS
>in un progetto in VB6.
Ciao Paolo,
ho eseguito questo script con successo:
Dim cn
Const CN_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\documenti\Anagra.mdb"
' Definisco un oggetto ADODB.Connection
Set cn = CreateObject("ADODB.connection")
' Apro la connessione
cn.Open CN_STRING
' Eseguo l'update
cn.Execute "UPDATE AnaArt SET art_prz = ROUND(art_prz, 2)"
' Chiudo la connessione
cn.Close
Set cn = Nothing
MsgBox "Fine", vbInformation
La colonna art_prz è stata arrotondata a 2 cifre decimali.
Bene, quindi il problema è proprio quello che sospettavi, abbiamo librerie differenti.
Purtroppo non ho installato VB e spulciando il vbp ho visto che hai una reference a "Microsoft ActiveX Data Objects 2.8 Library" ma non riesco a capire se è l'RTM o il Service Pack 1.
Senza saper né leggere, né scrivere scarica ed installa l'MDAC 2.8 SP1 e dato che usi Jet, il Jet 4.0 Service Pack 8 per il tuo sistema operativo:
http://msdn.microsoft.com/data/ref/mdac/downloads/
Ciao!
--
Lorenzo Benaglia
Microsoft MVP - SQL Server
http://blogs.dotnethell.it/lorenzo/
http://italy.mvps.org