| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 932 人关注过本帖
标题:ADO+ACCESS+DATAGRID显示查找结果
只看楼主 加入收藏
sankes
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2009-7-19
结帖率:100%
收藏
 问题点数:0 回复次数:3 
ADO+ACCESS+DATAGRID显示查找结果
图片附件: 游客没有浏览图片的权限,请 登录注册


Private Sub cmdFind_Click()
            Dim conn As New ADODB.Connection
            Dim rs As New ADODB.Recordset
            Dim Str1 As String
            Dim Str2 As String
            Dim Str3 As String
            Dim Combotxt As String
            Dim Txt As String
           Combotxt = Combo1.Text
            Txt = Text1.Text
                Str1 = "Provider=Microsoft.Jet.OLEDB.4.0;"
                Str2 = "Data Source=C:\Users\sAnKes\Desktop\data.mdb;"
                Str3 = "Jet OLEDB:Database Password="
                conn.Open Str1 & Str2 & Str3
                rs.Open "select * from " & Combotxt & "  where" & Txt, con, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub

查询结果在dataguid中显示。可是经多次测试都不行。望指教!
搜索更多相关主题的帖子: ADO DATAGRID ACCESS 结果 
2009-08-21 18:46
sankes
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2009-7-19
收藏
得分:0 
自己顶一下,在线等答案。
2009-08-21 22:28
gyll
Rank: 2
等 级:论坛游民
帖 子:56
专家分:21
注 册:2009-4-22
收藏
得分:0 
看看

学习C
2010-04-30 15:42
快速回复:ADO+ACCESS+DATAGRID显示查找结果
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.012704 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved