发布后联不上数据库！！！

xynl 发表于 2007-10-21 11:43:26

我下面的这段测试数据库连接的代码，方法一不管在哪里都没有问题，方法二和方法三在我的开发环境没有问题（装有vs2005和你破解的dw2.0）通过vs2005发布向导发布到其他干净机器上（装有数据库，没有VS2005，没有dw2.0）运行程序，方法一不会报错，但是方法二和方法三都在红色代码的地方报错，不知道什么原因？ Imports Sybase.DataWindowImports System.Data.SqlClientPublic Class Form1方法一    Private Sub Button1_Click(ByVal sender As System.Object, ByVal ex As System.EventArgs) Handles Button1.Click        Try            Dim theConnection As New System.Data.SqlClient.SqlConnection("Data Source=localhost\SQLEXPRESS;Initial Catalog=Print;Integrated Security=SSPI;")            Dim gSQLCA As New Sybase.DataWindow.AdoTransaction(theConnection, "")            theConnection.Open()            MsgBox("SqlClient.SqlConnection.open成功")         Catch e As NullReferenceException            MsgBox("空指针异常: " + vbCrLf + vbCrLf + e.Message, MsgBoxStyle.OkOnly Or MsgBoxStyle.Critical)        Catch e As TransactionException            MsgBox("事务错，连接数据库出错: " + vbCrLf + vbCrLf + e.SqlErrorText + vbCrLf + vbCrLf + e.SqlDbCode, MsgBoxStyle.OkOnly Or MsgBoxStyle.Critical)        Catch e As InvalidOperationException            MsgBox("非法操作，连接数据库出错: " + vbCrLf + vbCrLf + e.Message + vbCrLf + vbCrLf + e.Message, MsgBoxStyle.OkOnly Or MsgBoxStyle.Critical)        Catch e As Exception            MsgBox("异常操作，连接数据库出错: " + vbCrLf + vbCrLf + e.Message, MsgBoxStyle.OkOnly Or MsgBoxStyle.Critical)        Finally        End Try    End Sub方法二    Private Sub Button2_Click(ByVal sender As System.Object, ByVal ex As System.EventArgs) Handles Button2.Click        Try            Dim theConnection As New System.Data.SqlClient.SqlConnection("Data Source=localhost\SQLEXPRESS;Initial Catalog=Print;Integrated Security=SSPI;")            Dim gSQLCA As New Sybase.DataWindow.AdoTransaction(theConnection, "")            Dim SQLCA As New Sybase.DataWindow.AdoTransaction(theConnection, "")            theConnection.Open()            MsgBox("SqlClient.SqlConnection.open成功")            SQLCA.BindConnection()            MsgBox("SQLCA.BindConnection()成功")        Catch e As NullReferenceException            MsgBox("空指针异常: " + vbCrLf + vbCrLf + e.Message, MsgBoxStyle.OkOnly Or MsgBoxStyle.Critical)        Catch e As TransactionException            MsgBox("事务错，连接数据库出错: " + vbCrLf + vbCrLf + e.SqlErrorText + vbCrLf + vbCrLf + e.SqlDbCode, MsgBoxStyle.OkOnly Or MsgBoxStyle.Critical)        Catch e As InvalidOperationException            MsgBox("非法操作，连接数据库出错: " + vbCrLf + vbCrLf + e.Message + vbCrLf + vbCrLf + e.Message, MsgBoxStyle.OkOnly Or MsgBoxStyle.Critical)        Catch e As Exception            MsgBox("异常操作，连接数据库出错: " + vbCrLf + vbCrLf + e.Message, MsgBoxStyle.OkOnly Or MsgBoxStyle.Critical)        Finally        End Try    End Sub方法二       Private Sub Button3_Click(ByVal sender As System.Object, ByVal ex As System.EventArgs) Handles Button3.Click        Try            Dim SQLCA As New Sybase.DataWindow.Transaction            SQLCA.Dbms = Sybase.DataWindow.DbmsType.OleDb            SQLCA.AutoCommit = True            SQLCA.DbParameter = "PROVIDER='SQLOLEDB',DATASOURCE='(local)\SQLEXPRESS',PROVIDERSTRING='database=Print',DelimitIdentifier='Yes',INTEGRATEDSECURITY='SSPI'"            SQLCA.Connect()            MsgBox(" SQLCA.Connect()成功")        Catch e As NullReferenceException            MsgBox("空指针异常: " + vbCrLf + vbCrLf + e.Message, MsgBoxStyle.OkOnly Or MsgBoxStyle.Critical)        Catch e As TransactionException            MsgBox("事务错，连接数据库出错: " + vbCrLf + vbCrLf + e.SqlErrorText + vbCrLf + vbCrLf + e.SqlDbCode, MsgBoxStyle.OkOnly Or MsgBoxStyle.Critical)        Catch e As InvalidOperationException            MsgBox("非法操作，连接数据库出错: " + vbCrLf + vbCrLf + e.Message + vbCrLf + vbCrLf + e.Message, MsgBoxStyle.OkOnly Or MsgBoxStyle.Critical)        Catch e As Exception            MsgBox("异常操作，连接数据库出错: " + vbCrLf + vbCrLf + e.Message, MsgBoxStyle.OkOnly Or MsgBoxStyle.Critical)        Finally        End Try    End SubEnd Class

lovelyni 发表于 2007-12-19 21:56:47

好长啊,近来顶一下

lovelyni 发表于 2007-12-19 21:57:12

进来看一下下

页: [1]

PowerBuilder(PB)BBS社区's Archiver

发布后联不上数据库！！！