好库网 好库网首页 | 我的好库
VB爱好者

VB通过ADODB连接EXCEL表格文件读取数据

发布者:vbfans
发布日期:2011/5/26 22:26:19   更新日期:2011/5/26 22:26:19
阅读次数:5773
评分:4.80
介绍:通过ADODB连接EXCEL文件是很常用的方式,本文下面给出的函数演示了这一过程。
正文:

通过ADODB连接EXCEL文件是很常用的方式,本文下面给出的函数演示了这一过程,请看代码:

 

Function GetContentFromDB (strFileName, strSQLStatement)
Dim objAdCon, objAdRs
 
Set objAdCon = CreateObject("ADODB.Connection")

objAdCon.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ="&strFileName & ";Readonly=True"
If Err <> 0 Then
      Reporter.ReportEvent micFail,"Create Connection", "[Connection] Error has occured. Error : " & Err
      Set obj_UDF_getRecordset = Nothing
   Exit Function
End If

Set objAdRs = CreateObject("ADODB.Recordset")
objAdRs.CursorLocation=3                        ' 设置游标类型为adUseClient – 断连记录集
objAdRs.Open strSQLStatement, objAdCon, 1, 3

MsgBox objAdRs.fields(4).name
While objAdRs.EOF=false
   For i=0 to objAdRs.Fields.count
Msgbox objAdRs.fields(i)
Next
objAdRs.moveNext
Wend

If Err<>0 Then
      Reporter.ReportEvent micFail,"Open Recordset", "Error has occured.Error Code : " & Err
      Set obj_UDF_getRecordset = Nothing
     Exit Function
End If

Set objAdRs.ActiveConnection = Nothing

objAdCon.Close
Set objAdCon = Nothing

End Function

使用举例:

 

Set rsAddin = GetContentsFromDB("C:\Documents and Settings\okbase.net\Desktop\Login.xls", "Select * from [Login$]")

 

 

 


评论 [发表评论]
账号 密码 还没帐号呢,现在注册一个?

免责声明:好库网所展示的信息由买卖双方自行提供,其真实性、准确性和合法性由信息发布人负责。好库网不提供任何保证,并不承担任何法律责任。