' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|")
' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next
' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If
End If %> <% ' *** Update Record: construct a sql update statement and execute it
If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then
' create the sql update statement MM_editQuery = "update " & MM_editTable & " set " For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_editQuery = MM_editQuery & "," End If MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal Next MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId
If (Not MM_abortEdit) Then ' execute the update Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If
End If %>
Jeg kan godt gemme med "." så det er helt klart kommaet der giver fejlen. Er der en god ide derude???
I de fleste lande bortset fra danmark er . seperatoren imellem helttal og brøkdel. Og fordi databasen ikke er lavet kun til danmark skal du bruge . istedet.
det giver mig bare et problem, for når jeg henter værdien ind i feltet, bliver det automatisk lavet om fra 3.25 til 3,75, og så skal man manuelt sidde og rette tilbage. Derfor duer det ikke..
Hvis jeg gemmer 3.75 er der ingen problemer, men den henter ikke 3.75, men 3,75. Hvis bare man kan ændre det, så feltet indeholder . og ikke , så er alt ok.
nu er jeg forvirret, snakker vi om at gemme eller at hente fra basen.
Den værdi du gemmer i basen hvor kommer den fra ? er det fra et textfield i en form ? Hvis det er, så er den jo en Streng, hvis du gemmer den i en kolonne som er en double, skal der anvender . og ikke ,
Jeg henter værdien fra db. Viser den i et felt så brugeren kan opdatere den. Den skal derefter opdateres i db. Den henter en værdi feks 3.25 men viser 3,25 og det er her problemet med kommaet kommer ind. Sorry hvis ikke jeg havde udtryk mig klart nok
okay i databasen er værdien gemt som 3.25 som er amerikansk standard, da du kører på et dansk system blvier den lavet om til 3,25.
Når brugeren så har rettet i feltet og det bliver post'et tilbage til webserveren, skal du så enten udskifte , med . eller lave strengen der indeholder tallet om til en tal variable.
prøv med: Function FormatNumberDemo Dim MyAngle, MySecant, MyNumber MyAngle = 1.3 ' Define angle in radians. MySecant = 1 / Cos(MyAngle) ' Calculate secant. FormatNumberDemo = FormatNumber(MySecant,4) ' Format MySecant to four decimal places. End Function
En af grundene til at det ikke virker kan også være at den ikke snakker så godt med en dansk iLCID, på vores server skulle de bruge den svenske iLCID for at virke. Hvorfor ved jeg ikke, men det var grunden til at det ikke lige netop dette problem ikke virkede
jeg har helt tabt tråden niveauet kom lige lidt for højt op. kan vi få det lidt ned igen. jeg er med på at jeg "bare" skal konvertere , til . men jeg ved ikke hvordan det gøres. Jeg ved godt at det efterhånden hører hjemme i ASP, men nu er vi jo her;-)
Men vi er langt udenfor området denne gruppe egentligt handler om, nemlig MySQL. Luk venligst spørgsmålet og uddel point hvis du synes, og spørg specifikt om dit konverteringsproblem i ASP gruppen.
moso: Ikke for at være grov, men jeg tror den opgave du har gang i er lidt for avanceret på nuværende tidspunkt, jeg ville prøve at få erfaring med lettere opgaver først.
Kanon, man lærer en del ved svære opgaver, men det kan godt nok være langhåret.
Jeg har selv lige fået et nyt job hvor jeg skal lave avanceret VB.net programmering, og ovenstående VB.net kode er det første jeg nogensinde har skrevet, så det skal nok blive sjovt :-)))
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
