我在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中的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。