AddEmptyRecord Update- en Insertfuncties

Met AddEmptyRecord kan een nieuwe record toegevoegd worden indien de actieve query gedeclareerd met met SqlQuery, OleQuery, OleExQuery of AdoQuery dit ondersteund. De functie resulteert in de waarde TRUE indien succesvol en anders in FALSE.

AddEmptyRecord(KeyFieldName, KeyValue)

KeyFieldName(MergedString)
In KeyFieldName wordt de veldnaam in een query of tabel vermeld waarvan de waarde altijd uniek is.

KeyValue(MergedString)
In KeyValue wordt een unieke waarde voor KeyFieldName vermeld waarmee het nieuwe record moet worden toegevoegd.

Voorbeeld: Openenen nieuwe rekening met de Account OLE DB Provider
{
 Integer iRekNr
 String sLCode
 OleQuery "Provider=FaOleDb.FaProv;Data Source=c:\astona\demo.adm", OLE
 OLE
 OpenTable(info)
 Laag = [DebiteurenNrLaag]
 Hoog = [DebiteurenNrHoog]
 iRekNr = GetNumvalFromLCode("Test",Laag,Hoog)
 If iRekNr>0
  OpenTable(Debiteuren.idx)
  SetAdoFilter(RekeningNr=[iRekNr])
  While First()
   iRekNr = iRekNr + 1
   SetAdoFilter(RekeningNr=[iRekNr])
  Wend
  GetLCodeFromNumval(sLCode,iRekNr,Laag,Hoog)
 Endif
 if AddEmptyRecord(RekeningNr,[iRekNr])
  SetAdoFilter(RekeningNr=[iRekNr])
  Copy(Naam*,Test[iRekNr])
}
  RekeningNr: [iRekNr] ([sLCode]) is geopend op naam van: [Naam*]
{
 Endif
}

Resultaat:
RekeningNr: 257947 (TESZb) is geopend op naam van: Test257947