读书人

三天了都没解决的 VS2003类 转到 200

发布时间: 2012-01-16 23:36:52 作者: rapoo

三天了都没解决的 VS2003类 转到 2005无法使用的问题 有详细说明!
Imports Microsoft.VisualBasic
Imports System.Data.SqlClient
Imports System.IO

Public Class DBController
Private connectingstring As String
Private myConn As SqlConnection
Private ds As Data.DataSet
Private myAdapter As SqlDataAdapter
Private mycmd As SqlCommand
Public Sub New()

System.Configuration.ConfigurationManager.AppSettings( "Connectionstring ").ToString.Trim()
myConn = New SqlConnection(connectingstring)

End Sub
Public Sub open()
myConn.Open()
End Sub
Public Sub close()
myConn.Close()
End Sub
Public Function Getds() As Data.DataSet
Return ds

End Function
'===================================================================
'函数名: Cest (测试模块)
'功能描述:执行无返回值的数据操作
'输入参数:sqlstr,getid(分为插入,修改,查询)
'返回值:查询返回 SqlDataReader对象,其他无返回值
'创建时间:2007.4.10
'修改时间:2007.4.10
'====================================================================
Public Sub Cest(ByVal sqlstr As String, ByVal getid As String)
Try
Select Case getid
Case "插入 "

myAdapter = New SqlDataAdapter(sqlstr, myConn)
ds = New Data.DataSet()
myAdapter.Fill(ds)
Case "修改 "
If myConn.State = Data.ConnectionState.Closed Then
myConn.Open()



End If
mycmd = New SqlCommand(sqlstr, myConn)
mycmd.ExecuteNonQuery()
mycmd.Dispose()
Case "查询 "

If myConn.State = Data.ConnectionState.Closed Then
myConn.Open()

End If
mycmd = New SqlCommand(sqlstr, myConn)
Dim reader As SqlDataReader
reader = mycmd.ExecuteReader
mycmd.Dispose()
End Select
Catch ex As Exception

End Try

End Sub
'===================================================================
'函数名: Fill
'功能描述:执行无返回值的数据操作
'输入参数:sqlstr
'返回值:无返回值
'创建时间:2007.4.10
'修改时间:2007.4.10
'====================================================================
Public Sub fill(ByVal sqlstr As String)
myAdapter = New SqlDataAdapter(sqlstr, myConn)
ds = New Data.DataSet()
myAdapter.Fill(ds)
End Sub


这是个数据库连接的类

在2003下 使用正常

2005下 重新命名 而且 System.Configuration.ConfigurationManager.AppSettings( "Connectionstring ").ToString.Trim()



读不出 connectionstring的值 WEB.config正常

2005用什么语句读这个
还有 老是提示需要 NEW重新命名


请问各位大大 如何解决这个问题

我2003的类要重新写了么?



[解决办法]
如果要用ConfigurationManager.AppSettings( "Connectionstring ").ToString.Trim()来取,config里应该写成
<add key= "Connectionstring " value= "test connection string "/>
</appSettings>

读书人网 >asp.net

热点推荐