Excel、Access、VB的结合应用

　　 End If
　　 FrmMain.Visible = True
　　 Exit Sub
errhandle:
　　 FrmPrint.Visible = False
FrmMain.Visible = True
End Sub

---- 注意，下段仅通过ExcelDoForVB1()对"报表（一）"的处理，来说明数据填入Excel并打印的整个过程。

Sub ExcelDoForVB1()　　　　　 '打印报表（一）
　　 FrmPrint.Visible = True
　　 Set exsheet = exwbook.Worksheets("sheet1")
　　 ex.Sheets("Sheet1").Select
　　 ex.Range("A4:U49").Select
　　 ex.Selection.ClearContents
　　 ex.Range("A4").Select
　　 bar1.Min = 0　　　　　　
　　 bar1.Max = 45　　　　　
　　 For nRow = 4 To 49
　　 bar1.Value = nRow - 4　　 '进度显示栏进程
　　　　 myrecordset1.MoveNext
　　　　 If myrecordset1.EOF Then
　　　　　　 nflag = 0
　　　　　　 Exit For
　　　　 End If
　　　　 For nCol = 1 To 21
　　　　　　 exsheet.Cells(nRow, nCol) =
myrecordset1.Fields(nCol - 1)
　　　　 Next nCol
　　 Next nRow
　　 exsheet.Cells(52, 21) = "第 " CStr(PageN) " 页"
　　 FrmPrint.Visible = False
　　 bar1.Value = 0
ActiveWindow.SelectedSheets.PrintOut Copies:=NumCopies
End Sub

---- 虽然本文针对的是大多数已熟练掌握数据库技术，且精通编程之道的朋友们。但笔者认为仍有必要提一提将数据输入Access的过程，因为编出来的软件更多是面向各类普通用户，对他们来说最要紧的是好用，而其间的一系列关联并不想深究。所以设计一个好的输入界面十分有必要，在设计时可以运用VB提供的Data控件，当然若是考虑性能的话还可以用代码直接操纵数据。关于如何使用Data控件访问数据库，在Visual Basic的联机手册（Online book）中有很详细的说明，此处不再赘述。
---- 文中的所有程序在Visual Bsaic5.0中文专业版及Office97中文版中调试通过。

上一篇： 处理加了密码的MDB文件
下一篇： 如何在数据控件断开所有的数据连接

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!