How to naviguate in a DBF table...
lazarus / 16-Databases

----------------------------------------------------------------------
ecitoyen · 2010-07-06 00:15

How to naviguate in a DBF table...

I have a table NAME.DBF with 1000 records...
Record:

First Name Character 20
Name Character 30
Address Character 50

I can open the table in Lazarus...
and i can get the quantity of records.


But now, if i want to get access to each
record(read each record) and put data
in memory variable....

In dB2K i can use
 FOR i=1 to 1000
 goto i      (record i)
 Var1=First Name
 Var2=Name
 Var3=Address
ENDFOR

How i can do something like that
with lazarus...

Thanks A lot
ecitoyen
simon.brouillard1@voila.fr

----------------------------------------------------------------------
stonefull · 2010-07-06 01:33

Use TDBF

  dbf1.First;
  while not dbf1.EOF do
  begin
     Var1 := dbf1.FieldByName('FIRST_NAME').AsString;
     Var2 := dbf1.FieldByName('NAME').AsString;
     Var3 := db1.FieldByName('ADDRESS').AsString;
     dbf1.Next;
  end;

----------------------------------------------------------------------
ecitoyen · 2010-07-06 11:40

I will try it today and i will give you a comment!
Dear teacher!

----------------------------------------------------------------------
ecitoyen · 2010-07-06 13:47

Dear stonefull,

I will try it... and it's working...

I put my table variable in a one-dimension array Var,
convert it(Var to a TStringlist) and put it in a Combobox.
Thanks a lot...

It's furrny...

----------------------------------------------------------------------
erkka · 2010-08-08 09:50

I jump in with my related question 

Now I'm using

  Dbf1 : TDbf;
  CustomersDb : TDbf;

  cn:=Dbf1.FieldByName('customer').AsInteger;
  CustomersDb.First;
  CustomersDb.MoveBy(cn);
  Label3.Caption:=CustomersDb.FieldByName('name').AsString;

to access the name of customer #cn

It works, but is there something like CustomersDb.Goto(cn) ?