| |
 | Online-Kurs: Grundlagen des 3D-Druck-Designs für Industrieingenieure , ein Kurs
|
Autor
|
Thema: Konvetierung Access nach MySQL (1236 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: 485 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: 1526 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: 1526 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
|

| Aufstellungs- und Rohrleitungsplaner (m/w/d) | GEA ist einer der größten Systemanbieter für die nahrungsmittelverarbeitende Industrie sowie ein breites Spektrum weiterer Branchen mit einem Konzernumsatz von rund 5,2 Milliarden Euro in 2022. Das international tätige Technologieunternehmen konzentriert sich auf Maschinen und Anlagen sowie auf Prozesstechnik und Komponenten. Darüber hinaus bietet GEA nachhaltige Lösungen für anspruchsvolle Produktionsverfahren in unterschiedlichen Endmärkten und hält ein umfassendes Serviceportfolio bereit.... | Anzeige ansehen | Konstruktion, Visualisierung |
|
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:         
|