Ergebnis der Suchanfrage

• Forum: Datenbanken

  Re: Allgemeine Fragen zu Access + Delphi

    Delphi
    by Sharky, 6. Sep 2003
  Nach über einem Monat? :shock:
  
  Lasse einfach das QuotedStr weg. Dies wird nur bei einem Zahlenvergelicht nicht benötigt.
• Forum: Datenbanken

  Re: Allgemeine Fragen zu Access + Delphi

    Delphi
    by Sharky, 30. Jul 2003
  procedure TForm2.Button8Click(Sender: TObject);
  begin
  AdoQuery1.Close;
  AdoQuery1.SQL.Clear;
  AdoQuery1.SQL.Add('SELECT medium, autor, titel, id, ausleihdatum FROM TTitelaufnahme WHERE ausleiher = '
  + user);
  
  
  Von welchem Typ ist denn "ausleiher" in der Tabelle? So wie Du es schreibst müsste es ein Integer (zahl) sein. Sollte es aber ein String sein musst Du die Variable user...
• Forum: Datenbanken

  Re: Allgemeine Fragen zu Access + Delphi

    Delphi
    by Sharky, 29. Jul 2003
  Hai,
  
  ersteinmal: ComboBox.ItemIndex beginnt bei 0.
  
  Aus deinen vielen Codezeilen habe ich mal diesen Code gemacht:
  
  
  begin
  AdoQuery1.Close;
  AdoQuery1.SQL.Clear;
• Forum: Datenbanken

  Re: Allgemeine Fragen zu Access + Delphi

    Delphi
    by Sharky, 28. Jul 2003
  Also, bei mir liefert ein:
  
  
  QuotedStr ('%' + form1.edit1.text + '%')
  
  '%suchbegriff%'
  
  Alternativ kannst Du den SQL-String ja einmal so aufbauen:
  
  DataModule2.qryUser.SQL.Clear;
• Forum: Datenbanken

  Re: Allgemeine Fragen zu Access + Delphi

    Delphi
    by Sharky, 28. Jul 2003
  Schaue dir mal diesen Code an. Schaue dir mal genau an was in QuotedStr steh.
  
  
  DataModule2.qryUser.Close;
  DataModule2.qryUser.SQL.Clear;
  DataModule2.qryUser.SQL.Add('SELECT * FROM TUser WHERE (name LIKE'
  + QuotedStr ('%' + form1.edit1.text + '%')
  + ')');
  DataModule2.qryUser.Open;
• Forum: Datenbanken

  Re: Allgemeine Fragen zu Access + Delphi

    Delphi
    by Sharky, 28. Jul 2003
  Ups... mein Fehler! ABER: Den musst Du selber lösen können.
  
  Tip:
  
  Wer hindert dich daran das alles was in Hochkommas stehen soll in QuotedString zu setzten; nicht nur den Namen aus deinem TEdit!?
• Forum: Datenbanken

  Re: Allgemeine Fragen zu Access + Delphi

    Delphi
    by Sharky, 27. Jul 2003
  Ich weiss nicht ob bei Access der LIKE-Befehl unterstützt wird. Ich arbeie mit einem MS-SQL-Server.
  
  Vesuche mal folgendes:
  
  
  DataModule2.qryUser.Close;
  DataModule2.qryUser.SQL.Clear;
  DataModule2.qryUser.SQL.Add('SELECT * FROM TUser WHERE (name LIKE' + QuotedStr (form1.edit1.text)
  + '%');
  DataModule2.qryUser.Open;
• Forum: Datenbanken

  Re: Allgemeine Fragen zu Access + Delphi

    Delphi
    by Sharky, 27. Jul 2003
  ....
  ....
  
  Ich lache doch überhaupt nicht! Ich wollte nur wissen was Du schon kannst um die Hilfe entsprechend aufzubauen :lol:
  
  Du bist auf dem richtigen Weg.
  
  Überlege doch mal.... Wenn du mit:
  
  FieldByName('Passwort').AsString := te_Passwort.Text;
• Forum: Datenbanken

  Re: Allgemeine Fragen zu Access + Delphi

    Delphi
    by Sharky, 27. Jul 2003
  Hai Saulo,
  
  anbei einmal etwas Code. Ich habe das Ganze ohne DBEdit-Felder gemacht weil.
  
  Alle Felder sind reine TTedits. Im FormActivate lege ich die Passwordchar für die beiden Passwort-Felder fest.
  
  
  procedure TForm3.FormActivate(Sender: TObject);
  begin
  te_Passwort.PasswordChar := '*';
• Forum: Datenbanken

  Re: Allgemeine Fragen zu Access + Delphi

    Delphi
    by Sharky, 27. Jul 2003
  Hai Saulo,
  
  hier ersteinmal der "wichtigste" Teil:
  
  
  function username: boolean;
  begin
  Datamodule2.qryUser.Close;
  DataModule2.qryUser.SQL.Clear;
  DataModule2.qryUser.SQL.Add('SELECT Username FROM TUser WHERE Username =' + QuotedStr(Form3.Edit1.Text));
• Forum: Datenbanken

  Re: Allgemeine Fragen zu Access + Delphi

    Delphi
    by Sharky, 27. Jul 2003
  Ähmmm......
  
  1. Wo weisst Du deiner Funktion Username ein Ergebniss zu?
  2. Warum rufst Du sei zweimal auf?
  
  
  Verstehe mich um Gotteswillen nicht falsch! Aber hast Du schon (in Delphi ) programmiert? Wenn nicht würde ich nicht unbedingt mit einer Datenbank anwendung anfangen!
  
  Da Du ja mit SQL arbeitest "lernst" Du quasi zwei Programmiersprachen gleichzeitig. Und das ist echt hart.