Insert into funktioniert nicht

Für Themen zu Datenbanken und Zugriff auf diese. Auch für Datenbankkomponenten.

Re: Insert into funktioniert nicht

Beitragvon fliegermichl » 17. Mai 2018, 13:41 Re: Insert into funktioniert nicht

Du hättest das auch in der separaten Routine lassen können. Nur diese eben als Funktion implementiert.
Code: Alles auswählen
 
function TFrmEQStamm.CheckSN : boolean;
begin
    Result := True; // Erst mal davon ausgehen, daß es passt
     //Datenbankverbindung aufbauen
     FrmConnectDB.connectDB;
     FrmConnectDB.SQLQuery1.Close;
     FrmConnectDB.SQLQuery1.SQL.Text := 'SELECT * FROM pc_geraete where seriennummer = :seriennr;';
     FrmConnectDB.SQLQuery1.ParamByName('seriennr').AsString := Edit2.Text;
     FrmConnectDB.SQLQuery1.Open;
     if FrmConnectDB.SQLQuery1.RecordCount > 0 then
     begin
          ShowMessage('Seriennummer schon vorhanden');
          Result := False;
     end;
end;
 


und in der Hauptroutine dann
Code: Alles auswählen
 
if CheckSN then
begin
 // Code für Insert hier hinein
end;
 
fliegermichl
 
Beiträge: 202
Registriert: 9. Jun 2011, 08:42

• Themenende •
Vorherige

Zurück zu Datenbanken



Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast

porpoises-institution
accuracy-worried