Wie Exportiere ich eine Access-Datenbank in ein CSV-format?

RICHTUNG (2)
Dies ist etwas, VBA, ausgeführt von der Access-Datenbank:

Sub InsertRecs()
Set db = CurrentDb

'DSN=Suitable system DSN for MySQL
'Then, depending on your set up, you can incude:
'Database=DBName;
'Trusted_Connection=Yes;

'NameOfMySQLTable
strSQL = "INSERT INTO [ODBC;DSN=baywotch;].tblAuction Select * FROM tblAuction;"

db.Execute strSQL, dbFailOnError
End Sub

Dies ist die gleiche Sache, aber in VBScript unter Verwendung von DAO:

Dim objEngine
Dim objWS
Dim objDB
Dim db: db = "C:\Docs\baywotch.db5"

Set objEngine = wscript.CreateObject("DAO.DBEngine.36")

Set objDB = objEngine.OpenDatabase(db)

objDB.Execute "INSERT INTO [ODBC;DSN=baywotch].[tblAuction] SELECT * FROM tblAuction;"

RICHTUNG (1)

Schlage ich vor, eine komplett andere Richtung, und das ist es, lass MySQL die Arbeit machen:

MySQL Migration Toolkit

Getestet habe ich diese gegen die Datenbank, und es wird korrekt importiert, nur ein paar Minuten dauert, und erzeugen alle Arten von wiederverwendbaren Skripte und so weiter.

Wenn Sie Probleme mit der Einrichtung von MySQL, möchten Sie vielleicht, um zu Lesen:
9.1.4. Connection Character Sets and Collations

Richtung (0)

UMSCHREIBEN (2)

'========================================================================'
'
'                   FROM: AnthonyWJones, see post ' 
'
'========================================================================'
Dim db: db = "C:\Docs\baywotch.db5"
Dim exportDir: exportDir = "C:\Docs\" '" SO prettify does not do VB well
Dim exportFile: exportFile=NewFileName(exportDir)


Dim cn: Set cn = CreateObject("ADODB.Connection")

cn.Open _
    "Provider = Microsoft.Jet.OLEDB.4.0; " & _
    "Data Source =" & db

cn.Execute "SELECT * INTO [text;HDR=Yes;Database=" & exportDir & _
   ";CharacterSet=65001]." & exportFile & " FROM tblAuction"

'Export file

'========================================================================'

'Support functions

Function NewFileName(ExportPath)
Dim fs 
Dim NewFileTemp

Set fs = CreateObject("Scripting.FileSystemObject")

NewFileTemp = "CSV" & Year(Date) _
    & Right("00" & Month(Date),2) & Right("00" & Day(Date) ,2) & ".csv"

a = fs.FileExists(ExportPath & NewFileTemp)

i = 1
Do While a
    NewFileTemp = "CSV" & Year(Date) _
        & Right("00" & Month(Date),2) & Right("00" & Day(Date) ,2) & "_" & i & ".csv"

    a = fs.FileExists(ExportPath & NewFileTemp)
    i = i + 1
    If i > 9 Then
        'Nine seems enough times per day to be 
        'exporting a table
        a = True
        MsgBox "Too many attempts"
        WScript.Quit
    End If
Loop

NewFileName = NewFileTemp
End Function 

InformationsquelleAutor Fionnuala

Habe ich nummeriert die Zeilen für die Referenz.

1. db = "C:\Docs\LTD.mdb"
2. TextExportFile = "C:\Docs\Exp.txt"
3. strSQL = "SELECT * FROM tblMembers"
4. Set f = fs.CreateTextFile(TextExportFile, True)

Linie 1 " - die aktuelle access-Datenbank-Datei, mit der Sie arbeiten. in diesem Fall ist es, LTD.mdb

Linie 2 - der name der Datei, die Sie gehen zu schreiben/Anhängen. Es ist Exp.txt

Linie 3 - ist die sql-Anweisung, die verwendet wird, die Daten zu erfassen.

Linie 4 - ist der Befehl zum öffnen der Datei zu schreiben.

Ändern Sie Zeile 2 der name der Datei, die Sie möchten.

Ändern Sie Zeile 3 der Tabelle, die Sie verwenden möchten. Select * alle Spalten verwendet, wenn Sie wollen nur ein paar identifizieren Sie mit Namen. select col1, col2 ... von mytable. Sie möchten sich mit where-Klauseln auch.

Ändern Sie Zeile 4 von CreateTextFile, OpenTextFile und verwenden ForAppending Anhängen.
MSDN VBA

Ich zeichne eine leere, die auf die Formatierung der Zeile. Einer der Wege, die ich benutze, ist ändern Sie die select-Anweisung Kommas. Beispiel select col1 & "," & col2 from mytable.

Für UTF-8 (ich habe nicht ein lauffähiges Beispiel) Versuchen:

utf = new String(a, 0, a.length, UTF-8);
f.WriteLine utf;

UTF-8 VBA

InformationsquelleAutor jim