VB使用mdb数据库显示及打印问题

来源：百度知道 编辑：UC知道 时间：2024/05/10 09:56:18
我用vb编了一个数据库查询的小程序，数据库是mdb文件,使用ado方式连接mdb文件，显示数据库内容用的是datagrid控件，遇到的问题：
1、在我编程序的机器上（xp）不论是在开发环境执行还是编译都执行都没问题，能正常显示，但是把exe文件拿到win2000机器上就不能显示库的内容，显示空的，但是涉及这个mdb查询的其他的功能都正常，就是这个datagrid控件显示的不正常，想请教怎么回事？我还不会打包
2、再有就是如果一定需要打包的话，打包的时候这个mdb文件也能打进去吗？
3、还有一个问题我想把数据库的内容通过打印机打印出来，想要一段打印代码，最好是可以设定字号字体进行打印输出的代码，多谢！

我刚学vb,入门的东西倒是都明白，但是一遇到实际问题就发木，希望和大家交流， 谢谢！

你需通过VB的打包程序,生成一个安装包,将此安装程序将你的应用程序安装于WIN2000机器,它同时会将所涉及的*.OCX文件安装于系统.你的第一个问题是WIN2000系统缺少MSDATGRD.OCX文件或未注册.
第二问题楼上已作回答.
第三问题数据打印输出:
VB下数据报表打印输出方法有多种，一是通过自己的设计和编程完成报表打印输出。二是通过MS OFFICE实现报表打印输出。三是应用数据报表设计器的报表打印输出。本人经常使用第一种方法，它具有根据需要灵活应用的特点，但需编写程序。下附代码，第一段代码定义基本变量，第二段代码定义打印函数，第三段代码是具体打印代码，含数据转换。第四段代码是窗体加载代码，具体连接数据库和打印代码根据你所涉及的数据要求进行修改。
Option Explicit
Private n As Integer
Private m As Integer
Private zh_dm(10) As Double
Private dy_dm(3000, 10) As Variant
Private zsl As Integer
Private y As Integer
Private x As Integer
Private i As Integer
Private k As Integer
Private p As Integer
Private pa As Integer
Private j As Integer
Private txt As String
Private fnt As Integer
Private dd As Variant

Public Function prnt(x As Variant, y As Variant, fnt As Variant, txt0 As Variant)
Printer.CurrentX = x
Printer.CurrentY = y
Printer.FontSize = fnt
Printer.Print txt0
End Fun