Hallo Andr�, und alle anderen,
ich muss mich entschuldigen!
Habe gestern abend erst mal alle anderen Fehler in dem Projekt beseitigt
- so hoffe ich jedenfalls.
Nun zum eigentlichen Problem:
Im Fall von GetNumber("3.000,99?")
Gehe ich mal von einer fehlerhaften Konvertierung aus ! Es ist nun
leider wirklich noch mehr Handarbeit angesagt, und es wird in jedem Fall
auf die richtige Reihenfolge der �berpr�fung / Ersetzung ankommen.
Aber, da ich nun gestern alle anderen Dinge etwas ver�ndert habe, und
das Projekt nun (zu mindestens f�r den Benutzer funktioniert) habe ich
genug Zeit mir jetzt dar�ber Gedanken zu machen.
Auf keinen Fall werde ich jedoch die Werte manuell �ndern.
Vielen Dank, besonders an Andr�!
Gru� Sven-Christian
-----Urspr�ngliche Nachricht-----
Von: Hotel Andr� [mailto:[EMAIL PROTECTED]]
Gesendet: Freitag, 12. Juli 2002 21:20
An: AspGerman Kaffeehaus
Betreff: [aspdecoffeehouse] AW: Die Freitagabend-Verzweiflung
Hallo Sven,
eben geschriebenes war nicht getestet und voller Fehler (*sch�m*)
nachfolgend getestet und l�uft
database = "../db/db1"
db_IDfield = "ID"
db_field = "MyText"
db_table = "MyTable"
set rs = Server.CreateObject("ADODB.Recordset")
Set db = Server.CreateObject("ADODB.Connection")
db.open = "DBQ=" & Server.Mappath("" & Database & ".mdb") &
";Driver={Microsoft Access Driver (*.mdb)};"
sql = "Select " & db_field & " , " & db_IdField & " from " & db_table &
" order by ID ASC"
Set rs = db.Execute(sql)
rs.MoveFirst
Do while not rs.eof or rs.bof
ID = rs.fields(db_IdField).value
Datenfeld = GetNumber(rs.fields(db_field).value)
UpdateSql = "Update " & db_table & " Set " & db_field & " = '" &
datenfeld & "' where " & DB_IdField & " = " & ID
Response.Write UpdateSQL & "<br>"
set MyUpdate = db.Execute(UpdateSql)
rs.MoveNext
loop
rs.close: db.close: Set rs = nothing: Set db = nothing
function GetNumber(datenfeld)
Mydatenfeld = datenfeld
If InStr(datenfeld, " ") > 0 then
datenfeld = Split(Mydatenfeld, " ")(0)
datenfeld = Replace(datenfeld, ",", "")
datenfeld = Replace(datenfeld, ".", "")
If IsNumeric(datenfeld) then
datenfeld = mid(datenfeld, 1 , len(datenfeld)-2) & "." & mid(datenfeld,
len(datenfeld)-1, len(datenfeld))
elseif not IsNumeric(datenfeld) then
datenfeld = Split(Mydatenfeld, " ")(1)
datenfeld = Replace(datenfeld, ",", "")
datenfeld = Replace(datenfeld, ".", "")
end if
else
datenfeld = Replace(datenfeld, ",", "")
datenfeld = Replace(datenfeld, ".", "")
end if
datenfeld = mid(datenfeld, 1 , len(datenfeld)-2) & "." & mid(datenfeld,
len(datenfeld)-1, len(datenfeld))
Response.Write datenfeld & "<br>"
getNumber = datenfeld
end function
Mit freundlichen Gr��en
Hotel Andr� M�nchengladbach
Andr� Scheres
http://hotelandre.de
http://partnerhotels.com
| -----Urspr�ngliche Nachricht-----
| Von: Hotel Andr� [mailto:[EMAIL PROTECTED]]
| Gesendet: Freitag, 12. Juli 2002 20:29
| An: AspGerman Kaffeehaus
| Betreff: [aspdecoffeehouse] AW: Die Freitagabend-Verzweiflung
|
|
| hallo,
| hatte ich zwar nicht aber
| ich w�rde wie folgt vorgehen
|
| Wenn kein IDField enthalten kann es auch ein Textfeld sein, mu�
| nur beim UpdateString '" & id & "#" geschrieben werden
|
| database = "DeinPfad/datenbank"
| db_IDfield = "ID"
| db_field = "Datenfeld"
| db_table = "tabelle"
|
| set rs = Server.CreateObject("ADODB.Recordset")
| Set db = Server.CreateObject("ADODB.Connection")
| db.Open "DBQ=" & Server.Mappath("" & database & "") &
| ";Driver={Microsoft Access Driver (*.mdb)};"
| Set rs = db.Execute("Select " & db_field & " , " & db_IdField & "
| from " & db_table % "")
| rs.MoveFirst
| Do while not rs.eof or rs.bof
| ID = rs.fields(db_IdField).value
| Datenfeld = GetNumber(rs.fields(db_field).value)
|
| UdateSql = "Update " & db_table & " Set " & db_field & " = '" &
| datenfeld & "' where " & DB_IdField & " = " & ID
| set MyUpdate = db.Execute(UpdateSql)
|
| rs.MoveNext
| loop
|
| rs.close: db.close: Set rs = nothing: Set db = nothing
|
| function GetNumber(datenfeld)
|
| If InStr(datenfeld, " ") > 0 then
| datenfeld = Split(datenfeld, " ")(0)
| datenfeld = Replace(datenfeld, ",", "")
| datenfeld = Replace(datenfeld, ".", "")
| If IsNumeric(datenfeld) then
| datenfeld = mid(datenfeld, 1 , len(datenfeld)-2) & "." &
| mid(datenfeld, len(datenfeld)-2, len(datenfeld)
| else
| datenfeld = Split(datenfeld, " ")(1)
| datenfeld = Replace(datenfeld, ",", "")
| datenfeld = Replace(datenfeld, ".", "")
| datenfeld = mid(datenfeld, 1 , len(datenfeld)-2) & "." &
| mid(datenfeld, len(datenfeld)-2, len(datenfeld)
| end if
| else
| datenfeld = Replace(datenfeld, ",", "")
| datenfeld = Replace(datenfeld, ".", "")
| If IsNumeric(datenfeld) then
| datenfeld = mid(datenfeld, 1 , len(datenfeld)-2) & "." &
| mid(datenfeld, len(datenfeld)-2, len(datenfeld)
| end if
| end function
|
|
| Ich hoffe es hilft
|
| Mit freundlichen Gr��en
| Hotel Andr� M�nchengladbach
|
|
| Andr� Scheres
| http://hotelandre.de
| http://partnerhotels.com
|
| | -----Urspr�ngliche Nachricht-----
| | Von: Hupfeld [mailto:[EMAIL PROTECTED]]
| | Gesendet: Freitag, 12. Juli 2002 19:31
| | An: AspGerman Kaffeehaus
| | Betreff: [aspdecoffeehouse] Die Freitagabend-Verzweiflung
| |
| |
| | Hi Folks,
| |
| | leider habe ich mich heute breitschlagen lassen f�r einen Freund ein
| | paar Ver�nderungen an seinem ASP-Datenbank-Projekt durchzuf�hren.
| | Nun habe ich mir jedoch erst jetzt das Elend einmal angeschaut.
| |
| | Das Problem:
| | In einer Datenbank werden ca. 1 Dutzend Euro-Betr�ge erfasst. Die
| | Datenbank hat auch schon �ber 300 Eintr�ge.
| | Und die Spalten sind Typ vchar(50)!
| | Die notwendige Auswertung wurde vorsichtshalber erst mal auf Eis
gelegt
| | ;-) und die soll ich nun erstellen.
| | Beim Eintragen weiterer neuer Datens�tze soll es keine Clientseitige
| | �berpr�fung geben, und auch serverseitige wird eine automatisierte
| | INSERT bzw. UPDATE Anweisung verwandt.
| | Nun wurde nat�rlich f�r 1500,50
| | Folgendes eingegeben:
| | 1.500,50
| | 1.500,50 EUR
| | 1.500,50 ?
| | 1500,50 EURO
| | usw.
| |
| | Hat jemand vielleicht schon mit einem �hnlichen Problem zu tun
gehabt
| | und eine Funktion geschrieben? Dann kann ich n�mlich die anderen
Problem
| | l�sen und habe vielleicht doch noch ein bisschen Wochenende. Danke
| |
| | Gru�
| | Sven-Christian
| |
| | -----Urspr�ngliche Nachricht-----
| | Von: Eiben, Thorsten [mailto:[EMAIL PROTECTED]]
| | Gesendet: Freitag, 12. Juli 2002 18:09
| | An: AspGerman Kaffeehaus
| | Betreff: [aspdecoffeehouse] RE: Die Freitagnachmittagsfrage
| |
| | Markus:
| |
| | Wir machen das immer ueber SQL-Scripts. Ein Trick dabei ist, dass
jedes
| | Skript eine Versionstabelle updated - damit man weiss, was schon
| | gelaufen
| | ist. Das ganze klappt bisher ohne groessere Probleme.
| |
| | Th.
| |
| | -----Original Message-----
| | From: Markus Renschler [mailto:[EMAIL PROTECTED]]
| | Sent: Friday, July 12, 2002 6:18 AM
| | To: AspGerman Kaffeehaus
| | Subject: [aspdecoffeehouse] Die Freitagnachmittagsfrage
| |
| |
| | Hallo,
| |
| | Ich habe mal eine Frage an die, die ASP(X)-Anwendungen f�r
SQL-Server
| | schreiben und in Folge dessen auch mehrere SQL-Server haben, die
| | irgendwie
| | von der Tabellenstruktur her Synchron gehalten bzw. bei �nderungen
| | upgegradet werden m�ssen:
| |
| | Wie bringt Ihr Euren Produktions-DB-Server auf den Stand des
Prototypen
| | bzw.
| | den Prototypen auf den der Entwicklungsserver?
| |
| | Handgemachte Scripts, CASE-tool, Compare-tool?
| |
| | W�rd mich einfach mal interessieren, wie es andere machen...
| |
| | Viele Gr��e
| |
| | Markus
| |
| |
| | | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| | | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
Sie
| | | k�nnen sich unter folgender URL an- und abmelden:
| | |
http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.as
| | | p
| |
| | ---
| |
| | Checked by AVG anti-virus system (http://www.grisoft.com).
| | Version: 6.0.375 / Virus Database: 210 - Release Date: 7/10/2002
| |
| |
| | | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| | | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| | | Sie k�nnen sich unter folgender URL an- und abmelden:
| | |
| |
http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
| |
| | | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| | | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| | | Sie k�nnen sich unter folgender URL an- und abmelden:
| | |
http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
