Ergebnis der Suchanfrage

• Forum: Datenbanken

  Re: MySQL Datenbank Filter- bzw. Suchfunktion

    Delphi
    by Stevie, 27. Apr 2005
  Büddeschön... :???:
  function Locate(DataSet: TDataSet; Text: string; out FieldName: string): Boolean;
  var
  i: Integer;
  begin
  i := 0;
  while i < DataSet.FieldCount do
  try
  Result := DataSet.Locate(DataSet.Fields.FieldName, Text, );
  if Result then
• Forum: Datenbanken

  Re: MySQL Datenbank Filter- bzw. Suchfunktion

    Delphi
    by Stevie, 27. Apr 2005
  Wenn du natürlich ein Integer- oder Float- oder ...-Feld nach einem String durchsuchen willst, dann klappt das natürlich nicht.
  Du solltest also noch eine Überprüfung einbauen, dass nur kompatible Felder durchsucht werden können.
  
  als Integer ;-)
• Forum: Datenbanken

  Re: MySQL Datenbank Filter- bzw. Suchfunktion

    Delphi
    by Stevie, 27. Apr 2005
  Hi sniffy,
  
  mit folgendem Code werden nacheinander alle Felder der Query nach dem Text durchsucht:
  i := 0;
  while (i < Query1.Fields.Count) and not Query1.Locate(Query1.Fields.FieldName,Edit1.Text,) do Inc(i);
  MfG
  Stevie
• Forum: Datenbanken

  Re: MySQL Datenbank Filter- bzw. Suchfunktion

    Delphi
    by Stevie, 25. Apr 2005
  Beispielcode ist dafür irrelevant.
  
  - Hast du nen MySQL-ODBC-Treiber installiert?
  - Hast du einen DB-Alias für deine MySQL-DB angelegt?
  - TDatabase-Komponente aufs Form, Rechtsklick und Parameter eintragen
  
  Alternative zu dem BDE-Schrott wären die Zeos-Komponenten,
  wo du dir diese Zwischengeschichten sparst.
• Forum: Datenbanken

  Re: MySQL Datenbank Filter- bzw. Suchfunktion

    Delphi
    by Stevie, 25. Apr 2005
  Hi sniffy,
  
  du musst eine TDatabase-Komponente mit deiner Query verbinden und
  dort die erforderlichen Verbindungseinstellungen vornehemen.
  
  MfG
  Stevie