删除access数据
access 数据库BSS中的字节“序号”为文本
数据内容: 第1行 wwwww
第2行 00000
第3行 111
第4行
第5行 321

下列两个方法都是删除非正常数值数据，方法判断val（序号）=0，但都出错
方法一：
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\111\bss.mdb; Persist Security Info=False"
conn.Open
rs.Open "select * from aaa where val(序号)=0", conn, adOpenKeyset, adLockOptimistic
rs.Delete
rs.Update
MsgBox "删除成功！"

rs.Close
conn.Close

方法二：
Dim adocn As New ADODB.Connection

adocn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\111\bss.mdb; Persist Security Info=False"
adocn.Open

adocn.Execute "delete from aaa where val(序号)=0 "
adocn.Close
Set adocn = Nothing


[解决办法]
http://download.csdn.net/detail/veron_04/1498324
http://download.csdn.net/detail/veron_04/1644211
[解决办法]
试试下面：
"delete aaa.* from aaa where not isnumeric([序号])"

[解决办法]
"select * from aaa where val(序号)=0"

对于vb这只是个字符串, 对于SQL, 它不认识val

方法1和2没啥分别
[解决办法]

SQL code

delete from aaa where not isnumeric(序号)或delete from aaa where isnumeric(序号)=false