怎样用VB连接ACCESS数据库中表的数据并在VB窗体LISTVIEW控件中显示出来!

'数据库链接***************************************************************************************************
Function DataQuery(SQL As String) '此函数用于通过SQL语句查询数据库返回一个数组
Dim DataPath As String '数据库文件路径
Set cn = CreateObject("ADODB.Connection") '链接数据库
Set rs = CreateObject("ADODB.Recordset")
Dim DataArr '声明用于函数返回记录的数组
Dim i As Integer, C As Integer
If SQL = "" Then Exit Function
DataPath = "F:\My DBank\HC\order .mdb"
cn.Provider = "Microsoft.jet.oledb.4.0"
cn.Open DataPath '打开数据库
With rs
.Open SQL, cn, adOpenKeyset, adLockReadOnly '打开记录集
If .EOF Then GoTo Q
ReDim DataArr(1 To .RecordCount, 1 To .Fields.Count)
For i = 1 To .RecordCount '循环将记录集读到数组中
For C = 1 To .Fields.Count
DataArr(i, C) = .Fields(C - 1).Value

Next
.MoveNext '移动到下一条记录
Next
End With
DataQuery = DataArr

Q:
rs.Close '关闭记录集与数据库连接,并销毁对象
cn.Close
Set rs = Nothing
Set cn = Nothing
End Function
到这名就出错了请各位大量师帮忙!急
最新回答
酒尽

2024-06-01 00:49:58

在 Q: 的上面加一句 Exit Function ,看其他的代码好像没有错误吧。
或者使用:
If Not .EOF Then
这里添加记录集有记录的代码
Else
这里添加记录集没有记录的代码
End If
只想待在家

2024-06-01 00:23:36

vb是什么版本,方法很简单
追问
VB6.0企业版 请您帮忙 非常感谢!