开发者社区> annehan> 正文

VB6.0 读取Excel文件并返还数据集RecordSet

简介: 读取Excel文件并返还数据集RecordSet 该方法适用于.xls,.xlsx类型的文件   读取Excel文件的Function: 1 '取得数据集 2 Function getRecordSetForExcels(sFilePath As String, _ 3 ...
+关注继续查看

读取Excel文件并返还数据集RecordSet

该方法适用于.xls,.xlsx类型的文件

 

读取Excel文件的Function:

 1 '取得数据集
 2 Function getRecordSetForExcels(sFilePath As String, _
 3                                 sTableName As String, _
 4                                 Optional sField As String, _
 5                                 Optional strWhere As String, _
 6                                 Optional sOrderBy As String) As ADODB.Recordset
 7 On Error GoTo errHand:
 8     Dim conn As New ADODB.Connection
 9     Dim rs As New ADODB.Recordset
10     Dim sSQL As String
11     If UCase(strType) = UCase(".xls") Then
12         conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sFilePath & ";Extended Properties='Excel 8.0;HDR=yes;imex=1';Persist Security Info=False"
13     Else
14         conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sFilePath & ";Extended Properties='Excel 8.0;HDR=yes;imex=1';Persist Security Info=False"
15     End If
16     sSQL = "SELECT " & IIf(sField = "", "*", sField) & " FROM " & "[" & sTableName & "]"
17     If Trim(strWhere) <> "" Then _
18        sSQL = sSQL & " WHERE " & strWhere
19        
20     If Trim(sOrderBy) <> "" Then _
21     sSQL = sSQL & " Order BY " & sOrderBy
22     rs.Open sSQL, conn, adOpenStatic, adLockReadOnly
23     Set getRecordSetForExcels_1 = rs
24 
25 Exit Function
26 errHand:
27 If Err.Number = -2147467259 Then
28     rs.Open sSQL, conn, adOpenStatic, adLockReadOnly
29     Set getRecordSetForExcels_1 = rs
30 Else
31     MsgErr Err.Description
32 End If
33 End Function

 

调用该方法:

1 Dim rsData As ADODB.Recordset 'Excel中的所有的数据
2 dim s_PolicyHoler as string
3 Set rsData = getRecordSetForExcels(txtFileName.Text, sSheetName & "$", "[投保人名字] AS [PolicyHoler]" & _
4         " ,[保单号] AS [CCICPolicynumber],[客户号] AS [AIAIND]" & _
5         " ,[投保人ID] AS [HolerID]")
6 
7 If rsData.RecordCount > 0 Then
8     s_PolicyHoler = rsData("PolicyHoler") & ""
9 end if

 

 

如果您看了本篇博客,觉得对您有所收获,请点击右下角的 [推荐]

如果您想转载本博客,请注明出处

如果您对本文有意见或者建议,欢迎留言

感谢您的阅读,请关注我的后续博客

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
如何让所有的后台程序(daemons)都可以产生core dumps文件?
如何让所有的后台程序(daemons)都可以产生core dumps文件? Core dumps 默认是关闭的。强烈推荐您不要在生产机器上打开此功能。最好是在 开发的机器或者测试的机器上打开此功能。
596 0
【译】Databricks使用Spark Streaming和Delta Lake对流式数据进行数据质量监控介绍
本文主要对Databricks如何使用Spark Streaming和Delta Lake对流式数据进行数据质量监控的方法和架构进行了介绍,本文探讨了一种数据管理架构,该架构可以在数据到达时,通过主动监控和分析来检测流式数据中损坏或不良的数据,并且不会造成瓶颈。
1431 0
C#读取Excel表格中数据并返回datatable
在软件开发的过程中,经常用到从excel表格中读取数据作为数据源,以下整理了一个有效的读取excel表格的方法。   DataTable GetDataTable(string tableName,string leftTopCel,string rightbutCel) ...
1111 0
ASP.NET Core轻松入门Bind读取配置文件到C#实例
首先新建一个ASP.NET Core空项目,命名为BindReader 然后 向项目中添加一个名为appsettings.json的json文件,为什么叫appsettings呢?  打开Program.
937 0
ASP.NET CORE入门之读取Json配置文件
首先新建一.net core控制台项目,命名为jsonReader 然后选中引用,选择NuGet包管理器,点击浏览引入mircosoft.aspnetcore.all并安装 选中解决方案,填加,新建项目,添加Json文件,命名为test.
1091 0
快速搭建基于 Serverless 的 .NET Core 数据库应用
快速搭建基于 Serverless 的 .NET Core 数据库应用 简介 首先介绍下在本文出现的几个比较重要的概念: 函数计算(Function Compute):函数计算是一个事件驱动的服务,通过函数计算,用户无需管理服务器等运行情况,只需编写代码并上传。
20175 0
+关注
annehan
一个95后 一个程序媛
48
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
JS零基础入门教程(上册)
立即下载
性能优化方法论
立即下载
手把手学习日志服务SLS,云启实验室实战指南
立即下载