📄 usedbfemployee.prg
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -