|
VB与数据库应用一例----生成EXCEL表(1)
小生初学炸练，总结了以下一个方法，因为时间有限，所以没有太多检查程序，难免有BUG，但是关键功能没有问题。这测试过了，嘿嘿。 这个程序可以将下图表格中(MSHFLEXGRID控件)的
数据生成一个Excel表，这样可以省去用VB
来编写打印排版程序的麻烦。想一想自已动
手用VB或Delphi写一个像EXCEL的排版功能
一样的东东，是多么的恐怖!!。所以嘿嘿。。 http://go.163.com/~chunpeng/Project/Grid.jpg 原程序下载：
因为我用的是Access2000的样本数据库---
NorthWind.mdb 所以安了OFFICE2000的可以
下载下面这个：(不代NorthWind.mdb，下载后请将
Office2000里那个COPY到这个程序的目录中就行)
go.163.com/~chunpeng/Project/PrintExcela.zip
没有NorthWind.mdb的可以下载这个：
go.163.com/~chunpeng/Project/PrintExcel.zip
高手可以直接看下面，如果用VB做过数据库应
用的朋友给点意见，这种方法我曾在多个MIS
系统中见过，只不过生成的是Word文档。这是
一种比较典型的方法。
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 "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\northwind.mdb;"
rs.Open "select *from 产品", conn, adOpenStatic, adLockOptimistic
Set MSgrid1.DataSource = rs
StatusBar1.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
| 
