| | |
 | Lenovo erstellt zum dritten Mal in Folge die achte jährliche Liste der besten Arbeitsplätze für Innovatoren in den Bereichen KI, Automatisierung und Machine Learning, eine Pressemitteilung
|
|
Autor
|
Thema: Konvetierung Access nach MySQL (1421 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
|

| | Senior PLM Consultant - Siemens Teamcenter (w|m|d) | In dieser Rolle berätst du unsere Kunden bei der Einführung und Weiterentwicklung ihrer Systeme und trägst maßgeblich zum Projekterfolg bei. - Du analysierst die Produktentwicklungsprozesse unserer Kunden und entwickelst maßgeschneiderte PLM-Lösungen auf Basis von Siemens Teamcenter
- Du führst Workshops zur Anforderungsaufnahme durch und berätst unsere Kunden bei der ...
| | Anzeige ansehen | Ohne Berufserfahrung |
|
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:         
|