Reading foxpro dbf files from forms6i

Question

hi all,
can anyone tell me how can i read a dbf file and access data from that.
Thanks
Uday

Answer 1

Exec_Sql Package allows you to acess non Oracle Database
You will have to follow following steps as follows:-
1-First Find OCA.PLL and EXEC_SQL.PLL libraray.
2-Attach Both libraries to ur concerned Forms.
3-Create VFP odbc driver.
3-Create a Button to write follwing codes on WHEN-BUTTON-PRESSED trigger or u can write
these code on any Trigger as you required.
Decalre
conidodbc exec_sql.conntype;
B varchar2(100);
C varchar2(100);
curid exec_sql.cyrstype;
sqlstr varchar2(1000);
nres pls_integer;
Begin
--This exec_sql.open_connection Procedure connect your 
--non Oracle Database through ODBC Driver
coniidodbc:=exec_sql.open_connection
('scott/tiger@odbc:yourodbcdivername');
--exec_sql.opne_cursor return the curid of your non
--Oracle Database
curid:=exec_sql.opne_cursor(conidodbc);
--It is Your non Oracle Database Statement follow there
--Syntax rule of your non Oracle Database Syntax
sqlstr:='Select A from yourdbffilename ';
--exec_sql.Parse procedure parse your Stement to non
--Oracle Database
exec_sql.Parse(connidodbc,curid,sqlstr,exec_sql.V7);
--After succesful Parsing it Executes your Ststment
nres:=exec_sql.execute(conidodbc,curid);
--exec_sql.Define column mapping for your local
--variable to Non Oracle Database Column
exec_sql.Define column (conidodbc,curid,B,30);
while (Exec_Sql.fetch_rows(conidodbc,curid)>0)
loop
--Exec_Sql.column_value intiliaze your Non Oracle
--Database to your Local Variable
Exec_Sql.column_value (conidodbc,curid,1,B);
C:=B;
message('C value '||C);
end loop;
End;
--Rest Explanation About Exec_Sql Package Find Help in
--You Forms Still If any Problem then add me on MSN my id
--is [email protected] may be I can help you more
Thanks
Khurram Siddiqui