2,722
社区成员
发帖
与我相关
我的任务
分享
*-- 建议 SQL 表 qingdan 中
rq datetime 8
sj datetime 8
*-- 改为
rq varchar 10
sj varchar 19
*-- 将 dbf 表 qingdan.Dbf 的记录追加到 SQL 表 qingdan 中的代码如下
*-- vfp 代码
Set Century On
Set Date YMD
Set Mark To '-'
Set Hours To 24
gnConnHandle=Sqlstringconnect("DRIVER=Sql Server;SERVER=计算机名或IP地址;UID=用户名;PWD=密码;DATABASE=数据库名")
If gnConnHandle<=0
Messagebox("连接数据库失败!")
Return
Endif
Use qingdan.Dbf
Scan
=SQLExec(gnConnHandle,"Insert Into qingdan (xh,rq,sj,jieshoudw,leibie,zhl) Values (?xh,?rq,?sj,?jieshoudw,?leibie,?zhl)")
Endscan
*-- 另外你说的追加错了,意思有的记录不要,不要就删除不要的记录即可。
*-- 删除 SQL 表 qingdan 中的记录
=SQLExec(gnConnHandle,"Delete From qingdan Where xh='具体的值'")
*-- 注意 xh 字段必须不重复的,不然删除时就无法保证删除的是你想删除的那条。如果此字段是重复的,请选一个不重复的字段来做关键字段,也可以另加一个关键字段。