Insert into funktioniert nicht

[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;