Tabelle von MS Access nach MS SQL Server kopieren

[Solid01]

Hallo zusammen,
folgendes Problem: Ich möchte eine Tabelle aus einer Access-Datenbank in eine SQL Server-Datenbank kopieren.

Ich habe schon zwei Wege versucht.

1. Eine CREAT TABLE - SQLAnweisung basteln und diese ausführen. Das scheitert nur leider daran, dass die Informationen, wie z. B. den dDtentyp eines Feldes, in die Anweisung zu bekommen. Denn ich kenne keine Methode, die einem den Datentyp eines Feldes als String zurückgibt.

2. Mit Fielddefs und zwar folgendermaßen:

Delphi-Quellcode:

// Schritt 1: Feldstruktur kopieren
    with SQLDataset do
    begin
      FieldDefs.Clear;

      for i := 0 to AccessDataset.FieldDefs.Count - 1 do
      begin
        with FieldDefs.AddFieldDef do
        begin
          Name := AccessDataset.FieldDefs[i].Name;
          DisplayName := AccessDataset.FieldDefs[i].DisplayName;
          Attributes := AccessDataset.FieldDefs[i].Attributes;
          DataType := AccessDataset.FieldDefs[i].DataType;
          Precision := AccessDataset.FieldDefs[i].Precision;
          Required := AccessDataset.FieldDefs[i].Required;
          Size := AccessDataset.FieldDefs[i].Size;
        end;
      end;
      // Schritt 2: RecordSet anlegen
      CreateDataSet;
      //
    end;

    // Schritt 3: Daten kopieren
    with AccessDataset do
    begin
      First;
      while not Eof do
      begin
        SQLDataset.Append;
        for i := 0 to SQLDataset.FieldCount - 1 do
        begin
          SQLDataset.Fields[i].Value := Fields[i].Value;
        end;
        SQLDataset.Post;
        Next;
      end;
    end;
    // Schritt 4: Kopierte Daten anzeigen
    SQLDataset.Active := True;
  end;

Auf diese Weiße wird die Tabelle aber nicht in der Datenbank, sondern nur im Arbeitsspeicher angelegt.

Kann mir irgend jemand da draußen weiterhelfen? Häng nämlich schon lange an diesem Problem und bin langsam am Verzweifeln.

Vielen Danke schon mal im Voraus.
Gruß Solid01.

[edit=r_kerber]Code- durch Delphi-Tags ersetzt. Mfg, r_kerber[/edit]

[whook]

tut mir leid, wenn meine Antwort vollkommen am Thema vorbei geht aber dein Problem hört sich nach einer einmaligen Sache an wieso importierst am SQL Server nicht einfach deine Tabelle.
Dazu einfach am SQL Server in den Tabellen rechte Maustaste All Tasks/Daten importeren ...

[Solid01]

Danke für die Antwort, aber das ganze ist leider nicht einmalig.
Muss bei sehr vielen Datenbank durchgeführt werden. Das bei jeder manuell zu machen ist undenkbar bzw. mit sehr hohem Aufwand verbunden.

Gruß Solid01.

[shmia]

Zitat:

Zitat von Solid01

folgendes Problem: Ich möchte eine Tabelle aus einer Access-Datenbank in eine SQL Server-Datenbank kopieren.

Ich habe schon zwei Wege versucht.

1. Eine CREAT TABLE - SQLAnweisung basteln und diese ausführen. Das scheitert nur leider daran, dass die Informationen, wie z. B. den dDtentyp eines Feldes, in die Anweisung zu bekommen. Denn ich kenne keine Methode, die einem den Datentyp eines Feldes als String zurückgibt.

Für die Zuordnung des Datentyps zur SQL Datentyp musst du dir eigene Funktionen
bauen:

Delphi-Quellcode:

function SQLDatatypeForSQL_Server(f:TField):string;
begin
   case f.Datatype of
      ftInteger : result := 'Int';
      ftString : Result := Format('varchar(%d)', [f.DataLength]);
      ...
   else
       Assert(False, 'Datatype not supported');
   end;

   if f.Required then
      result := Result + ' NOT NULL'
   else
      result := Result + ' NULL';
end;
function SQLDatatypeForAccess(f:TField):string;
....

Ein weiterer Weg wäre die Verwendung von ADOX (ADO Extentions).
Leider sind diese Schnittstellen nicht 100% implementiert, so dass man
manchmal wieder auf SQL ausweichen muss. (M$ hat wohl keine Bock mehr gehabt)

Das Hinzufügen von FieldDefs kannst du vergessen, da dies eigentlich
nie richtig funktioniert.

[Solid01]

Ok, dann werde ich das auf diese Weise machen. Dankeschön!

Welche Properties muss ich denn alles übergeben, damit ich wirklich eine 1 zu 1 Kopie hab?
Also, da gibts ja noch mehr wie den Datentyp und Null bzw. NOT NULL. Gibts da vielleicht irgendwo ne Auflistung?

Gruß Solid01