VB与数据库应用一例----生成EXCEL表

　　这个程序可以将下图表格中(MSHFLEXGRID控件)的数据生成一个EXCEL表，这样可以省去用VB来编写打印排版程序的麻烦。想一想自已动手用VB或DELPHI写一个像EXCEL的排版功能一样的东东，是多么的恐怖!!。所以嘿嘿。。

　　原程序下载：
　　因为我用的是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
　　.Top = Toolbar1.Height
　　.Width = Me.ScaleWidth - 10
　　.Height = Me.ScaleHeight - (StatusBar1.Height + 700)
　　End With

　　End Sub