Question

在VB中应用多个combo进行查询，并将符合条件的结果显示在datagrid中（数据库链接不使用绝对路径ADO控件）

注：在combo中即可输入查询 又可下拉查询 后者combo的下拉选项与前者combo的text相关
数据库链接为conStr = conStr & "Data source=" & App.Path & "/1.mdb"
O(∩_∩)O~
我是新手 现在是用access数据库的 我不知道不用控件怎么用语句把combo与datagrid链接起来
~~~~(>_<)~~~~ 谢谢啦

Answer 1

'以下给你一些相关例子：

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SQL AS String

'以下为将资料表第一栏位资料加入Combo1中，以便提供使用者选择要搜寻的事项。
Private Sub Form_Load()
cn.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;" & _
"Persist security info= False; Data source=" & App.Path & "\1.mdb"
cn.Open

If rs.State = adStateOpen Then rs.Close
SQL = "select * from 资料表名称"
rs.CursorLocation = adUseClient
rs.Open SQL, cn, adOpenKeyset, adLockPessimistic

combo1.Clear
on error resume next
rs.MoveFirst
Do While Not rs.EOF
combo1.AddItem rs.Fields(1).value
rs.MoveNext
Loop
End Sub

'以下为搜寻Combo1中的资料
Private Sub combo1_Change()
SQL = "select * from 资料表名称 where 资料栏名称 Like '%" & combo1.text & "%'"

If rs.State = adStateOpen Then rs.Close
rs.CursorLocation = adUseClient
rs.Open SQL, cn, adOpenKeyset, adLockPessimistic

Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub

Answer 2

| 我的知道 | 我的消息(23/50) | 我的空间 | 百度首页 | 退出
我的知道 我的提问

我的回答

为我推荐的提问

知识掌门人

新闻 网页 贴吧 知道 MP3 图片 视频 百科
帮助 设置

百度知道 > 电脑/网络 > 程序设计 > VB添加到搜藏待解决
检举 在VB中应用多个combo进行查询，并将符合条件的结果显示在datagrid中（数据库链接不使用绝对路径ADO控件）
悬赏分：20 - 离问题结束还有 14 天 23 小时
注：在combo中即可输入查询 又可下拉查询 后者combo的下拉选项与前者combo的text相关
数据库链接为conStr = conStr & "Data source=" & App.Path & "/1.mdb"

提问者： yelife1 - 实习生 一级

我来回答：

您还可以输入字

输入内容已经达到长度限制

插入地图 插入图片
参考资料：
匿名回答 积分规则

分类上升达人排行榜
用户名 动态 上周上升
erznlie 1091
loveit33984677 820
ljl88900 504
zmx428 457
tianqing20wen 412
更多>>

订阅该问题
Visual Basic 编程学习明日科技为..
VB 编程开发大全,超过15000页的专业技术文档,2000多个实例,技巧,模块,43个项目文档及..
www.mrbccd.com
台区用户查询仪-达顺电子专业生产
DS-2018配电台区用户查询仪,是一种既方便快捷,又安全可靠的仪器.手持式大屏幕液晶显..
www.sddsdz.com.cn
来百度推广VB

您想在自己的网站上展示百度“知道”上的问答吗？来获取免费代码吧！
--------------------------------------------------------------------------------
如要投诉或提出意见建议，请到
百度知道投诉吧反馈。

©2009 Baidu

Answer 3

用SQL就可以啦。