gilsoft
یک شنبه 28 اردیبهشت 1393, 15:53 عصر
سلام دوستان
ابتدا عرض کنم که: به Database روی server قرار گرفته و من از یک Station به اون متصل میشم ... ( بصورت Local همچین مشکلاتی بروز نمی‌کند )
هم در زمان اجرای نرم‌افزار .. و هم هنگام دوباره فرخوانی Form خطای زیر رخ میده:
119176
اینم فانکشن مربوطه :
Public Function DbToDT(Table As String, SqlCmdStr As String, Optional ByVal DbName As String = "") As DataTable If DbName = "" Then DbName = Catalog
Dim DT As New DataTable
Try
Dim DbSql As New gsSql
With DbSql
.DbType = eDbTypes.SQL
.DbSource = DataSource
.DbCatalog = DbName
.TableName = Table
End With
Using DbCnn As New SqlConnection(DbSql.DbConnectionString)
Dim SqlCmd As New SqlCommand(SqlCmdStr, DbCnn) : SqlCmd.CommandType = CommandType.Text
DbCnn.Open()
Dim DA As New SqlDataAdapter(SqlCmd)
DA.Fill(DT) : DA.Dispose()
End Using
DbSql.Dispose() : DbSql = Nothing
Catch ex As Exception
MessageBox.Show(ex.Message.ToString + vbCrLf + Table, "DbToDT", MessageBoxButtons.OK, MessageBoxIcon.Stop, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign, True)
Finally
DbToDT = DT : DT.Dispose() : DT = Nothing
End Try
End Function 'DbToDataTabale()
دوستان به نظر شما چه باید کرد ؟ :متفکر:
ابتدا عرض کنم که: به Database روی server قرار گرفته و من از یک Station به اون متصل میشم ... ( بصورت Local همچین مشکلاتی بروز نمی‌کند )
هم در زمان اجرای نرم‌افزار .. و هم هنگام دوباره فرخوانی Form خطای زیر رخ میده:
119176
اینم فانکشن مربوطه :
Public Function DbToDT(Table As String, SqlCmdStr As String, Optional ByVal DbName As String = "") As DataTable If DbName = "" Then DbName = Catalog
Dim DT As New DataTable
Try
Dim DbSql As New gsSql
With DbSql
.DbType = eDbTypes.SQL
.DbSource = DataSource
.DbCatalog = DbName
.TableName = Table
End With
Using DbCnn As New SqlConnection(DbSql.DbConnectionString)
Dim SqlCmd As New SqlCommand(SqlCmdStr, DbCnn) : SqlCmd.CommandType = CommandType.Text
DbCnn.Open()
Dim DA As New SqlDataAdapter(SqlCmd)
DA.Fill(DT) : DA.Dispose()
End Using
DbSql.Dispose() : DbSql = Nothing
Catch ex As Exception
MessageBox.Show(ex.Message.ToString + vbCrLf + Table, "DbToDT", MessageBoxButtons.OK, MessageBoxIcon.Stop, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign, True)
Finally
DbToDT = DT : DT.Dispose() : DT = Nothing
End Try
End Function 'DbToDataTabale()
دوستان به نظر شما چه باید کرد ؟ :متفکر: