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
