16,554
社区成员
发帖
与我相关
我的任务
分享VB.NET 读取MDB数据库数据到数组
有一个access 2003 的数据库，ID列是序号，现在想把姓名一列的数据读取到一个String 数组中，怎么做？我是新手，请写的详细点，谢谢！！
...全文
请发表友善的回复…
发表回复
chenjf029 2011-08-17
- 打赏
- 举报
qqrrrrt
llx7515198 2011-04-07
- 打赏
- 举报
收藏了
沐NeMo 2010-06-09
- 打赏
- 举报
用1楼的代码就搞定啦。
只在此山中 2010-06-09
- 打赏
- 举报
参考代码：
Imports System
Imports System.Data
Imports System.Data.OleDb
dim cnStr as string = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " + "c:\data.mdb"
dim cn as OleDbConnection = new OleDbConnection(cnStr)
dim da as OleDbDataAdapter = new OleDbDataAdapter("select * from 表名",cn)
dim ds as new dataset
da.fill(ds,"表名")
if ds.tables.count>0 then
dim s(ds.tables(0).rows.count-1) as string '字符串数组
dim i as integer
for i=0 to ds.tables(0).rows.count-1
s(i)=ds.tables(0).rows(i)("姓名")
next
end if
Imports System
Imports System.Data
Imports System.Data.OleDb
dim cnStr as string = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " + "c:\data.mdb"
dim cn as OleDbConnection = new OleDbConnection(cnStr)
dim da as OleDbDataAdapter = new OleDbDataAdapter("select * from 表名",cn)
dim ds as new dataset
da.fill(ds,"表名")
if ds.tables.count>0 then
dim s(ds.tables(0).rows.count-1) as string '字符串数组
dim i as integer
for i=0 to ds.tables(0).rows.count-1
s(i)=ds.tables(0).rows(i)("姓名")
next
end if
