
"首先连接数据库
'然后建立一个模块:
Public Sub ExecuteSQL(ByVal SQL As String, ByRef msg As String)
'执行SQL语句
Dim Conn As ADODB.Connection
'出错处理
On Error GoTo Error_box
'打开数据库连接
If OpenConn(Conn) Then
Conn.Execute SQL
msg = " *** 作执行成功!"
End If
Exit Sub
Error_box:
msg = "执行错误: " &Err.Description
Set Conn = Nothing
Exit Sub
End Sub
Private Sub 确定_Click()
Call ExecuteSQL("DELETE FROM 表名称", msg)
END IF
有个方法,很方便,可以不用写脚本:1.用access打开数据库,打开xinwen表
2.右击表窗口上方的标题栏(就是兰色的横条部分),点击:按窗体筛选
3.用鼠标点击xinwen下面的白色框,会出现下拉条,点击下拉条,选取:biaoti
4.再右击表窗口上方的标题栏,选:应用筛选排序,就得到符合条件的所有数据
5.看到第一个字段左边的小方框了吧,用鼠标按住一直拖动就可以多行选取,然后按delete键,就可以同时删除多行
6.删除之后,关闭表,会d出"是否保存对表xinwen布局的更改",点是,就完成了修改~
就算你要保留的那一条数据在中间,也只需要 *** 作两次~
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)