代码如下
Dim strSQL As String
strSQL = "delete from 专业 where 专业代码='" & Text1.Text & "'"
Adodc1.RecordSource = strSQL
Adodc1.Refresh

错误截图

而实际上,去查看数据库,那条内容已经被删除了.
不知道为什么会出现这个错误
该怎样改?

Adodc的RecordSource只能执行Select语句..
而你要删除的话..又一定要用Adodc的话..那就用Adodc1.RecordSet的Delete方法.

而你想使用Delete语句的话..那就用Adodb对象模型..

Dim con as new Adodb.Connection
con.open "Provider=microsoft.jet.oledb.4.0;data source=d:\a.mdb"
dim cmd as new
cmd.activateConnection=con

from a where name='" & text1.text & "'"
cmd.execute

dim rs as new recordset
rs.cursorlocation=aduseclient
rs.open "select * from a",con
msgbox rs.recordcount

rs.close
con.close
set con=nothing

基本上使用Adodb就是上面这样.
不排除上面有错误..
随手打的.

我没用过ADODC，但基本能看出错误在哪里。

ADODC是用于提供数据的，数据源应该是一个select语句这样才能选择出记录。ADODC会先执行你的delete语句（它不知道这个不是select语句），然后看到没有选择出任何记录，返回错误。

Dim con As New ADODB.Connection
con.Open "Provider=microsoft.jet.oledb.4.0;data source=d:\a.mdb"
Dim rs As New Recordset
Dim strSQL As String
strSQL = "delete from a where id='" & Text1.Text & "'"
rs.Open strSQL, con, adOpenStatic, adLockReadOnly
这样行么

我用purana的方法已经解决啦
谢谢各位.

purana也太强了吧,手写的代码也就是将一个大写字母打成小写了
向你学习

同意