could not reproduce your problem, here is what I did:Dim rs As ADODB.Recordset
Dim sConn As String
sConn = "Provider=SQLOLEDB;Server=localhost;UID=sa;PWD=;Database=tempdb"Set rs = New ADODB.Recordset
rs.Open "select * from table1", sConn, 3, 3rs.MoveFirst
While Not rs.EOF
MsgBox rs("col1")
rs.Delete
rs.MoveNext
Wend
rs.UpdateBatchrs.Close
Set rs = Nothing
Dim sConn As String
sConn = "Provider=SQLOLEDB;Server=localhost;UID=sa;PWD=;Database=tempdb"Set rs = New ADODB.Recordset
rs.Open "select * from table1", sConn, 3, 3rs.MoveFirst
While Not rs.EOF
MsgBox rs("col1")
rs.Delete
rs.MoveNext
Wend
rs.UpdateBatchrs.Close
Set rs = Nothing
解决方案 »
- 为什么我打包好的软件在其他系统出现乱码?
- 请大吓指点:使用ACCESS作为数据库,存储容量如何计算?
- 請問什麼GRID是最好的。請大家給點意見。現在我用的是TDGRID8
- 由报表引出的问题,请多指教!
- 请问:SQL语言中条件能实现"判断某个字段的部分内容(如前九位)为某个字符串"吗?
- 谁有SPREAD7.0??
- 为什么我的VB程序离开开发环境速度变的很慢?能解决单独送200分
- vb中MSHFlexGrid1删除重复数据
- 冲掉了 55
- jnue
- 哪里有编写截取VCD片段的源程序!要求可以重写头文件!被Windows Media Player播放!
- 紧急求助,在我的TreeView中,当有几个节点被选定时,我想让它跳回去选中它后面的那个节点,
rs.Open "select * from table1", sConn, 3, 4