| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 820 人关注过本帖
标题:请教读取数据库并赋值给数组
只看楼主 加入收藏
shangdy1983
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2006-6-19
收藏
 问题点数:0 回复次数:2 
请教读取数据库并赋值给数组
我想用datalist控件读取acess数据库中的俩列数据X,Y,然后赋给俩个一维数组。可是不会用循环赋值,请教程序代码。
搜索更多相关主题的帖子: 赋值 数据库 acess datalist 
2006-09-07 09:32
quickbird
Rank: 1
等 级:新手上路
帖 子:72
专家分:0
注 册:2006-1-1
收藏
得分:0 

可以用动态数组


算浮生事,瞬息光阴,锱铢名宦。 正欢笑,试恁暂时分散。 却是恨雨愁云,地遥天远。
2006-09-17 16:55
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
[CODE]Private Sub Command1_Click()
Dim adoCon As ADODB.Connection
Dim adoRst As ADODB.Recordset
Dim ConString As String
ConString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info = false;" _
& "Data source = D:\mdb\NorthWind.mdb;Jet OLEDb:DataBase Password=123456"

Set adoCon = CreateObject("ADODB.Connection")
adoCon.Open ConString

Dim sql As String
sql = "Select OrderID From Orders Order By OrderID"

Set adoRst = CreateObject("ADODB.Recordset")
adoRst.CursorLocation = adUseClient
adoRst.Open sql, adoCon, adOpenKeyset, adLockPessimistic

Dim ArrList() As String
ReDim ArrList(adoRst.RecordCount) As String
Dim i As Integer

For i = 0 To adoRst.RecordCount - 1
ArrList(i) = adoRst.Fields(0).Value
adoRst.MoveNext
Next

adoRst.Close
adoCon.Close
Set adoRst = Nothing
Set adoCon = Nothing

For i = 0 To UBound(ArrList)
List1.AddItem ArrList(i)
Next
End Sub[/CODE]

我的msn: myfend@
2006-09-17 17:13
快速回复:请教读取数据库并赋值给数组
数据加载中...
 
   



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

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