usedbfemployee.prg

VFP连接并且使用ACCESS数据库中的数据

if MyConnH<=0
LCDATABASENAME=SYS(3)
crea data &LCDATABASENAME
CREA CONN Myconn CONNSTRING "driver={Microsoft Access Driver (*.mdb)};dbq=db1.mdb"
MyConnH=SQLCONNECT('Myconn')
IF MyConnH<=0
=MESSAGEBOX('无法连接到数据库!'+spac(4),64,'信息')
do realquit
endi
endi
Lnconn=SQLEXEC(MyConnH, 'SELECT * FROM employee', 'employee')
IF Lnconn<=0
=MESSAGEBOX('无法完成数据查询!'+spac(4),64,'信息')
do realquit
endi
retu