[aspdecoffeehouse] AW: Die Freitagabend-Verzweiflung

Hotel Andrï¿½ Fri, 12 Jul 2002 11:59:12 -0700

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

BEGIN:VCARD
VERSION:2.1
N:Scheres;Andrï¿½;;Herr
FN:Andrï¿½ Scheres
NICKNAME:Andrï¿½
ORG:Hotel Andrï¿½ GmbH
TEL;HOME;VOICE:02166 254199
TEL;HOME;FAX:02166 254148
ADR;HOME:;;Geneickener Str. 104;Mï¿½nchengladbach;NRW;41238;Deutschland
LABEL;HOME;ENCODING=QUOTED-PRINTABLE:Geneickener Str. 104=0D=0AM=F6nchengladbach, NRW 41238=0D=0ADeutschland
URL;HOME:http://hotelandre.de
EMAIL;PREF;INTERNET:[EMAIL PROTECTED]
EMAIL;INTERNET:partnerhotels@server
REV:20011210T181147Z
END:VCARD

| [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] AW: Die Freitagabend-Verzweiflung

Antwort per Email an