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

cn.ConnectionString = "Provider=MSDAORA.1;Password=" DataBasePassword ";User ID=" DataBaseUserName _

";Data Source=" DataBaseServerName ";Persist Security Info=True" ''''数据库连接字符串。

cn.Open ''''打开数据连接。

Set GetConnection = cn

End If ''''结束If Cn.State = adStateOpen

Exit Function

ErrHand:

MsgBox "１．请设置数据服务或检查服务器否正常工作。 " & Chr(13) & "２．网络是否正常工作。" & Chr(13) _

& "３．如果上述问题不能解决问题，敬请与管理员联系。", vbExclamation, "网络连接"

End

End Function

10、单击显示报表，会出现下图的结果。至此我们的报表与EXE程序分离的工作已经完成，只需要把这一个EXE文件编译后就可以分发了。

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