1,217
社区成员
发帖
与我相关
我的任务
分享VB中怎么实现调用Access中的带参数视图查询
请各位大侠帮帮忙，在Access视图中建了一个带参数的查询，运行时要求输入参数的值，才能查询，请问在VB中用ADO怎么调用此查询，该怎么赋值给它？
...全文
请发表友善的回复…
发表回复
flxa 2003-05-15
- 打赏
- 举报
gz
chenyu5188 2003-05-15
- 打赏
- 举报
来晚了的有分吗？！：）
zsgzsgzsg 2003-05-15
- 打赏
- 举报
no
rongdzh 2003-05-14
- 打赏
- 举报
zsgzsgzsg(zsg) 前辈
收到我给的分数了吗
收到我给的分数了吗
rongdzh 2003-05-07
- 打赏
- 举报
多个也行：）
SmileSkyNet 2003-05-07
- 打赏
- 举报
根据我的测试好象只能使用带一个参数的存储过程
rongdzh 2003-05-07
- 打赏
- 举报
Thank you
zsgzsgzsg 2003-03-24
- 打赏
- 举报
'下例假定参数值为可变字符串，最大长度200
Dim mdbcn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim sn As New ADODB.Recordset
Dim Par As ADODB.Parameter，str As String
mdbcn.CursorLocation = adUseClient
mdbcn.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);UID=admin;DBQ=你的数据库"
mdbcn.Open
cmd.CommandText = "你的查询名"
cmd.CommandType = adCmdStoredProc
str = InputBox("输入参数值:")
Set Par = cmd.CreateParameter("", adVarChar, adParamInput, 200)
cmd.Parameters.Append Par
Par.Value = str
Set cmd.ActiveConnection = mdbcn
Set sn = cmd.Execute
MsgBox sn.RecordCount
Set sn = Nothing: Set cmd = Nothing
Set mdbcn = Nothing
Dim mdbcn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim sn As New ADODB.Recordset
Dim Par As ADODB.Parameter，str As String
mdbcn.CursorLocation = adUseClient
mdbcn.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);UID=admin;DBQ=你的数据库"
mdbcn.Open
cmd.CommandText = "你的查询名"
cmd.CommandType = adCmdStoredProc
str = InputBox("输入参数值:")
Set Par = cmd.CreateParameter("", adVarChar, adParamInput, 200)
cmd.Parameters.Append Par
Par.Value = str
Set cmd.ActiveConnection = mdbcn
Set sn = cmd.Execute
MsgBox sn.RecordCount
Set sn = Nothing: Set cmd = Nothing
Set mdbcn = Nothing
