PublicSubNew()TrystrCon...
Public Sub New()
Try
strConn = ConfigurationManager.ConnectionStrings("constring").ConnectionString
Catch ex As Exception
Throw ex
End Try
End Sub
''根据查询返回数据
Public Function GetData(ByVal strInput As String) As DataTable
Dim DT As DataTable
Dim DS As DataSet
Try
Dim odbcConn As OdbcConnection
odbcConn = New OdbcConnection(strConn)
odbcConn.Open()
Dim ocmd As OdbcCommand
ocmd = New OdbcCommand(strInput, odbcConn)
Dim oda As OdbcDataAdapter
oda = New OdbcDataAdapter(ocmd)
oda.Fill(DT)
odbcConn.Close()
Return DT
Catch ex As Exception
Throw ex
End Try
End Function
我的数据库是这样连得,哪里有错误啊,请指点一下
这个自己已经解决了,积分谁要拿去,要不也没了
积分都没人要啊,那我就白扔了啊
展开