Datenbank

[tomes-one]

Hi leute,

da ihr mir schon sehr gut weitergholfen habt, wende ich mich mit diesem problem voller hoffnung wieder einmal an euch.

ich möchte einen INSERT aus einer DBF-Datei in eine Firebird Datenbank machen.
ich hab es erstmal ohne die DBF versucht und es hat wunderbar geklappt.

dach jetz(mit der DBF) bekomme ich folgende fehlermeldung wenn ich den insert ausführen will.

databse connection component is not assigned

kann mir da jemand weiterhelfen?

[mkinzler]

Zeig mal den Code/Abfrage
Btw. welche FB-Version?

[tomes-one]

firebird 1.5

Delphi-Quellcode:

ZQuery2.SQL.Clear;
ZQuery2.SQL.Text := ('SELECT * FROM DEPOT_C')
ZQuery2.Open;
while not 2Query2.Eof do
begin
  ZQuery1.Connection := ZConnection1;
  ZQuery1.Open;
  ZQuery1.Append;
  ZQuery1['BEDIENER']   := ZQuery2['BEDIENER'];
  ZQuery1.Post;
  ZQuery2.Next;
  ZQuery1.Close;
end;

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

[haentschman]

Hallo,

Zitat:

databse connection component is not assigned

...die Meldung bedeutet eigentlich, daß einer z.B. Query die Connection nicht zugeordnet ist. Der ZQuery1 weist du im Quelltext aber die Connection zu. Hast du noch irgend welche unbenutze Datenbankobjekte "rumfliegen" wo du die Connection vergessen hast ?. Ansonsten versuche mal die Connection im Objektinspektor zu setzen.

PS: schreibe doch die DS gleich per SQL nach FB. Jetzt schreibst du in die Query und die Query setzt dann SQL ab. mit Cached Updates und ApplyUpdates kann es manchmal Sinn machen Änderungen an der Query später abzusetzen oder Veränderungen komplett zu verwerfen.

[tomes-one]

danke, ich hab den fehler gefunden...ich musste für die dbf- datei einfach nur ne normale tquery nehmen und nicht die ztquery...wird aber bestimmt nicht meine letzte frage zu diesem thema gewesen sein also haltet euch bereit---lol

[tomes-one]

und da bin ich schon wieder.

normaler weise mach ich nen COMIT wnn ich was in eine DB eintrage. deshalb mach ich das hier mit dem Befehl COMMITUPDATES.
aber irgendwie funzt das nicht.

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var
  ID,AKT_SES : integer;
begin
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT * FROM DEPOT_C');
  Query1.Open;
  ZQuery1.Connection := ZConnection1;
   while not Query1.Eof do
   begin
     ZQuery1.Open;
     ZQuery1.Last;
      if ZQuery1.FieldByName('ID').IsNull then
      begin
        ID := 0;
        AKT_SES := 0;
      end else
      begin
        ID := ZQuery1['ID'];
        AKT_SES := ZQuery1['AKTSESSION'];
      end;
      ZQuery1.Append;
      ZQuery1['ID']          := ID + 1;
      ZQuery1['AKTSESSION']  := AKT_SES + 1;
      ZQuery1['BEDIENER']    := Query1['BEDIENER'];
      ZQuery1.Post;
      Query1.Next;
    end;
  ZQuery1.CommitUpdates;
end;

[edit=mkinzler]Delphi-Tag eingefügt. Das nächste Mal bitte selber machen! Mfg, mkinzler[/edit]

[haentschman]

Hallo,

Zitat:

aber irgendwie funzt das nicht.

...ich liebe diese Fehlermeldungen

normalerweise brauchst du nicht "Commiten". Das erledigt die TZQuery in diesem Fall mit. Wenn du in der Query das Property CachedUpdates auf False stehen hast werden alle Änderungen an der Query direkt in die DB geschrieben und committed. Steht CachedUpdates auf True werden die Änderungen erst mit ApplyUpdates geschrieben oder mit CancelUpdates verworfen.

[tomes-one]

also cachedupdates steht auf false und das commitupdates hab ich auch mal rausgenommen, hat beides nicht geklappt.

[haentschman]

Zitat:

hat beides nicht geklappt.

wie solls denn klappen ?