'数据库链接*************************************************************************************************** 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