[VB6] Funzione Round non definita

[Petra]

Il mio programmino in Vb6 si collega ad un db in access che contiene una query con la funzione round che arrotondo sia per difetto che per eccesso un numero. Quando eseguo la query nel database stesso funziona tutto mente quando tramite ado mi collego da vb6 mi dice che la funzione round non è definita nell'espressione. Cosa può essere ?!

[Petra]

[mgmg]

Prova a verificare se questo articolo ti può essere di aiuto:

http://support.microsoft.com/default...%3Bit%3B275110

Ciao

[Petra]

Ti ringrazio...dice che manca Microsoft Office XP Web Components in MS Access 2003...l'ho scaricato ed installato ma mi fa sempre lo stesso errore.

Chi conosce per caso un sito dove posso trovare un elenco di tutti gli errori run-time di vb6 ? ?

[Petra]

[Petra]

[mgmg]

Ho trovato solo questo guarda se ti può servire.

http://support.microsoft.com/default...b;en-us;209050

Ciao

[Petra]

Ti ringrazio...ho trovato l'errore!!

--2147217900 (0x80040e14) Il comando ha contenuto un o più errori.

...ma nn so come risolverlo!!

In questa maledetta query c'è un campo con dei numeri e quindi ho deciso di inserire Round(Tabella!NomeCampo). Apro la query da access e funziona. Apro da VB6 tramite ado e mi dice che rounf non è definita!!!

[yyzyyz]

potresti farci vedere il codice di dove richiami la query da VB6? giusto x capire meglio...

[Petra]

Allora...la mia query in Access 2003 è questa:

SELECT Tabella.Id, Round([Tabella!Prezzo],1) AS Prezzo
FROM Tabella
GROUP BY Tabella.Id, Tabella!Prezzo;

- Quando apro questa query direttamente da Access non mi da alcun errore e mi visualizza il prezzo arrotondato.

Richiamo della query da Visual Basic 6:

Option Explicit
Private cn As New ADODB.Connection
Private rs As New ADODB.Recordset

Private Sub Form_Load()
Conn.cn.CursorLocation = 3
Conn.cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb"
If rs.State = 1 Then
    rs.Close
    Set rs = Nothing
End If
rs.Open "SELECT * FROM Query WHERE Id=14", cn, 3, 3 
End Sub

Mi segnale un errore sulla riga rossa e mi dice:

Errore di run-time '-2147217900(80040e14)':
Funzione 'Round' non definita nell'espressione.