[VB6] Cifre decimali in database e TextBox

[Folcus]

Sto provando in molti modi ad impostare una dato del database che sia nel formato (0,000), ossia precisione doppia e 3cifre decimali.

così è impostato nel database.
nel form ho impostato la textbox che lo ospita come numerico e con 3cifre decimali.

ma lui continua a darmelo con x cifre decimali...se il numero ha 5cifre decimali lui me lo visualizza e salva con 5cifre decimali, se ne ha 1 me lo visualizza e salva con 1.

Come faccio a far sì che salvi e visualizzi questi numeri con 3cifre decimali (anche gli Zero!).

[maxmalici]

hai provato a fare un
FORMAT (txtbox , "0.000")

ciao max

[Folcus]

sì, ho provato anche quella via...ma non mi mantiene il format richiesto.

[oregon]

Scusa ma non ho capito il senso della richiesta.

Una cosa e' come vengono salvati su db i dati numerici (nel formato floating point con precisione opportuna, single o double ...) un'altra cosa e' il formato di visualizzazione (indipendente dal primo).

E poi stai parlando di Access, SQL Server o altro ...?
Di che tipo e' il campo?
Come salvi il contenuto al suo interno?
Come lo leggi e visualizzi?

[Folcus]

già scusa.
allora, parliamo di Access prima di tutto.

i problemi sono sia nel caso di salvarei dati nel db...sia nella visualizzazione.

Mi spiego meglio, io ho una textbox, impostata con Dataformat su numerico, e 3cifre decimali.
Faccio eseguire un calcolo alla pressione di un comando e nella textbox voglio visualizzare il risultato...però questo mi appare con tutte le cifre decimali che ha...e non si limita alle 3 da me impostate.
Stessa cosa avviene quando salvo i dati nel DB...se imposto il campo a numerico con 3cifre decimali, mi salva sempre tutte le cifre dopo la virgola, senza fermarsi alle 3da me impostate.

per salvare i dati semplicemente salvo il contenuto della textbox nel campo del db.
e per leggerlo ugualmente.

posso capire se io non formatto la textbox in nessun modo...allora mi può anche far vedere tutte le cifre, ma se io la imposto con 3cifre decimali non capisco perchè non si limiti a quello. vuol dire che tale comando non serve a nulla?

boh...

[Folcus]

up, nessuno che mi sappia aiutare?

il problema si propone anche quando inserisco in una textbox un valore proveniente da un calcolo...non lo formatta...

[Folcus]

Ho provato a scrivere questo:

Format Area.Text, #.###

ma me lo cambia automaticamente in:

Format Area.Text, 0#

Perchè?

ho provato anche a scrivere Area.DataFormat...ma nulla...zero niente...

[LMondi]

Prova in questo modo:
inserisci due txt(Txt1 e Txt2) ed un CmdButton

Private Sub Command1_Click()
Text2.Text = Format(Text1.Text, "#,##0.000")
End Sub

In questo modo avrai tre decimali, il terzo arrotondato per eccesso o per difetto.

[Seyen]

Volevo scrivere la stessa cosa...funziona perfettamente

[Folcus]

Ci siamo riusciti!

invece di scrivere:

Private Sub Command1_Click()
Text2.Text = Format(Text1.Text, "#,##0.000")
End Sub

ho scritto:

Private Sub Command1_Click()
Text1.Text = FormatNumber(Text1.Text, 3)
End Sub

così facendo formatta il numero presente nella text1 con 3cifre decimali...se ne volevo solo 2 impostavo 2 al posto di 3...e così via.

grazie ragazzi per l'aiuto.