cn.ConnectionTimeout = 5
cn.CursorLocation = adUseClient
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 "1.请设置数据服务或检查服务器否正常工作。 " & Chr(13) & "2.网络是否正常工作。" & Chr(13) _
& "3.如果上述问题不能解决问题,敬请与管理员联系。", vbExclamation, "网络连接"
End
End Function
10、单击显示报表,会出现下图的结果。至此我们的报表与EXE程序分离的工作已经完成,只需要把这一个EXE文件编译后就可以分发了。
上一页 [1] [2]
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18