vb连接mysql查询显示_VB如何实现查询数据库并显示出来？

展开全部

可以e69da5e6ba903231313335323631343130323136353331333337396261快速导出使用excel 就有该功能Public Function ExportToExcel(ByVal strOpen As String, Title As String, dizhi As String, con As ADODB.Connection)

'*********************************************************

'*   名称：ExporToExcel

'*   功能：导出数据到EXCEL'*   用法：ExporToExcel(strOpen查询字符串，titile

'*excel标题,dizhi 保存路径，con  数据库连接地址)

'*********************************************************

lok:  On Error GoTo er

Screen.MousePointer = 11

Dim Rs_Data     As New ADODB.Recordset

Dim Irowcount     As Long

Dim Icolcount     As Long

Dim XlApp     As New Excel.Application

Dim xlbook     As Excel.Workbook

Dim xlSheet     As Excel.Worksheet

Dim xlQuery     As Excel.QueryTable

With Rs_Data

If .State = adStateOp