【VB6.0 数据库连接EXCEL查询合并单元格成功解决办法】

VISUSALBAISIC6.0

已于 2022-11-12 17:36:21 修改

阅读量795

点赞数 3

文章标签： excel 数据库

于 2022-11-12 17:31:37 首次发布

本文链接：https://blog.csdn.net/Thisnameisabout/article/details/127822817

版权

【VB6.0 数据库连接EXCEL查询合并单元格成功解决办法】

Private Sub Command1_Click()
On Error Resume Next
Dim i As Integer, j As Integer
filestr = App.Path & "\" & " 123.xls" ‘设置文件位置字符串
ExcelConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filestr & ";Extended Properties=""Excel 8.0;HDR=No;IMEX=1""" ’建立连接字符串
ExcelRecordSet.Open "select * from " & "[" & "Sheet1" & "$" & "]""", ExcelConnection ‘打开数据库
arr1 = ExcelRecordSet.GetRows(-1) ’用数组接收结果记录集
MSHFlexGrid1.Cols = UBound(arr1, 1) ‘把数组第一维最大值赋值给MSHFLEXGRID列的最大数量
MSHFlexGrid1.Rows = UBound(arr1, 2)‘把数组第二维最大值赋值给MSHFLEXGRID行的最大数量
For i = 0 To UBound(arr1, 1) - 1
For j = 0 To UBound(arr1, 2) - 1
   If IsNull(arr1(i, j)) Then arr1(i, j) = "" ’处理数组元素如果为空值则赋值成空字符串
   MSHFlexGrid1.TextMatrix(j, i) = arr1(i, j) ‘用循环赋值把处理过的数组赋值给表格控件MSHFLEXGRID1
Next j
Next i
ExcelRecordSet.Close '关闭数据查询结果记录集
ExcelConnection.Close ’ 关闭数据库连接
Set ExcelRecordSet = Nothing ‘清除占用内存
Set ExcelConnection = Nothing ’清除占用内存
For i = 1 To MSHFlexGrid1.Rows - 1
   If MSHFlexGrid1.TextMatrix(i, 0) = "合计" Then xx = i '找MSHFLEXGRID1中”合计“所在行
	msgbox "合并单元格读取要用数组接收结果记录集的行数据GETROWS(-1),okey"
Next i

end sub