Crystal Report(水晶报表)的报表封装成VB的DLL

rs.Open "select staff_id,name,age,addr from tbs_staffInfo", _

GetConnection, adOpenDynamic, adLockReadOnly ''''连接数据库，获取表中的记录。

cryShow.ShowReport Me, rs ''''调用类中的函数ShowReport，并传递相关的参数。

End Sub

''''**

''''获取与数据库的连接。

''''@return ADODB.Connection.

Public Function GetConnection() As ADODB.Connection

Dim DataBasePassword As String

Dim DataBaseServerName As String

Dim DataBaseUserName As String

On Error GoTo ErrHand

If cn.State = adStateOpen Then

Set GetConnection = cn

Else ''''从注册表获取连接串。

DataBasePassword = "" ''''数据库登陆密码，这里为空

DataBaseServerName = "newReport" ''''Oracle数据库的服务名

DataBaseUserName = "newReport" ''''Oracle数据据库的登录名

cn.ConnectionTimeout = 5

cn.CursorLocation = adUseClient

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