[VB6] Getal formaat Access

[Nexopheus]

Ok, probleem leek me triviaal, maar kan het niet zo 123 vinden.
Ik heb voor een programma een Access back-end hierin staan komma-getallen.

Probleem laat zich raden.,.... bij de engelse instelling is het scheidingskarakter voor "komma-getallen" een punt en bij de nederlandse instellen is dit gewoon een komma.

Is dit op een "simpele" manier op te lossen? (zoals bij datum?)

[Bu588]

Ik gebruik Format(getal,"General Number") zodra ik ergens een waarde moet toekennen, werkt bij mij prima.

[Nexopheus]

Juist, voor weergave is dat perfect.
Nu nog voor het wegschrijven. Access gaat met deze waarden per taalinstelling anders om.

[.oisyn]

lijkt me stug dat het in text wordt weggeschreven, dat neemt nogal veel overhead in beslag

[Bu588]

Kort voorbeeld:

code:

Me.Width = Format(2.56,"General Number")

Werkt altijd in iedere taalinstelling. In VB is de punt altijd het scheidingskarakter, dus het getal kun je zo opgeven. Dankzij de Format snapt de PC bij iedere instelling voor het scheidingskarakter wat je wilt instellen.

[Nexopheus]

Aha, ok zal het proberen. THX results morgen, nu eerst maar eens slapen...

[Nexopheus]

code:

Dim s As String
s = "2,50"
Text1.Text = Format(CDbl(s), "General Number")

Gaat niet werken, geeft me nu 250 ipv 2.50.

[Bu588]

Probeer gewoon

code:

Dim s as string
s="2.50"
Text1.Text=Format(CDbl(s),"General Number")

Dus met een punt als scheidingskarakter. Waarom maak je trouwens überhaupt een string aan, die je daarna naar een Double verandert Je kunt toch gewoon

code:

Text1.Text = Format(2.5,"General Number")

gebruiken, dus direct in 1x zonder een string te declareren? Scheelt weer wat geheugengebruik, snelheid en vooral moeite.

[Nexopheus]

Ik krijg de waardes aangeleverd via DAO, deze staan in het formaat van de gebruiker. Dus . of ,
De string in het voorbeeld is puur als voorbeeld.

[Bu588]

Volgens mij rekent Access in VB altijd met een punt als scheidingsteken, dus als je in de string die je krijgt de eventueel voorkomende komma laat vervangen door een punt ben je er toch ook? Daarna gebruik je CDbl() pas.

Nou werk ik zelf (nog) niet met DAO, dus ik weet niet exact hoe je de waarde binnenkrijgt. Volgens jouw voorbeeld krijg je een string met daarin het cijfer, hierin kun je gelijk zoeken en vervangen. Als je een Double krijgt via DAO, moet je die eerst omzetten naar een String (functie Str()), en daarna bovenvermelde bewerkingen pas uitvoeren.

Ik neem aan dat je niet een string krijgt met punten én komma's erin, anders wordt het iets moeilijker (dan moet je kijken welke van de 2 het meest rechts staat, dat is het scheidingskarakter voor decimalen, de andere voor duizendtallen).

[Nexopheus]

Probleem is dat Access wel deze verschillende scheidingstekens gebruikt. (gebruikers instelling afhankelijk)
Ik moet op de een of andere manier, de globale instellingen hievan op kunnen vragen.

[Squall-sX]

code:

Public Function Makepoint(tmp) As String

Dim tmpStr As String

Dim t As Integer
    For t = 1 To Len(tmp)
        If (Mid(tmp, t, 1) <> ",") Then
            tmpStr = tmpStr & Mid(tmp, t, 1)
        Else
            tmpStr = tmpStr &  "."
        End If
    Next
    Makepoint = tmpStr

End Function

Hiermee zet je heel makkelijk die hatelijke , van je om in een .. Dan moet je je niks van die general format in Nederland en andere landen aantrekken.

[Nexopheus]

Lijkt me een goede optie ja,
thx

Toch raar dat het zo "moeilijk" moet.

[sopsop]

Kun je toch ook zo doen?

Visual Basic:

Dim s as string
s="2.50"
Text1.Text=Format(CDbl(replace(s,",","."),"General Number")

[Squall-sX]

werkt dit zo? Wist dit niet.

[Nexopheus]

[mierenneuk modes]
er mist nog een sluithaak
[/mierenneuk modes]
Ik maak nu gewoon een test tabel waarin een double staat. Deze bevat het juiste scheidingsteken die ik nu dus gewoon kan ophalen.

[Nexopheus]

boppert schreef op 11 November 2002 @ 15:13:
Kun je toch ook zo doen?

Visual Basic:

Dim s as string
s="2.50"
Text1.Text=Format(CDbl(replace(s,",","."),"General Number")

Ja klopt helemaal, check dit:

Visual Basic:

Private Sub Command1_Click()
Dim cnnDB As ADODB.Connection
Set cnnDB = New ADODB.Connection

cnnDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & App.Path & "\db1.mdb"
        

Dim s As Double
Dim rsTST As New ADODB.Recordset
Dim strSQL As String
strSQL = "SELECT * FROM tblTest"
Set rsTST = cnnDB.Execute(strSQL)
s = CDbl(rsTST.Fields(0))
Text1.Text = s


        
cnnDB.Close
Set cnnDB = Nothing


End Sub

Private Sub Command2_Click()
Dim cnnDB As ADODB.Connection
Set cnnDB = New ADODB.Connection

cnnDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & App.Path & "\db1.mdb"
        

Dim s As Double
Dim rsTST As New ADODB.Recordset
Dim strSQL As String
s = Val(Replace(Text2.Text, ",", "."))

strSQL = "INSERT INTO tblTest VALUES( " & Replace(s, ",", ".") & ")"

Set rsTST = cnnDB.Execute(strSQL)
       
cnnDB.Close
Set cnnDB = Nothing

End Sub

Werkt nu goed.
Thx voor het mee denken