求助VFP刷新ACCESS数据方法
请朋友们指教,VFP刷新ACCESS数据的方法,谢谢!
LOCAL nHandle,nRes
nHandle = SQLSTRINGCONNECT("Driver={Microsoft Access Driver (*.mdb)};dbq=g:\access\数据.mdb;")
* 1.连接成功后,创建表1
IF nHandle >0
nRes = SQLEXEC(nHandle,'create table 表1(序号 int,姓名 char(20))')
IF nRes >0
MESSAGEBOX("在Access上创建表1成功")
ELSE
MESSAGEBOX("在Access上创建表1失败")
ENDIF
SQLDISCONNECT(nHandle) &&使用后就断开连接
ENDIF
* 2.在新建的表1上增加数据
* 先模拟生成本地数据
CREATE CURSOR tb1(序号 i,姓名 c(20))
FOR i=1 TO 20
INSERT INTO tb1(序号,姓名) VALUES (i,'姓名'+PADL(i,3,'0'))
ENDFOR
BROWSE
nHandle = SQLSTRINGCONNECT("Driver={Microsoft Access Driver (*.mdb)};dbq=g:\access\数据.mdb;")
IF nHandle >0
SELECT tb1
rc = 0
SCAN
xh = 序号
xm = 姓名
nRes = SQLEXEC(nHandle,'insert into 表1(序号,姓名) values(?xh,?xm)')
IF nRes >0
rc = rc +1
ENDIF
ENDSCAN
MESSAGEBOX("成功插入 "+TRANSFORM(rc)+" 条记录")
SQLDISCONNECT(nHandle)
ENDIF