Private Sub cmdquery_Click()
Dim objRs As Recordset, i As Integer, n As Integer '定义局部记录集对象
objCmd("用户名") = "%" & txtuser & "%" '获得查询参数
objCmd("身份") = "%" & txtstatus & "%"
Set objRs = objCmd.Execute() '执行查询,获得查询结果记录集
MSFlexGrid1.Cols = objRs.Fields.Count
'显示列名
For i = 0 To objRs.Fields.Count - 1
MSFlexGrid1.TextMatrix(0, i) = objRs.Fields(i).Name
Next
'显示查询结果
n = 0
While Not objRs.EOF
MSFlexGrid1.AddItem (objRs!用户名 & vbTab & objRs!口令 _
& vbTab & objRs!身份)
n = 1
objRs.MoveNext
Wend
'显示获得的记录条数
Label4 = "共获得" & n & "条查询结果"
End Sub
Private Sub Form_Load()
Set objCn = New Connection '实例化Connection对象objCn
strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;" & _
"Data Source=" & App.Path & "\数据库\db5.mdb"
objCn.ConnectionString = strcn '创建数据库连接
objCn.Open
'创建执行参数查询的Command对象objCmd
Set objCmd = New Command
Set objCmd.ActiveConnection = objCn
With objCmd
.CommandText = "select * from 系统用户 Where 用户名 like ?" & _
"and 身份 like ?"
.CommandType = adCmdText
End With
'为Command对象objCmd 创建参数
Dim Parm As New Parameter
Set Parm = objCmd.CreateParameter("用户名", adVarChar, adParamInput, 10)
objCmd.Parameters.Append Parm
Set Parm = objCmd.CreateParameter("身份", adVarChar, adParamInput, 10)
objCmd.Parameters.Append Parm
Label4 = "" '清除标签4
End Sub
这是我的代码,不知道哪里出了问题,请高手指教[/size][/size][/b]
...全文
4726打赏收藏
数据库查询时没有结果显示,是怎么回事?
[b][size=18px][size=16px] Private Sub cmdquery_Click() Dim objRs As Recordset, i As Integer, n As Integer '定义局部记录集对象 objCmd("用户名") = "%" & txtuser & "%" '获得查询参数 objCmd("身份") = "%" & txtstatus & "%" Set objRs = objCmd.Execute() '执行查询,获得查询结果记录集 MSFlexG