问个关于VB的access数据库的小问题!!!

发布网友 发布时间：2024-10-23 01:43

我来回答

共5个回答

热心网友 时间：2024-11-10 09:21

你直接在公共模块里面声明一个数组不就得了？

DIM A(9) AS STRING

就好了，如果你还要搞得复杂一点可以用 DICTIONARY 对象 或者用 “集合”

热心网友 时间：2024-11-10 09:26

你用数组不就可以取出来了吗？

热心网友 时间：2024-11-10 09:25

对啊。。。

比如你的表叫做 phone , 字段叫做phoneno

用 adodb + 数组就好了
1.数据库取值

1.1.连接字符串
conn.connectionstring ="xxxx" '从ADODC可以取到

sql = "select * from phone "

set rs = conn.execute(sql)

2。值入数组

dim va

redim va(1 to rs.recordcount)

dim i as long

for i = 0 to rs.recordcount-1
va(i) = rs.fields("phoneno").value
rs.movenext
next i

热心网友 时间：2024-11-10 09:25

用控件数组

热心网友 时间：2024-11-10 09:22

环境:
VB6.0 ACCESS97 如果是ACCESS2000或以上版本要先转换
假定你的数据库文件名为myphone.mdb 表为 Phonelist 字段为 Number
设计:
用到控件:data1 和 list1 两个就行了
代码:

Dim Mydb As Database
Dim Myrs As Recordset
Dim MyNumbers() as String
sub form_load()
Dim i as Integer
Set Mydb = CreateDatabase(App.Path & "\myphone.mdb", dbLangGeneral)
set Myrs = Mydb.OpenRecordset("select * from Phonelist")
If Myrs.EOF = False Then Myrs.MoveLast
If Myrs.BOF = False Then Myrs.MoveFirst
if Myrs.RecordCount > 0 then '记录条数为一条或以上
Myrs.Movefirst
Redim MyNumbers(Myrs.RecordCount-1)
for i=0 to Myrs.RecordCount-1
MyNumbers(i)=Myrs.field("Number")
list1.AddItem MyNumbers(i)
Myrs.Movenext
next
end if
end sub