VB與資料庫應用一例----生成EXCEL表 (轉)
小生初學炸練,總結了以下一個方法,因為時間有限,所以沒有太多檢查,難免有,但是關鍵功能沒有問題。這測試過了,嘿嘿。
這個程式可以將下圖表格中(MSHFLEXGRID)的
資料生成一個表,這樣可以省去用VB
來編寫列印排版程式的麻煩。想一想自已動
手用VB或寫一個像EXCEL的排版功能
一樣的東東,是多麼的恐怖!!。所以嘿嘿。。
原程式:
因為我用的是的樣本---
NorthWind.m 所以安了2000的可以
下載下面這個:(不代NorthWind.mdb,下載後請將
Office2000裡那個COPY到這個程式的目錄中就行)
go.163.com/~chunpeng/Project/PrintExcela.zip
沒有NorthWind.mdb的可以下載這個:
go.163.com/~chunpeng/Project/PrintExcel.zip
高手可以直接看下面,如果用VB做過資料庫應
用的朋友給點意見,這種方法我曾在多個MIS
中見過,只不過生成的是文件。這是
一種比較典型的方法。
Public WithEvents rs As ADODB.Recordset
Dim conn As ADODB.Connection
Dim myPanel As Panel
Private Sub Form_Load()
Set rs = New ADODB.Recordset
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.Open "PROVR=.Jet.OLEDB.4.0;Data =" + App.Path + "northwind.mdb;"
rs.Open " *from 產品", conn, adOpenStatic, adLockOptimistic
Set MSgrid1.DataSource = rs
Statar1.Panels.Clear
Set myPanel = StatusBar1.Panels.Add(, "Record")
myPanel.AutoSize = sbrContents
myPanel.Text = "總共有" & " " & rs.RecordCount & " " & "條記錄"
End Sub
Private Sub Form_Resize()
With MSgrid1
.Left = 0
.Top = Toolbar1.Height
.Width = Me.ScaleWidth - 10
.Height = Me.ScaleHeight - (StatusBar1.Height + 700)
End With
End Sub
Private Sub Print_cmd_Click()
Form2.Show
Dim myExcel As New Excel.Application, i, j, k As Integer, col As String
With myExcel
On Error GoTo Excle
.Application.Visible = False
.Workbooks.Add
'***********畫欄位************
j = 0
'Example: B2 ----G2 '列 本程式從B列,和第2行開始
For i = 66 To (66 + rs.Fields.Count - 1) '從RS中頭一個欄位到最後一個
col = Chr(i) & "2" 'Chr(66)就是B
'Debug.Print col
Range(col).Select
ActiveCell.FormulaR1C1 = rs.Fields(j).Name '
j = j + 1
Next i
'****************************
'*************以先橫後豎順序畫表***************
k = 0
rs.MoveFirst
DoEvents
For j = 3 To 3 + rs.RecordCount '本程式從B3開始,所以用3
k = 0
For i = 66 To (66 + rs.Fields.Count - 1)
col = Chr(i) & CStr(j) '得到目標表格的值如 C3
Range(col).Select
ActiveCell.FormulaR1C1 = rs.Fields(k)
k = k + 1
Next i
On Error Resume Next
Form2.Probar.Value = Form2.Probar.Value + 1
rs.MoveNext
If rs.EOF = True Then
Unload Form2
.Application.Visible = True
End If
Next j
'************************************
End With
Exit Sub
Excle:
MsgBox ("您沒有EXCLE2000,請先安裝")
End Sub
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10752043/viewspace-987489/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- VB6基本資料庫應用(二):建立資料庫資料庫
- 非Access資料庫在VB的程式設計及應用 (轉)資料庫程式設計
- VB與EXCEL共享資料庫實現報表列印功能的初探Excel資料庫
- 玩轉資料庫,用EXCEL就夠了資料庫Excel
- ASP與資料庫應用資料庫
- Excel高階應用教程:資料處理與資料分析Excel
- VB千里行-操作Word與Excel (轉)Excel
- 用VB6讀寫資料庫中的圖片 (轉)資料庫
- 用php生成excel檔案 (轉)PHPExcel
- kylix 資料庫應用簡介 (轉)資料庫
- Excel表的一些資料應用(從txt文字匯出,匯入到Excel表)薦Excel
- 利用MySQL原資料資訊批量轉換指定庫資料表生成Hive建表語句MySqlHive
- VB6基本資料庫應用(八):模糊搜尋與基於範圍的搜尋資料庫
- 用VB連線MySQL資料庫模組(詳解)MySql資料庫
- Excel 的VB程式設計 (轉)Excel程式設計
- vb.net 存取資料庫中的圖片 (轉)資料庫
- 建立一個連線資料庫的VB元件 (轉)資料庫元件
- 談談VB的資料庫程式設計方式 (轉)資料庫程式設計
- VB資料庫程式設計的幾點心得 (轉)資料庫程式設計
- 從VB 6到VB.NET——窗體特殊應用 (轉)
- 達夢資料庫如何將Excel表的資料複製到表中資料庫Excel
- Oracle 巧用外部表將大量excel資料匯入資料庫OracleExcel資料庫
- VB操作LotusNotes資料庫資料庫
- SQL SERVER 與ACCESS、EXCEL的資料轉換 (轉)SQLServerExcel
- 用VB將WORD文件(或其他的二進位制資料)生成xml檔案並互相轉換 (轉)XML
- 資料庫中的XML應用例項 (轉)資料庫XML
- golang利用模板生成資料庫表對應的模型及操作函式Golang資料庫模型函式
- 應用適配資料庫還是資料庫適配應用資料庫
- 資料庫鎖表與阻塞資料庫
- 在VB6中匯出EXCEL,FOXPRO,PRODOX格式的表 (轉)Excel
- 用Powerdesigner的PDM生成資料庫及逆向生成資料庫
- 資料庫診斷一例資料庫
- Excel資料透視表怎麼做 Excel資料透視表技巧Excel
- excel應用技巧:如何高效應用資料有效性功能Excel
- 在VB中編輯資料庫和電子表格 (轉)資料庫
- VB6.0使用ADO物件連線資料庫: (轉)物件資料庫
- 資料庫應用管理資料庫
- 記事本怎麼轉換成excel表格 怎麼把記事本資料生成excel資料Excel