當前位置:首頁 » 操作系統 » vb循環輸出資料庫資料庫資料庫數據

vb循環輸出資料庫資料庫資料庫數據

發布時間: 2025-01-04 00:49:29

㈠ VB中把SQL資料庫的數據輸出到Excel

用下面這段代碼,根據自己實際修改一下就好

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
If Adodc1.Recordset.RecordCount > 0 Then
xlApp.Visible = True
xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(1, 9)).Merge
xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(1, 9)) = "未發料統計表"
xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(1, 9)).HorizontalAlignment = xlCenter
xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(1, 9)).VerticalAlignment = xlCenter

'xlSheet.Cells(1, 9) = "未發料統計表"
For i = 0 To TDBGrid1.Columns.Count - 1
xlSheet.Cells(2, i + 1) = TDBGrid1.Columns(i).Caption
Next i
Adodc1.Recordset.MoveFirst
Do Until Adodc1.Recordset.EOF
i = Adodc1.Recordset.AbsolutePosition
For j = 0 To TDBGrid1.Columns.Count - 1
xlSheet.Cells(i + 2, j + 1) = TDBGrid1.Columns(j)
Next j

Adodc1.Recordset.MoveNext
Loop
xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(i + 2, j)).Borders.LineStyle = xlContinuous
End If
End Sub

㈡ VB6.0紼嬪簭:鏁版嵁搴撲腑鐨勬暟鎹鍦ㄦ枃鏈妗嗕腑寰鐜鏄劇ず,鎬庝箞瀹炵幇

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select name from 嫻嬭瘯"
Adodc1.Refresh
Timer1.Interval = 10000

End Sub

Private Sub Timer1_Timer()
Text1 = Adodc1.Recordset.Fields("name")
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveFirst

End Sub

熱點內容
英雄聯盟頭像文件夾 發布:2025-07-04 19:49:59 瀏覽:579
取消電腦連接wifi密碼怎麼設置密碼 發布:2025-07-04 19:31:32 瀏覽:507
電腦伺服器市場 發布:2025-07-04 19:14:06 瀏覽:503
沒簽名只加密 發布:2025-07-04 18:54:38 瀏覽:255
紅米手機存儲問題 發布:2025-07-04 18:50:43 瀏覽:844
水電煤演算法 發布:2025-07-04 18:36:44 瀏覽:330
天翼視訊緩存文件夾 發布:2025-07-04 18:36:43 瀏覽:97
unix網路編程第2卷 發布:2025-07-04 18:33:41 瀏覽:782
編譯歷史 發布:2025-07-04 18:23:01 瀏覽:852
空調壓縮機種類 發布:2025-07-04 18:13:58 瀏覽:243