vb MySQL 导出_将vb中数据库的内容导出到excel中

我在vb中加入了adodc控件和datagrid控件来显示数据库，然后想把显示的内容导出到excel中，第一次导出是可以全部导出，但是一旦数据库更新了，就没办法将更新后的内容导出，不知道是什...

我在vb中加入了adodc控件和datagrid控件来显示数据库，然后想把显示的内容导出到excel中，第一次导出是可以全部导出，但是一旦数据库更新了，就没办法将更新后的内容导出，不知道是什么原因。

代码如下

Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlsheet As Excel.Worksheet

Private Sub Command1_Click()

Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True

Set xlBook = xlApp.Workbooks.Open(App.Path + "\Book1.xls")

Set xlsheet = xlBook.Worksheets(1)

xlApp.Cells(1, 1) = "编号"

xlApp.Cells(1, 2) = "DO"

xlApp.Cells(1, 3) = "PH"

Adodc1.Refresh

Adodc1.Recordset.MoveFirst

Static i As Integer

For i = 0 To Adodc1.Recordset.Fields.Count Step 1

xlApp.Cells(i + 2, 1) = Adodc1.Recordset.Fields("编号")

xlApp.Cells(i + 2, 2) = Adodc1.Recordset.Fields("名称")

xlApp.Cells(i + 2, 3) = Adodc1.Recordset.Fields("数目")

Adodc1.Recordset.MoveNext

Next i

End Sub

展开

总结

以上是生活随笔为你收集整理的vb MySQL 导出_将vb中数据库的内容导出到excel中的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。