如何真正删除1张表中地1条记录? 再借问哪位老兄有winsock控件的多个客户端地源程序。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 cn.execute "delete from tbl where id=.."-------------------------------------------rs.openrs.deleters.updaters.close 不是。必须压缩数据库,才能真能删除。如果是DAO:dbengine.compactdatabase olddatabase, newdatabase如果是ADO,要引用其他对象,稍复杂一些。 ADO压缩数据库:“工程”-“引用”-“Microsoft Jet and Replication Objects X.X”Dim jro As jro.JetEngineSet jro = New jro.JetEnginejro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\nwind2.mdb", _"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\abbc2.mdb;Jet OLEDB:Engine Type=4" NOTE 关于vb顺序执行的一点思考. 多个label如何快速赋值 高难问题:如何在资源管理器里虚拟一个驱动器出来?像GMail Driver一样的 一个让人头痛的问题,请大家进来把他解决掉吧 检测文件是否被读取 关于常量的问题 请问如何做文件搜索的功能 cancelupdate不好用....................................看看代码啊... 组件在VB中的调用 2个VB窗体问题 数字字符串转换
rs.open
rs.delete
rs.update
rs.close
dbengine.compactdatabase olddatabase, newdatabase如果是ADO,要引用其他对象,稍复杂一些。
“工程”-“引用”-“Microsoft Jet and Replication Objects X.X”Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\nwind2.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\abbc2.mdb;Jet OLEDB:Engine Type=4"
NOTE