| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 494 人关注过本帖
标题:连接ACCESS数据库问题
只看楼主 加入收藏
tonny0756
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-10-15
收藏
 问题点数:0 回复次数:6 
连接ACCESS数据库问题
在线等,请教各位大哥,以下连接数据部分问题出在哪里,改如何调整。谢谢

'连接数据
Dim conn As New ADODB.Connection
Dim RsQQ1 As New ADODB.Recordset
RsQQ1.CursorLocation = adUseClient

ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\test.mdb" & ";Persist Security Info=False"
conn.Open ConnectionString
RsQQ1.Open "select * from tb ", conn, adOpenKeyset, adLockOptimistic

Text1.Text = "符合查询条件共有"
Text2.Text = RsQQ1.RecordCount
Text3.Text = "条记录!"
Text4.Text = "学院共有" & RsQQ1.RecordCount & "栋楼房"

RsQQ1.Close
conn.Close
Set RsQQ1 = Nothing
Set conn = Nothing





附件: 游客没有浏览附件的权限,请 登录注册
搜索更多相关主题的帖子: 数据库 ACCESS 
2007-10-15 10:04
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
1.变量请先定义后再使用.
2.你是否已添加ado引用.

我的msn: myfend@
2007-10-15 10:05
tonny0756
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-10-15
收藏
得分:0 
测试的时候我做在一 BUTTON上的。请指教
2007-10-15 10:07
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
以下是引用purana在2007-10-15 10:05:40的发言:
1.变量请先定义后再使用.
2.你是否已添加ado引用.


我的msn: myfend@
2007-10-15 10:08
千里冰封
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:灌水之王
等 级:版主
威 望:155
帖 子:28477
专家分:59
注 册:2006-2-26
收藏
得分:0 
哈哈,你终于发照片了

可惜不是你,陪我到最后
2007-10-15 10:10
tonny0756
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-10-15
收藏
得分:0 
没有添加ADO,请赐教如何修改定义

Private Sub Command11_Click()
'连接数据

Dim conn As New ADODB.Connection
Dim RsQQ1 As New ADODB.Recordset
RsQQ1.CursorLocation = adUseClient

ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\test.mdb" & ";Persist Security Info=False"
conn.Open ConnectionString
RsQQ1.Open "select * from tb ", conn, adOpenKeyset, adLockOptimistic

Text1.Text = "符合查询条件共有"
Text2.Text = RsQQ1.RecordCount
Text3.Text = "条记录!"
Text4.Text = "学院共有" & RsQQ1.RecordCount & "栋楼房"

RsQQ1.Close
conn.Close
Set RsQQ1 = Nothing
Set conn = Nothing
End Sub
2007-10-15 10:13
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
没有添加ADO?
那你没有米,你能吃饭不?

我的msn: myfend@
2007-10-15 10:19
快速回复:连接ACCESS数据库问题
数据加载中...
 
   



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

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