可以不用filter属性,直接查找: rs.Open "select * from 表 where gender=male", cn, adOpenKeyset, adLockOptimistic
rs.filter="gender='male'" 或者是模糊查询(要注意单引号和双引号) rs.filter="gender like '%male%'"
各位请帮帮忙 Private Sub Form_Load() Dim cnn As ADODB.Connection cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\lcsys\mysjk\图书.mdb;" cnn.Open If cnn.State = adStateOpen Then MsgBox "打开数据库" End If cnn.Close If cnn.State = adStateClosed Then MsgBox "关闭数据库" End If
End Sub 这段程序运行后,出现以提示: “对象变量或with块变量未设置” 请问这是什么原因??
to liuxicheng(石头) 把Dim cnn As ADODB.Connection 改为 Dim cnn As New ADODB.Connection 试试
rs.Open "select * from 表 where gender=male", cn, adOpenKeyset, adLockOptimistic
或者是模糊查询(要注意单引号和双引号)
rs.filter="gender like '%male%'"
Private Sub Form_Load()
Dim cnn As ADODB.Connection
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\lcsys\mysjk\图书.mdb;"
cnn.Open
If cnn.State = adStateOpen Then
MsgBox "打开数据库"
End If
cnn.Close
If cnn.State = adStateClosed Then
MsgBox "关闭数据库"
End If
End Sub
这段程序运行后,出现以提示:
“对象变量或with块变量未设置”
请问这是什么原因??