How to add records in a DBF table
lazarus / 16-Databases

----------------------------------------------------------------------
ecitoyen · 2010-07-14 14:30

In a Lazarus example...

In the following example, we create a table with 2 field 
for each records

   Dbf1.FilePathFull := '/path/to/my/database';
   Dbf1.TableName := 'dvds';
   With Dbf1.FieldDefs do begin
       Add('Name', ftString, 80, True);
       Add('Description', ftMemo, 0, False);
       Add('Rating', ftString, 5, False);
   end;
   Dbf1.CreateTable;

 Id and Name
 But Now, how I can add records with employees Name.
 (I suppose that the field Id(with ftAutoInc) will
 be incremented by addind records)

 With dBase I used
 Append Blank
 Replace Name with Employename
 close databases

I Suppose Dbf1.Edit... but i don't know how to ?



Thanks a lot....

----------------------------------------------------------------------
xinyiman · 2010-07-14 14:44

Example


Dbf_ConnectionName.Insert;
Dbf_ConnectionName.FieldByName('NameField').AsInteger:=1;
Dbf_ConnectionName.FieldByName('NameField').AsString:='Hello world';
Dbf_ConnectionName.Post;

----------------------------------------------------------------------
ecitoyen · 2010-07-14 17:10

I do...

 Dbf9.Edit;
 Dbf9.FieldByName('fNOPTF').AsInteger:= NEWPLATE;
 Dbf9.Post;

to write on an existing record...

later i will try to add a new record with .insert as you told...

Tanks a lot... I'm appreciating your support...

----------------------------------------------------------------------
xinyiman · 2010-07-15 05:43

Dbf9.Insert;
Dbf9.FieldByName('fNOPTF').AsInteger:= NEWPLATE;
Dbf9.Post;

NEWPLATE is a integer variable!