Insert into funktioniert nicht

Für Themen zu Datenbanken und Zugriff auf diese. Auch für Datenbankkomponenten.
Benutzeravatar
fliegermichl
Lazarusforum e. V.
Beiträge: 1423
Registriert: Do 9. Jun 2011, 09:42
OS, Lazarus, FPC: Lazarus Fixes FPC Stable
CPU-Target: 32/64Bit
Wohnort: Echzell

Re: Insert into funktioniert nicht

Beitrag von fliegermichl »

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;
 

Antworten