vb中怎么通过adodc删除数据库表中的所有数据

通过adodc连接access数据为，怎么删除数据库中表里的全部数据，谢谢

举报该文章

相关建议 æ¨èäº2016-07-18

RecordSource å±æ§ï¼è¿åæè®¾ç½®Dataæ§ä»¶çåºæ¬è¡¨ãSQLè¯å¥ã

SQL è¯å¥ï¼

ä»¥ä¸æ¯å é¤wd.mdbæ°æ®åºçjishijiluè®°å½è¡¨çææè®°å½çä»£ç ï¼

Private Sub Command1_Click()
    Dim sql As String
    On Error GoTo error
    sql = "delete * from jishijilu"
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\wd.mdb;Persist Security Info=False"
    Adodc1.RecordSource = sql
    Adodc1.Refresh
    Exit Sub
error:
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/fv7v4s4fv.html

其他看法

第1个回答 2019-01-15

adodc也可以一次性删除。废话不多说，贴上代码：
Private Sub Command4_Click()
Adodc2.Recordset.MoveFirst
While Adodc2.Recordset.RecordCount > 0
Adodc2.Recordset.Delete
Adodc2.Recordset.MoveNext
Wend
End Sub
望采纳！你也可以不放在按钮里放form load里面。

第2个回答 2010-07-21

可以用过打开连接，执行SQL语句来删除,
假设你前面执行的select * form tablea
那么后面你一样可以执行delete tablea
只是执行的结果不可读。

贴一个代码给你看看，不是我写的
Dim CNN As New ADODB.Connection
Dim RST As New ADODB.Recordset
Dim SQL As String

Private Sub Command1_Click()
CNN.ConnectionString = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\\VBExercise\\DataBase\\test.mdb;Persist Security Info=False\"
SQL = \"delete from Student where id=1\"
RST.Open SQL, CNN.ConnectionString, adOpenKeyset, adLockPessimistic
cnn.close
rst.close

第3个回答推荐于2018-03-04

用控件不能一次删除全部的数据,可以用循环,一条一条删除,直到删完.

用adodb对象的execute方法可以一次删除所有的数据.本回答被网友采纳

第4个回答推荐于2017-11-23

conn.execute "delete * from 表"
解决本回答被提问者采纳

相似回答

大家正在搜