| 编程中国 | 业界新闻 | 技术文章 | 视频教程 | 下载频道 | 程序源码 | 个人空间 | 编程论坛
全能ASP/PHP/ASP.NET主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付学习型 ASP/PHP/ASP.NET 主机 30元/年
高端软件开发 = 年薪十万不是梦   
共有 727 人关注过本帖
标题:vb2005如何获得access表中N列N行的数据?
收藏  订阅  推荐  打印
satanskiss
Rank: 1
等级:新手上路
帖子:4
积分:148
注册:2008-7-29
vb2005如何获得access表中N列N行的数据?

一个access表:test 有三个键:Id(整数类型)  tname(字符串类型) add(字符串类型)
表中有20条完整的记录,请问如何连接数据库,(select * from test)并在连接后获取第10行的Tname列的数据?
2008-7-29 15:33
satanskiss
Rank: 1
等级:新手上路
帖子:4
积分:148
注册:2008-7-29

我是这么连接的 如下:
Dim strconn As String = "Provider=Microsoft.jet.oledb.4.0;data source=" & My.Application.Info.DirectoryPath & "\test.mdb;persist security info=false"
Dim objconn As New Data.OleDb.OleDbConnection(strconn)
Dim s As String = "select * from test order by id desc"
Dim objReader As Data.OleDb.OleDbDataAdapter
objconn.Open() '打开数据库连接
Dim dr As OleDb.OleDbDataReader
Dim cmdQx As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand(s, objconn)
dr = cmdQx.ExecuteReader

后面不知道怎么进行操作了 ?
2008-7-29 15:39
satanskiss
Rank: 1
等级:新手上路
帖子:4
积分:148
注册:2008-7-29

刚学不久,请高手指点迷津
2008-7-29 15:40
satanskiss
Rank: 1
等级:新手上路
帖子:4
积分:148
注册:2008-7-29

2008-7-29 18:45
qlong0728
Rank: 12Rank: 12Rank: 12
等级:版主
威望:7
帖子:262
积分:2802
注册:2007-6-15

Dim strconn As OleDb.OleDbConnection
strconn = "Provider=Microsoft.jet.oledb.4.0;data source=" & My.Application.Info.DirectoryPath & "\test.mdb;persist security info=false"
objconn.Open() '打开数据库连接
Dim s As String = "select * from test order by id desc"
Dim RS As New DataSet
Dim DA As New OleDb.OleDbDataAdapter
DA.SelectCommand = New OleDb.OleDbCommand(s, objconn)
DA.Fill(RS)
第10行的Tname=RS.Tables(0).Rows(9)("Tname")

程序人员写程序,又拿程序换酒钱。 奔驰宝马贵者趣,公交自行程序员。 不见满街漂亮妹,哪个归得程序员。
2008-8-1 14:50
共有 726 人关注过本帖
关于我们 | 广告合作 | 编程中国 | 清除Cookies | Archiver | WAP | TOP

编程中国 版权所有,并保留所有权利。鲁ICP备08000592号
Powered by Discuz, Processed in 0.051160 second(s), 9 queries.
Copyright©2004-2008, BCCN.NET, All Rights Reserved