用免费云服务器,三丰云,记录开发过程:在 VB6 中要导出 MySQL 指定的数据表,可以按照以下步骤进行操作:
5. 连接 MySQL 数据库:使用适当的连接字符串连接到 MySQL 数据库。6. 执行 SQL 查询:使用 SQL 语句从指定的数据表中选择要导出的数据。7. 处理查询结果:将查询结果存储在一个合适的数据结构中,例如 Recordset。8. 导出数据:根据需要将数据导出到其他格式,例如 Excel、文本文件等。
Rem 导出电子表格的函数,源于李洪根的代码(接收传过来的记录集)
Public Function toexcel(objrs As ADODB.Recordset) As Boolean '********************************************************* '* 名称:ToExcel '* 功能:将ado记录集导出为电子表格 '* 用法:call toexcel(rs) '********************************************************* Dim irowcount As Integer Dim Icolcount As Integer Dim xlApp As New Excel.Application Dim xlBook As Excel.Workbook Dim xlsheet As Excel.Worksheet Dim xlQuery As Excel.QueryTable '用完已释放?原代码没释放,我修改之 Dim connflag As Long toexcel = False '首先赋初值为假 If conn.State = adStateOpen Then connflag = 1 Else connflag = 0 End If '如未连接则先连接 If connflag = 0 Then If Not mainmoudle.getlink Then toexcel = False Exit Function End If End If Set xlBook = xlApp.Workbooks.Add Set xlsheet = xlBook.Worksheets(1) xlsheet.Name = "Sheet1" irowcount = objrs.RecordCount Icolcount = objrs.Fields.Count For i = 0 To Icolcount - 1 xlsheet.Cells(1, i + 1) = objrs.Fields(i).Name Next i objrs.MoveFirst For i = 2 To irowcount + 1 For j = 0 To Icolcount - 1 xlsheet.Cells(i, j + 1) = objrs.Fields(j).Value Next j objr ...