sqlconnection.vb

来自「初稿」· VB 代码 · 共 39 行

Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.OleDb
'Imports System.Data.SqlClient 
Imports System.Collections

Public Class SqlConnection
    'ConnectionString = ConfigurationManager.ConnectionStrings("SQLConnString").ConnectionStrings
    Public Function GetConString() As String
        Dim conn As String
        Dim i As Integer
        Dim config As New System.Configuration.ConnectionStringSettingsCollection
        config = System.Configuration.ConfigurationManager.ConnectionStrings
        conn = ""
        For i = 0 To config.Count - 1
            If config(i).Name = "SQLConnString" Then
                conn = config(i).ToString
                Exit For
            Else
                conn = ""
            End If
        Next
        'SqlConnection conn = new SqlConnection(ConfigurationManager.AppSettings.Get("forum"));
        'conn = ConfigurationManager.AppSettings.Get("")
        Return conn
    End Function

    Public Function GetDr(ByVal str As String) As OleDbDataReader
        Dim Sql As String = str
        Dim conn As New OleDbConnection(Me.GetConString)
        Dim cmd As New OleDbCommand(Sql, conn)
        cmd.Connection.Open()
        Dim dr As OleDbDataReader
        dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
        Return dr
    End Function

End Class