Ergebnis der Suchanfrage

• Forum: Datenbanken

  Re: TADOQuery Primary Key auslesen

    Delphi
    by Ducksoul, 15. Feb 2010
  Ah Mensch... Das artet ja in Arbeit aus.
  
  Danke
• Forum: Datenbanken

  Re: TADOQuery Primary Key auslesen

    Delphi
    by Ducksoul, 15. Feb 2010
  Hallo,
  ich möchte nochmal eine überarbeitete Version der Funktionen einstellen, da oben genannte nicht zu 100% funktioniert haben.
  
  
  (* Primärschlüssel auslesen *)
  function Timport_form.GetPrimaryKeys : String;
  var
  Filter: OLEVariant;
  DS: TADODataSet;
  Field: TField;
• Forum: Datenbanken

  Re: TADOQuery Primary Key auslesen

    Delphi
    by Ducksoul, 11. Feb 2010
  Ja das war ein kleiner Denkfehler, welcher schon behoben ist.
  
  Danke trotzdem :)
• Forum: Datenbanken

  Re: TADOQuery Primary Key auslesen

    Delphi
    by Ducksoul, 11. Feb 2010
  Hallo,
  
  deine Hilfe hat mich schon um einiges weitergebracht.
  Inzwischen habe ich folgende zwei Funktionen:
  
  
  function Timport_form.RetrievePrimaryKeys : String;
  var
  Filter: OLEVariant;
  DS: TADODataSet;
• Forum: Datenbanken

  Re: TADOQuery Primary Key auslesen

    Delphi
    by Ducksoul, 10. Feb 2010
  Hey,
  
  das was dort beschrieben wurde behandelt DAO Komponenten. Das Ding ist nun allerdings, dass die Software grade komplett von DAO auf ADO umgestellt wird.
  
  IndexDef besitzt bei ADO also leider keine Property namens 'Primary'.
  
  Ich habe jetzt meinen Code wie folgt geändert:
  
  ADODataSet1.CommandText := 'SELECT * From Kunde';
  ADODataSet1.IndexName := 'Kundenschluessel';
• Forum: Datenbanken

  Re: TADOQuery Primary Key auslesen

    Delphi
    by Ducksoul, 10. Feb 2010
  So ich hab jetzt mal den Workaround probiert. Allerdings stelle ich mir jetzt noch die Frage was da genau passiert.
  
  
  ADODataSet1.CommandText := 'SELECT * From Kunde';
  ADODataSet1.Active := True;
  if ADODataSet1.IndexName <> '' then
  begin
  ADODataSet1.IndexDefs.Update;
  IndexDef := ADODataSet1.IndexDefs.Find(ADODataSet1.IndexName);
  ...
• Forum: Datenbanken

  Re: TADOQuery Primary Key auslesen

    Delphi
    by Ducksoul, 9. Feb 2010
  if query_ex.IndexFieldCount <> 0 then
  begin
  slTableOne.Add(query_ex.IndexFields.AsString);
  ShowMessage('Hallo');
  end;
  
  
  Müsste nicht, wenn ich diesen Code in der Schleife einfüge, zumindest mal eine Msg mit 'Hallo' aufloppen? Sonst würde es doch bedeuten, dass es keine Indexfelder gibt?
  
  Also ich muss zugeben, dass mir die Delphihilfe bei diesem Thema irgendwie gar nicht hilft. :-/
• Forum: Datenbanken

  TADOQuery Primary Key auslesen

    Delphi
    by Ducksoul, 9. Feb 2010
  Hallo,
  
  beim Auslesen der Tabellenstruktur in der Datenbank bin ich auf das Problem gestoßen, dass ich nicht an den Primary Key herankomme.
  Die Daten werden bis jetzt wie folgt ausgelesen:
  
  
  ...
  i := 0;
  slCodeMaster := TStringlist.Create;
  slTableOne := TStringlist.Create;