经过N次的调试,终于可以从表A复制数据到表B了,用的以下语句
oksql = "insert into tbltggl select * from tbltgk where ID = " & HQNo
ExeSQL(okSql)
但是用以下语句做移动数据时,也就是复制到表B后删除表A的数据,为什么不成功呢!
if oksql = "insert into tbltggl select * from tbltgk where ID = " & HQNo then
okSql = "DELETE * FROM tbltgk WHERE ID = " & HQNo
ExeSQL(okSql)
end if
TO smrtcreater:
非常感谢您的建议,可是我还是没有成功!下面是我的代码,请您帮我看一下好吗!
'这是删除代码,测试可以实现
dSql = "DELETE * FROM tbltgk WHERE ID = " & HQNo
ExecuteSQL(dSql)
这是插入代码,可是就是不能实现
okSql = "INSERT INTO tbltggl(ID,sr,cr,li) SELECT ID,sr,cr,li FROM tbltgk where ID = " & HQNo
ExecuteSQL(okSql)
请问,为什么删除能实现,新插入就不能了呢,我用的数据库是Access,两个表也在同一个库里面。
还有一个问题,如果就样不行的话,有没有一种方法,可以使表A的一行数据移动到表B中去!
请您帮帮小弟吧,刚学,好多搞不明白,谢谢先!
到底是将 table1 in datagrid of page A copy to table2 in datagrid of page B
还是 table1 in datagrid of page A copy to table2 in your DataBase ???
--------
"包括文件名,也从现有文件夹复制到另一个文件夹! " ??