Ik ben een eenvoudig invoer van gegevens aan het maken.
Wanneer ik tabellen wil invoeren zonder generator, maar toch wil ik bij dubbel de fout opvangen krijg ik foutmeldingen.
Code:Goede code maar voor een generator ----------------------------------- procedure TFormMagazijnlokatie.SaveRecord; begin With DataModule1.IBQuery_Magazijnlokatie do begin Close; SQL.Clear; SQL.Add('INSERT INTO Magazijnlokatie'); SQL.Add('VALUES(Gen_ID(GEN_MAGAZIJNLOKATIE,1),:Plaats)'); Params[0].AsString := DBEdit_plaats.text; try ExecSQL; except on E:EIBInterbaseError do begin if (E.SQLCode = -803) then ShowMessage('Bestaat reeds !'); end; end; end; HerzienStatusBar; DBedit_plaats.Enabled := false; DataModule1.IBTransaction.Commit; Datamodule1.IBTable_Magazijnlokatie.Open; end; foute code zonder generator --------------------------- procedure TFormGemeente.ToolButton_PostenClick(Sender: TObject); begin With DataModule1.IBQuery_Gemeente do begin Close; SQL.Clear; SQL.Add('INSERT INTO Gemeente'); SQL.Add('VALUES(Postcode,GemeenteNaam)'); Params[0].AsString := DBEdit_Postcode.text; Params[1].AsString := DBEdit_GemeenteNaam.text; try ExecSQL; except on E:EIBInterbaseError do begin if (E.SQLCode = -803) then ShowMessage('Bestaat reeds !'); end; end; end; HerzienStatusBar; DBEdit_Postcode1.Enabled := false; DBEdit_GemeenteNaam1.Enabled := false; DataModule1.IBTransaction.Commit; Datamodule1.IBTable_Gemeente.Open; end; Foutmeldingen: -------------- [Error] Form_Gemeente.pas(136): Undeclared identifier: 'EIBInterbaseError' [Error] Form_Gemeente.pas(138): ')' expected but identifier 'SQLCode' found [Error] Form_Gemeente.pas(152): Undeclared identifier: 'key' [Error] Form_Gemeente.pas(169): Statement expected but 'PROCEDURE' found [Error] Form_Gemeente.pas(40): Unsatisfied forward or external declaration: 'TFormGemeente.FormKeyPress' [Fatal Error] Eindwerk.dpr(23): Could not compile used unit 'Form_Gemeente.pas'
Bookmarks