mehr oder weniger!
wenn ich jetzt nach dem Nachnamen suchen lasse, funkt alles. Nur bei Zahlen regt er sich jetzt auf... und sagt, dass er keinen Standardwert hat.
Delphi-Quellcode:
procedure TSuchDialog.PersNrKeyUp(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
// Verbindung zur gleichen DB initialisieren
// Bestehende Datenbankanbindung trennen
if SuchDialog.ADOConnectionSuch.Connected
then
SuchDialog.ADOConnectionSuch.Connected := False;
// gleichen ConnectionString initialisieren
SuchDialog.ADOConnectionSuch.ConnectionString := Eingabe.ADOConnection.ConnectionString;
with SuchDialog.ADOQuerySuch
do
begin
with SQL do
begin
Clear;
Add('
SELECT * FROM '+ DialogTabelle.TabellenComboBox.Text);
if SuchDialog.BPersNr.Checked
then
begin
Add('
WHERE PersNr LIKE ');
Add('
"'+SuchDialog.PersNr.Text+'
%"');
end;
end;
Open;
SuchDialog.Label1.Caption:= IntToStr(RecordCount)+'
Personen gefunden:';
end;
end;