Autor
|
Thema: Konvetierung Access nach MySQL (1135 mal gelesen)
|
Fan-ME10 Mitglied DV-Adminstrator, Konstrukteur
Beiträge: 543 Registriert: 21.08.2001 ME10 V8.7D unter WIN2000 SP4 verschiedene Rechner - Erare humanum est
|
erstellt am: 16. Mai. 2007 15:42 <-- editieren / zitieren --> Unities abgeben:
Hallo, hat schon jemand Erfahrung damit? Mein Access stürzt beim konvertieren einer Tabelle immer ab. Weiss nicht warum. Habe es dann mit dem frei verfügbaren VBA-Modul von Pedro Freire gemacht. Das ist aber nicht so toll gewesen, da er die Dezimalkommas nicht in Dezimalpunkte gewandelt hat. Ich kenne mich mit der VBA-Programmierung soweit nicht aus. Ich poste mal den Modultext, vielleicht kann mir da jemand helfen. Gruß Wilfried ------------------ Gruß Wilfried Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
furter Mitglied
Beiträge: 483 Registriert: 01.03.2004 Windows 7 Autodesk MAP 3D 2017 SP2 Autodesk Civil 2016
|
erstellt am: 21. Mai. 2007 14:06 <-- editieren / zitieren --> Unities abgeben: Nur für Fan-ME10
|
Fan-ME10 Mitglied DV-Adminstrator, Konstrukteur
Beiträge: 543 Registriert: 21.08.2001 ME10 V8.7D unter WIN2000 SP4 verschiedene Rechner - Erare humanum est
|
erstellt am: 22. Mai. 2007 20:06 <-- editieren / zitieren --> Unities abgeben:
|
Stelli1 Moderator Verm.-Ing.
Beiträge: 1521 Registriert: 17.08.2005 Map 2000-2010, Rasterdesign MapGuide 6.5 - 2010 Oracle 9i,10g Enterprise autodesk Topobase 2-2010 VS6, VS.net
|
erstellt am: 22. Mai. 2007 20:31 <-- editieren / zitieren --> Unities abgeben: Nur für Fan-ME10
Hallo Wilfried, wenn es eine einmalige Sache ist, kannst du vor der Konvertierung in der Ländereinstellung das Komma durch den Punkt tauschen. Dann sollte es gehen. Oder du ergänzt den VB Code wie folgt
Code: ..... Case dbTime If Left$(DB_ENGINE, 2) = "MY" Or DATE_AS_STR Then sqlcode = sqlcode & "'" & Format(crs.Fields(cfieldix).Value, "HH:MM:SS") & "'" Else 'print in Access internal format: IEEE 64-bit (8-byte) FP sqlcode = sqlcode & "'" & Format(crs.Fields(cfieldix).Value, "#.#########") & "'" End If Case dbBinary, dbLongBinary, dbVarBinary sqlcode = sqlcode & "'" & conv_bin(crs.Fields(cfieldix).Value) & "'" '''' Zeilen einfügen Case dbDecimal, dbDouble, dbSingle sqlcode = sqlcode & replace(crs.Fields(cfieldix).Value, "," , ".") ''''' Case Else sqlcode = sqlcode & conv_str(crs.Fields(cfieldix).Value) End Select .....
Viel ErfolgWilfried Stelberg ------------------ Warum lisp'eln wenn's auch anders geht. www.ib-stelberg.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Fan-ME10 Mitglied DV-Adminstrator, Konstrukteur
Beiträge: 543 Registriert: 21.08.2001 ME10 V8.7D unter WIN2000 SP4 verschiedene Rechner - Erare humanum est
|
erstellt am: 22. Mai. 2007 21:44 <-- editieren / zitieren --> Unities abgeben:
|
Stelli1 Moderator Verm.-Ing.
Beiträge: 1521 Registriert: 17.08.2005 Map 2000-2010, Rasterdesign MapGuide 6.5 - 2010 Oracle 9i,10g Enterprise autodesk Topobase 2-2010 VS6, VS.net
|
erstellt am: 23. Mai. 2007 09:03 <-- editieren / zitieren --> Unities abgeben: Nur für Fan-ME10
|
| BIM Coordinator (m/f/d) | Your vision is ambitious. Just like ours. Our people are our success. As one of us, you will contribute to engineering excellence for the high-tech markets of the future, including semiconductors, batteries, pharmaceuticals, biotechnology, and data centers. At Exyte, you will be part of a global community of challenge seekers who are ambitious and passionate about innovation.... | Anzeige ansehen | Bauwesen |
|
Fan-ME10 Mitglied DV-Adminstrator, Konstrukteur
Beiträge: 543 Registriert: 21.08.2001 ME10 V8.7D unter WIN2000 SP4 verschiedene Rechner - Erare humanum est
|
erstellt am: 23. Mai. 2007 12:51 <-- editieren / zitieren --> Unities abgeben:
|