主题:请高手指点
nhandle=SQLSTRINGCONNECT("Driver={Microsoft Access Driver (*.mdb)};dbq=aa.mdb;pwd=") &&pwd为数据库密码项
IF nhandle <=0
MESSAGEBOX("数据库连接失败!!!",16, '错误信息')
RETURN
eLSE
ac=SQLEXEC(nhandle,"SELECT 单位代码,单位名称 FROM ZS2","Temp1") &&zs2为ACCESS中的表名
IF Ac <0
MESSAGEBOX("读取数据错误!"+STR(ac),16, '错误信息')
RETURN
ENDIF
SELECT ydyk &&这个是DBF库,在前面打开的
SCAN all
rlstm=单位代码
rlsmc=单位名称
SELECT Temp1
APPEND BLANK
REPLACE 单位代码 WITH rlstm,单位名称 WITH rlsmc
SELECT ydyk
ENDSCAN
ENDIF
SELECT Temp1
bROWSE
ENDIF
到这里经常,可关闭后 access库中表zs2数据没有添加上去,刚才是在TEMP1中添加,有什么语句可以写到access库中表zs2
请高手帮忙,本人刚开始学习,找了好多资料也没有理解,谢谢
IF nhandle <=0
MESSAGEBOX("数据库连接失败!!!",16, '错误信息')
RETURN
eLSE
ac=SQLEXEC(nhandle,"SELECT 单位代码,单位名称 FROM ZS2","Temp1") &&zs2为ACCESS中的表名
IF Ac <0
MESSAGEBOX("读取数据错误!"+STR(ac),16, '错误信息')
RETURN
ENDIF
SELECT ydyk &&这个是DBF库,在前面打开的
SCAN all
rlstm=单位代码
rlsmc=单位名称
SELECT Temp1
APPEND BLANK
REPLACE 单位代码 WITH rlstm,单位名称 WITH rlsmc
SELECT ydyk
ENDSCAN
ENDIF
SELECT Temp1
bROWSE
ENDIF
到这里经常,可关闭后 access库中表zs2数据没有添加上去,刚才是在TEMP1中添加,有什么语句可以写到access库中表zs2
请高手帮忙,本人刚开始学习,找了好多资料也没有理解,谢谢