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 "１．请设置数据服务或检查服务器否正常工作。 " & Chr(13) & "２．网络是否正常工作。" & Chr(13) _

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

       End

End Function

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

上一页  [1] [2]