adonet数据库操作函数库

最新推荐文章于 2024-01-06 14:18:36 发布
最新推荐文章于 2024-01-06 14:18:36 发布
阅读量348 收藏
点赞数
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/lgs790709/article/details/78854591
版权

李国帅 于2008年收集


sqlClient

Imports System.Data
Imports System.Data.SqlClient
Imports System.IO

Public Class CSqlClient
    Private strConnect As String                    '连接数据库字符串
    Private myConnection As SqlConnection = Nothing 'SqlConnection对象
    Private myConnectFlag As Boolean = False        '是否连接成功标识
    Private strSQL As String                        'SQL语句字符串

    Public Sub ErrorLog(ByVal e As Exception)
        Dim strMsg As New StringWriter()
        strMsg.WriteLine("<Date Time>" & DateTime.Now())
        strMsg.WriteLine("Source:" & e.Source)
        strMsg.WriteLine("Message:" & e.Message)

        System.Diagnostics.EventLog.WriteEntry("SqlDatabase", strMsg.ToString())
    End Sub


    '连接数据库(Sql Server)
    Public Function connect(ByRef m_strConnect As String) As Boolean
        Try
            strConnect = m_strConnect
            myConnection = New SqlConnection(strConnect)
            myConnection.Open()
            myConnectFlag = True
        Catch err As Exception
            ErrorLog(err)
        End Try
        Return myConnectFlag
    End Function

    '关闭数据库
    Public Sub close()
        If (myConnectFlag) Then
            myConnection.Close()
        End If
    End Sub

    '获取SqlServer对象
    Public Function getConnectSqlServer() As SqlConnection
        If (myConnectFlag) Then
            getConnectSqlServer = myConnection
        End If
    End Function

    '创建一个command对象
    Public Function CreateCommand(ByRef m_strSQL As String, ByRef m_Param() As SqlParameter, _
                                        ByRef m_SQLCmdType As CommandType) As SqlCommand
        Dim myCommand As New SqlCommand(m_strSQL, myConnection)
        myCommand.CommandType = m_SQLCmdType
        Dim Param As SqlParameter
        If Not m_Param Is Nothing Then
            For Each Param In m_Param
                myCommand.Parameters.Add(Param)
            Next
        End If

        Try
            Return myCommand
        Catch err As SqlException
            ErrorLog(err)
            Return Nothing
        End Try
    End Function

    '执行SQL语句
    Public Overloads Function ExecuteSQL(ByRef m_strSQL As String, ByRef m_DataSet As DataSet) As Boolean
        Try
            If (myConnectFlag) Then
                Dim myDataAdapter As New SqlDataAdapter(m_strSQL, myConnection)
                myDataAdapter.Fill(m_DataSet)
            End If
        Catch err As SqlException
            ErrorLog(err)
            Return False
        End Try
    End Function

    Public Overloads Function ExecuteSQL(ByVal m_strSQL As String, ByRef m_DataReader As SqlDataReader) As Boolean

        Dim myCommand As New SqlCommand(m_strSQL, myConnection)

        Try
            m_DataReader = myCommand.ExecuteReader()
            Return True
        Catch err As SqlException
            ErrorLog(err)
            Return False
        End Try

    End Function


    '执行存储过程
    Public Overloads Function ExecuteSP(ByRef m_SProcName As String, ByRef m_Param() As SqlParameter, ByRef m_DataSet As DataSet) As Boolean
        Dim myCommand As SqlCommand = CreateCommand(m_SProcName, m_Param, CommandType.StoredProcedure)
        Dim myDataAdapter As New SqlDataAdapter(myCommand)

        Try
            myDataAdapter.Fill(m_DataSet)
            Return True
        Catch err As SqlException
            ErrorLog(err)
            Return False
        End Try
    End Function

    Public Overloads Function ExecuteSP(ByRef m_SProcName As String, ByRef m_Param() As SqlParameter) As Boolean
        Dim myCommand As SqlCommand = CreateCommand(m_SProcName, m_Param, CommandType.StoredProcedure)

        Try
            myCommand.ExecuteNonQuery()
            Return True
        Catch err As SqlException
            ErrorLog(err)
            Return False
        End Try
    End Function

    Public Overloads Function ExecuteSP(ByRef m_SProcName As String, ByRef m_Param() As SqlParameter, ByRef m_DataReader As SqlDataReader) As Boolean
        Dim myCommand As SqlCommand = CreateCommand(m_SProcName, m_Param, CommandType.StoredProcedure)

        Try
            m_DataReader = myCommand.ExecuteReader
            Return True
        Catch err As SqlException
            ErrorLog(err)
            Return False
        End Try
    End Function





    '############################################################################################

    '获取数据库的表名
    Public Function getTables(ByRef m_TablesDataSet As DataSet) As Boolean
        Dim myTablesDataSet As New DataSet()
        Dim myDataReader As SqlDataReader
        Dim mySuccessFlag As Boolean = False

        Try
            If (myConnectFlag) Then
                Dim SuccessFlag As Boolean = False
                SuccessFlag = myTables(myDataReader)
                If (SuccessFlag) Then
                    Dim myArrayList As ArrayList = New ArrayList()
                    While (myDataReader.Read())
                        Dim myTableName As String = ""
                        myTableName = CType(myDataReader.GetValue(0), String)
                        myArrayList.Add(myTableName)
                    End While
                    myDataReader.Close()
                    Dim iArrayCount As Integer = myArrayList.Count
                    Dim myTableArray(iArrayCount) As String
                    myArrayList.CopyTo(myTableArray)
                    Dim i As Integer
                    For i = 0 To iArrayCount - 1
                        Dim tblName As String
                        tblName = myTableArray(i)
                        strSQL = "sp_help " & "[" & tblName & "]"
                        Dim myCommand As New SqlCommand(strSQL, myConnection)
                        Dim myDataAdapter As New SqlDataAdapter(myCommand)
                        myDataAdapter.Fill(myTablesDataSet, tblName)
                    Next
                End If
                m_TablesDataSet = myTablesDataSet
                mySuccessFlag = True
            End If
        Catch e As SqlException
            Console.WriteLine(e.ToString())
        End Try
        m_TablesDataSet = myTablesDataSet
        Return mySuccessFlag
    End Function

    Private Function myTables(ByRef myDataReader As SqlDataReader) As Boolean
        Dim mySuccessFlag As Boolean = False
        Dim myLocalDataReader As SqlDataReader

        Try
            If (myConnectFlag) Then
                strSQL = "SELECT Name FROM SysObjects WHERE Type='U'"
                Dim myCommand As New SqlCommand(strSQL, myConnection)
                myLocalDataReader = myCommand.ExecuteReader(CommandBehavior.SingleResult)
                mySuccessFlag = True
            End If
        Catch e As SqlException
            Console.WriteLine(e.ToString())
        End Try

        myDataReader = myLocalDataReader
        Return mySuccessFlag
    End Function


    '获取数据库的视图名
    Public Function getViews(ByRef m_TablesDataSet As DataSet) As Boolean
        Dim myTablesDataSet As New DataSet()
        Dim myDataReader As SqlDataReader
        Dim mySuccessFlag As Boolean = False

        Try
            If (myConnectFlag) Then
                Dim SuccessFlag As Boolean = False
                SuccessFlag = myViews(myDataReader)
                If (SuccessFlag) Then
                    Dim myArrayList As ArrayList = New ArrayList()
                    While (myDataReader.Read())
                        Dim myTableName As String = ""
                        myTableName = CType(myDataReader.GetValue(0), String)
                        myArrayList.Add(myTableName)
                    End While
                    myDataReader.Close()
                    Dim iArrayCount As Integer = myArrayList.Count
                    Dim myTableArray(iArrayCount) As String
                    myArrayList.CopyTo(myTableArray)
                    Dim i As Integer
                    For i = 0 To iArrayCount - 1
                        Dim tblName As String
                        tblName = myTableArray(i)
                        strSQL = "sp_help " & "[" & tblName & "]"
                        Dim myCommand As New SqlCommand(strSQL, myConnection)
                        Dim myDataAdapter As New SqlDataAdapter(myCommand)
                        myDataAdapter.Fill(myTablesDataSet, tblName)
                    Next
                End If
                m_TablesDataSet = myTablesDataSet
                mySuccessFlag = True
            End If
        Catch e As SqlException
            Console.WriteLine(e.ToString())
        End Try
        m_TablesDataSet = myTablesDataSet
        Return mySuccessFlag
    End Function

    Private Function myViews(ByRef myDataReader As SqlDataReader) As Boolean
        Dim mySuccessFlag As Boolean = False
        Dim myLocalDataReader As SqlDataReader

        Try
            If (myConnectFlag) Then
                strSQL = "SELECT * FROM SysObjects WHERE Type='V'"
                Dim myCommand As New SqlCommand(strSQL, myConnection)
                myLocalDataReader = myCommand.ExecuteReader(CommandBehavior.SingleResult)
                mySuccessFlag = True
            End If
        Catch e As SqlException
            Console.WriteLine(e.ToString())
        End Try

        myDataReader = myLocalDataReader
        Return mySuccessFlag
    End Function

    '获取数据库的存储过程名
    Public Function getStoredProcs(ByRef m_TablesDataSet As DataSet) As Boolean
        Dim myTablesDataSet As New DataSet()
        Dim myDataReader As SqlDataReader
        Dim mySuccessFlag As Boolean = False

        Try
            If (myConnectFlag) Then
                Dim SuccessFlag As Boolean = False
                SuccessFlag = myStoredProcs(myDataReader)
                If (SuccessFlag) Then
                    Dim myArrayList As ArrayList = New ArrayList()
                    While (myDataReader.Read())
                        Dim myTableName As String = ""
                        myTableName = CType(myDataReader.GetValue(0), String)
                        myArrayList.Add(myTableName)
                    End While
                    myDataReader.Close()
                    Dim iArrayCount As Integer = myArrayList.Count
                    Dim myTableArray(iArrayCount) As String
                    myArrayList.CopyTo(myTableArray)
                    Dim i As Integer
                    For i = 0 To iArrayCount - 1
                        Dim tblName As String
                        tblName = myTableArray(i)
                        strSQL = "sp_help " & "[" & tblName & "]"
                        Dim myCommand As New SqlCommand(strSQL, myConnection)
                        Dim myDataAdapter As New SqlDataAdapter(myCommand)
                        myDataAdapter.Fill(myTablesDataSet, tblName)
                    Next
                End If
                m_TablesDataSet = myTablesDataSet
                mySuccessFlag = True
            End If
        Catch e As SqlException
            Console.WriteLine(e.ToString())
        End Try
        m_TablesDataSet = myTablesDataSet
        Return mySuccessFlag
    End Function

    Private Function myStoredProcs(ByRef myDataReader As SqlDataReader) As Boolean
        Dim mySuccessFlag As Boolean = False
        Dim myLocalDataReader As SqlDataReader

        Try
            If (myConnectFlag) Then
                strSQL = "SELECT * FROM SysObjects WHERE Type='P'"
                Dim myCommand As New SqlCommand(strSQL, myConnection)
                myLocalDataReader = myCommand.ExecuteReader(CommandBehavior.SingleResult)
                mySuccessFlag = True
            End If
        Catch e As SqlException
            Console.WriteLine(e.ToString())
        End Try

        myDataReader = myLocalDataReader
        Return mySuccessFlag
    End Function

End Class

oledbClient


Imports System
Imports System.Data
Imports System.Data.OleDb

Public Class OleDatabase

    '类成员声明
    Public Connection As OleDbConnection    'OleDbConnection对象
    Public Adapter As OleDbDataAdapter      'OleDbDataAdapter对象
    Public Command As OleDbCommand
    Public CommandBuilder As OleDbCommandBuilder
    Public SelectCommand As OleDbCommand
    Public InsertCommand As OleDbCommand
    Public UpdateCommand As OleDbCommand
    Public DeleteCommand As OleDbCommand
    Protected ConnString As String

    '显示错误信息
    Public Sub DisplayError(ByVal ex As Exception)
        MsgBox("模块：" & ex.Source & "出现错误" & Chr(10) & Chr(13) & "错误信息：" & ex.Message)
    End Sub

    '更新数据集(DataSet)、数据表(DataTable)、或数据行(DataRow())
    Public Function UpDate(ByRef Data As Object) As Boolean
        Dim succ As Boolean = True
        Try
            CommandBuilder.DataAdapter = Adapter
            CommandBuilder.RefreshSchema()
            Adapter.Update(Data)
        Catch ex As Exception
            succ = False
        End Try
        UpDate = succ
    End Function

    '执行SELECT SQL语句，并返回OleDbDataReader对象
    '函数成功返回True，失败返回False
    Public Function SelectQuery(ByVal SelectString As String, ByRef DataReader As OleDbDataReader) As Boolean
        Dim ret As Boolean = True
        Try
            If Connection.State = ConnectionState.Closed Then
                Connection.Open()
            End If
            Command.CommandText = SelectString
            Command.CommandType = CommandType.Text
            Adapter.SelectCommand = Command
            DataReader = Command.ExecuteReader(CommandBehavior.CloseConnection)
        Catch ex As Exception
            ret = False
            DisplayError(ex)
        End Try
        SelectQuery = ret
    End Function

    '执行SELECT SQL语句,成功返回受影响的行数,失败返回-1
    Public Function SelectQuery(ByVal SelectString As String) As Integer
        Dim ret As Integer
        Try
            If Connection.State = ConnectionState.Closed Then
                Connection.Open()
            End If
            Command.CommandText = SelectString
            Command.CommandType = CommandType.Text
            Adapter.SelectCommand = Command
            ret = Command.ExecuteNonQuery()
        Catch ex As Exception
            ret = -1
            DisplayError(ex)
        Finally
            Connection.Close()
        End Try
        SelectQuery = ret
    End Function

    '执行SELECT 存储过程，并填充一个已经new过的数据集对象
    '函数成功返回True，失败返回False
    Public Function SelectSP(ByVal SPName As String, ByRef SelectData As Object) As Boolean
        Dim ret As Boolean = True
        Try
            If Connection.State = ConnectionState.Closed Then
                Connection.Open()
            End If
            Command.CommandText = SPName
            Command.CommandType = CommandType.StoredProcedure
            Adapter.SelectCommand = Command
            Adapter.Fill(SelectData)
        Catch ex As Exception
            ret = False
            DisplayError(ex)
        Finally
            Connection.Close()
        End Try
        SelectSP = ret
    End Function

    Public Function SelectSP(ByVal SPName As String, ByRef DataReader As OleDbDataReader) As Boolean
        Dim ret As Boolean = True
        Try
            If Connection.State = ConnectionState.Closed Then
                Connection.Open()
            End If
            Command.CommandText = SPName
            Command.CommandType = CommandType.StoredProcedure
            Adapter.SelectCommand = Command
            DataReader = Command.ExecuteReader()
        Catch ex As Exception
            ret = False
            DisplayError(ex)
        Finally
            Connection.Close()
        End Try
        SelectSP = ret
    End Function

    '执行UPDATE 存储过程
    '函数成功返回True，失败返回False
    Public Function UpdateSP(ByVal SPName As String) As Boolean
        Dim ret As Boolean = True
        Try
            If Connection.State = ConnectionState.Closed Then
                Connection.Open()
            End If
            Command.CommandText = SPName
            Command.CommandType = CommandType.StoredProcedure
            Adapter.UpdateCommand = Command
            Command.ExecuteNonQuery()
        Catch ex As Exception
            ret = False
            DisplayError(ex)
        Finally
            Connection.Close()
        End Try
        UpdateSP = ret
    End Function

    '执行DELETE 存储过程
    '函数成功返回True，失败返回False
    Public Function DeleteSP(ByVal SPName As String) As Boolean
        Dim ret As Boolean = True
        Try
            If Connection.State = ConnectionState.Closed Then
                Connection.Open()
            End If
            Command.CommandText = SPName
            Command.CommandType = CommandType.StoredProcedure
            Adapter.DeleteCommand = Command
            Command.ExecuteNonQuery()
        Catch ex As Exception
            ret = False
            DisplayError(ex)
        Finally
            Connection.Close()
        End Try
        DeleteSP = ret
    End Function

    '执行INSERT 存储过程
    '函数成功返回True，失败返回False
    Public Function InsertSP(ByVal SPName As String) As Boolean
        Dim ret As Boolean = True
        Try
            If Connection.State = ConnectionState.Closed Then
                Connection.Open()
            End If
            Command.CommandText = SPName
            Command.CommandType = CommandType.StoredProcedure
            Adapter.InsertCommand = Command
            Command.ExecuteNonQuery()
        Catch ex As Exception
            ret = False
            DisplayError(ex)
        Finally
            Connection.Close()
        End Try
        InsertSP = ret
    End Function

    '执行DELETE SQL语句
    '函数执行完之后，数据库连接自动关闭，不要再调用CloseConnection()接口
    '函数成功返回True，失败返回False
    Public Function DeleteQuery(ByVal DeleteString As String) As Boolean
        Dim ret As Boolean = True
        Try
            If Connection.State = ConnectionState.Closed Then
                Connection.Open()
            End If
            Command.CommandText = DeleteString
            Command.CommandType = CommandType.Text
            Adapter.DeleteCommand = Command
            Command.ExecuteNonQuery()
        Catch ex As Exception
            ret = False
            DisplayError(ex)
        Finally
            Connection.Close()
        End Try
        DeleteQuery = ret
    End Function

    '执行UPDATE SQL语句
    '函数执行完之后，数据库连接自动关闭，不要再调用CloseConnection()接口
    '函数成功返回True，失败返回False
    Public Function UpdateQuery(ByVal UpdateString As String) As Boolean
        Dim ret As Boolean = True
        Try
            If Connection.State = ConnectionState.Closed Then
                Connection.Open()
            End If
            Command.CommandText = UpdateString
            Command.CommandType = CommandType.Text
            Adapter.UpdateCommand = Command
            Command.ExecuteNonQuery()
        Catch ex As Exception
            ret = False
            DisplayError(ex)
        Finally
            Connection.Close()
        End Try
        UpdateQuery = ret
    End Function

    '执行INSERT SQL语句
    '函数执行完之后，数据库连接自动关闭，不要再调用CloseConnection()接口
    '函数成功返回True，失败返回False
    Public Function InsertQuery(ByVal InsertString As String) As Boolean
        Dim ret As Boolean = True
        Try
            If Connection.State = ConnectionState.Closed Then
                Connection.Open()
            End If
            Command.CommandText = InsertString
            Command.CommandType = CommandType.Text
            Adapter.InsertCommand = Command
            Command.ExecuteNonQuery()
        Catch ex As Exception
            ret = False
            DisplayError(ex)
        Finally
            Connection.Close()
        End Try
        InsertQuery = ret
    End Function

    '执行SELECT SQL语句，并填充一个已经new过的数据集对象
    '函数执行完之后，数据库连接自动关闭，不要再调用CloseConnection()接口
    '如果查询成功返回True,否则返回False
    Public Function SelectQuery(ByVal SelectString As String, ByRef SelectData As Object) As Boolean
        Dim ret As Boolean = True
        Try
            If Connection.State = ConnectionState.Closed Then
                Connection.Open()
            End If
            Command.CommandText = SelectString
            Command.CommandType = CommandType.Text
            Adapter.SelectCommand = Command
            Adapter.Fill(SelectData)
        Catch ex As Exception
            ret = False
            DisplayError(ex)
        Finally
            Connection.Close()
        End Try
        SelectQuery = ret
    End Function

    '连接到DB2数据库
    'Server ---- 服务器地址或名称
    'DbName ----- 要连接到的数据库名称
    'UserId ---- 用户名
    'Password ---- 登录口令
    Public Function Db2Connection(ByVal Server As String, ByVal DbName As String, ByVal UserId As String, ByVal Password As String) As Boolean
        Dim ret As Boolean = True
        '如果数据库连接没有打开，尝试打开数据库连接
        If Connection.State = ConnectionState.Closed Then
            '构造连接字串
            ConnString = "Provider=IBMDADB2.1;Mode=ReadWrite;UID=" & _
                          UserId & ";PWD=" & Password & ";Data Source=" & DbName & _
                         ";Location=" & Server
            Try
                Connection.ConnectionString = ConnString
                Connection.Open()
            Catch ex As Exception
                ret = False
                DisplayError(ex)
            End Try
        End If
        Db2Connection = ret '返回函数结果
    End Function

    '关闭数据库连接
    Public Function CloseConnection()
        If Connection.State = ConnectionState.Open Then
            Try
                Connection.Close() '关闭数据库连接
            Catch ex As Exception
                DisplayError(ex)
            End Try
        End If
    End Function

    '接口CreateConnection ----- 创建数据库连接,自定义连接字串，可连接各种数据库
    'connString ----- 连接字串
    '成功返回 True，否则返回 False
    Public Function CreateConnection(ByVal ConnectionString As String) As Boolean
        Dim ret As Boolean = True
        ConnString = ConnectionString
        '如果数据库连接没有打开，尝试打开数据库连接
        If Connection.State = ConnectionState.Closed Then
            Try
                Connection.ConnectionString = ConnectionString
                Connection.Open()
            Catch ex As Exception
                ret = False
                DisplayError(ex)
            End Try
        End If
        CreateConnection = ret '返回函数结果
    End Function

    '接口AccessConnection ----- 连接到Access数据库
    'DbPath ---- 数据库完整路径
    'UserId ---- 用户名
    'Passord ----- 用户密码
    '成功返回 True，否则返回 False
    Public Function AccessConnection(ByVal DbPath As String, ByVal UserId As String, ByVal Password As String) As Boolean
        Dim ret As Boolean = True
        '如果数据库连接没有打开，尝试打开数据库连接
        If Connection.State = ConnectionState.Closed Then
            '构造连接字串
            ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                          DbPath & ";User Id=" & UserId & ";Password=" & Password & ";"
            Try
                Connection.ConnectionString = ConnString
                Connection.Open()
            Catch ex As Exception
                ret = False
                DisplayError(ex)
            End Try
        End If
        AccessConnection = ret '返回函数结果
    End Function

    '接口SqlConnection ----- 连接到SQL Server数据库(通过用户名和密码登录）
    'DbName ---- 数据库名
    'UserId ---- 用户名
    'Passord ----- 用户密码
    'DataSource ----- 要连接的SQL实例的名字或者网络地址
    '如果是网络地址，IP地址后要加个端口号，如:190.190.200.100,1433,SQL缺省的端口号为1433
    '成功返回 True，否则返回 False
    Public Function SqlConnection(ByVal DataSource As String, ByVal DbName As String, ByVal UserId As String, ByVal Password As String) As Boolean

        Dim ret As Boolean = True
        '如果数据库连接没有打开，尝试打开数据库连接
        If Connection.State = ConnectionState.Closed Then
            '构造连接字串
            ConnString = "Provider=SQLOLEDB.1;Initial Catalog=" & _
                          DbName & ";Data Source=" & DataSource & ";User Id=" & UserId & _
                          ";Password=" & Password & ";"
            Try
                Connection.ConnectionString = ConnString
                Connection.Open()
            Catch ex As Exception
                ret = False
                DisplayError(ex)
            End Try
        End If
        SqlConnection = ret '返回函数结果
    End Function

    '接口SqlConnection ----- 连接到SQL Server数据库(信任安全连接）
    'DbName ---- 数据库名
    'DataSource ----- 要连接的SQL实例的名字
    '成功返回 True，否则返回 False
    Public Function SqlConnection(ByVal DataSource As String, ByVal DbName As String) As Boolean
        Dim ret As Boolean = True
        '如果数据库连接没有打开，尝试打开数据库连接
        If Connection.State = ConnectionState.Closed Then
            '构造连接字串
            ConnString = "Provider=SQLOLEDB.1;Initial Catalog=" & _
                          DbName & ";Data Source=" & DataSource & _
                          ";Integrated Security=SSPI;Persist Security Info=False;"
            Try
                Connection.ConnectionString = ConnString
                Connection.Open()
            Catch ex As Exception
                ret = False
                DisplayError(ex)
            End Try
        End If
        SqlConnection = ret '返回函数结果
    End Function

    '接口OracleConnection ----- 连接到Oracle数据库(通过用户名和密码登录）
    'UserId ---- 用户名
    'Passord ----- 用户密码
    'DataSource ----- 要连接的Oracle实例的名字或者网络地址
    '如果是网络地址，IP地址后要加个端口号，如:190.190.200.100,1433
    '成功返回 True，否则返回 False
    Public Function OracleConnection(ByVal DataSource As String, ByVal UserId As String, ByVal Password As String) As Boolean

        Dim ret As Boolean = True
        '如果数据库连接没有打开，尝试打开数据库连接
        If Connection.State = ConnectionState.Closed Then
            '构造连接字串
            ConnString = "Provider=OraOLEDB.Oracle;Data Source=" & DataSource & _
                         ";User Id=" & UserId & ";Password=" & Password & ";"
            Try
                Connection.ConnectionString = ConnString
                Connection.Open()
            Catch ex As Exception
                ret = False
                DisplayError(ex)
            End Try
        End If
        OracleConnection = ret '返回函数结果
    End Function

    '接口OracleConnection ----- 连接到Oracle Server数据库(信任安全连接）
    'DataSource ----- 要连接的Oracle实例的名字
    '成功返回 True，否则返回 False
    Public Function OracleConnection(ByVal DataSource As String) As Boolean
        Dim ret As Boolean = True
        '如果数据库连接没有打开，尝试打开数据库连接
        If Connection.State = ConnectionState.Closed Then
            '构造连接字串
            ConnString = "Provider=OraOLEDB.Oracle;Data Source=" & DataSource & ";OSAuthent=1;"
            Try
                Connection.ConnectionString = ConnString
                Connection.Open()
            Catch ex As Exception
                ret = False
                DisplayError(ex)
            End Try
        End If
        OracleConnection = ret '返回函数结果
    End Function

    '接口ExcelConnection ----- 连接到Excel工作表
    'DbPath ----- .xls文件完整路径
    '成功返回 True，否则返回 False
    Public Function ExcelConnetion(ByVal DbPath As String) As Boolean
        Dim ret As Boolean = True
        '如果数据库连接没有打开，尝试打开数据库连接
        If Connection.State = ConnectionState.Closed Then
            '构造连接字串
            ConnString = "provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DbPath & _
            "; Extended Properties=Excel 8.0;"
            Try
                Connection.ConnectionString = ConnString
                Connection.Open()
            Catch ex As Exception
                ret = False
                DisplayError(ex)
            End Try
        End If
        ExcelConnetion = ret '返回函数结果
    End Function

    Public Sub New()
        '初始化类的成员变量
        Connection = New OleDbConnection
        Adapter = New OleDbDataAdapter
        Command = New OleDbCommand
        CommandBuilder = New OleDbCommandBuilder

        DeleteCommand = New OleDbCommand
        InsertCommand = New OleDbCommand
        SelectCommand = New OleDbCommand
        UpdateCommand = New OleDbCommand

        Command.Connection = Connection
        DeleteCommand.Connection = Connection
        InsertCommand.Connection = Connection
        SelectCommand.Connection = Connection
        UpdateCommand.Connection = Connection

    End Sub

    Protected Overrides Sub Finalize()
        '如果数据库处于连接状态，则关闭连接
        If Connection.State = ConnectionState.Open Then
            Try
                Connection.Close()
            Catch ex As Exception
                DisplayError(ex)
            End Try
        End If
    End Sub

End Class
微澜-
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
第二章 ADO.NET基础
wnamej的博客
04-05 2488
一、 ADO.NET概述 概述： ADO.NET是微软公司提供的一款全新的数据库访问技术，是在.NET Framework中负责数据访问的类库集； 可以将ADO.NET比喻为数据库应用程序和数据源之间的桥梁，提供了一个面向对象的数据访问架构； 优势： 可以在数据源完全断开连接的情况下，对数据进行更新修改，再将数据的更新情况返回至数据源。这样可以减少由于数据库连接过多而引起服务器资源被占用的情况。 ...
ADO.NET 概述
wanglinjian001的博客
02-03 2058
ADO.NET 概述
ADO.net的基本用法
m0_60939437的博客
09-02 766
ADO.net的基本用法
学习笔记：ADO.NET详解
KeithRong的博客
04-02 3287
了解ADO.NET 什么是ADO.NET呢？其实ADO.NET就是C#应用程序访问数据库的一个中间组件。 那ADO.NET又是由哪些部分组成呢？来看下面这张图 根据上面的图，来捋一遍数据库CRUD的流程： 连接数据库 >>> SqlCommand对数据库进行操作 >>> 查询出的数据放到DataSet中（若是增删改只是返回受影响记录条数，即返回int） &g...
学习ADO.NET技术（一）
热门推荐
u014677855的博客
08-10 1万+
一、什么是ADO.NET ADO.NET是.NET Framework中的一个模块，一个重要组件，用于建立应用程序和数据源之间的连接。 简单的讲，ADO.NET是一组允许.Net开发人员使用的标准的，结构化的，与数据交互的技术。数据源可以是应用程序创建在内存中的数据，也可以是与应用程序分离的，存储在存储区域的数据，比如SQL Server和XML文件等。 ...
ADONET数据库操作对象
08-06 220
要建立ADO.NET与数据库的连接，需要使用SqlConnection对象来实现，该对象需要一个数据库连接字符串。
AdoNet数据库操作代码.zip
06-04
本文将深入探讨标题为"AdoNet数据库操作代码.zip"的资源，它包含了C#源代码，帮助开发者了解和掌握如何在C#中使用ADO.NET进行数据库交互。 首先，我们来看"AdoNetSecondDay"这个文件，它很可能代表了学习ADO.NET的...
adonet数据库访问技术.doc
10-03
在本文中，我们将深入探讨如何使用ADO.NET进行数据库访问，并关注其关键组件和操作步骤。 首先，要使用ADO.NET，你需要引入`System.Data.SqlClient`命名空间，这个命名空间包含了与SQL Server数据库交互所需的所有...
C#和ADONET操作数据库
05-23
本篇将详细讲解如何使用C#和ADONET来操作数据库，包括选择数据提供程序、建立数据库连接、执行SQL命令以及使用DataReader和DataSet。 首先，数据提供程序的选择至关重要。ADONET支持多种数据库系统，如SQL Server...
ADONet数据库存取.pptx
09-27
ADONet数据库存取.pptx
Winform之Adonet数据库快速编程Demo
01-10
ADO.Net数据库操作综合起来就是增删改查。 详细操作使用见http://blog.csdn.net/zyq5945/article/details/8491198
adonet基础示例分享(adonet连接数据库)
09-04
ADO.NET 是 .NET Framework 中用于访问关系型数据库的重要组件，它提供了一组全面的类库，使得开发者能够方便地创建、管理和操作数据库。在本文中，我们将深入探讨如何使用 ADO.NET 连接数据库，主要关注 SQL Server...
C# 第二章 ADO.NET基础
芜湖博客
10-22 2867
ADO.NET：是微软公司提供的数据库访问技术，在.NET Framework中负责数据访问的类库集，用于支持 MYSQL和XML等数据源进行访问，客户端可以连接数据源、并查询、添加、删除和更新等数据，是程序和数据源之间的桥梁，提供了面向对象的数据访问架构。：专为数据操作设计的组件，用于处理不同的数据源，支持访问特定的数据库、执行SQL命令和检索结果，它在应用程序和数据源之间搭建了一座桥梁。：专为独立于所有数据源的数据访问而设计，它在支持ADO.NET的断开式、分布式数据方案中起着至关重要。
数据库开发及ADO.net函数
qhx556的专栏
11-13 517
字符串函数 lLEN() ：计算字符串长度（字符的个数。） ldatalength();//计算字符串所占用的字节数，不属于字符串函数。 lLOWER() 、UPPER () ：转小写、大写 lLTRIM()：字符串左侧的空格去掉 lRTRIM () ：字符串右侧的空格去掉 lLTRIM(RTRIM('         bb        ')) lLEFT()、RIGHT(
ado.net操作数据库基本函数，封装成SqlHelper类
Mr lebron的博客
10-12 1295
将基础的操作封装成SqlHelper namespace sanceng.DAL {     public static class SqlHelper     {         private static string constr = ConfigurationManager.ConnectionStrings["service"].ConnectionString;
C# .NET ADO.NET介绍和如何使用
qq_44695769的博客
06-12 3306
我们看一下visual studio 里面ADO.NET文件ADO.NET是实体数据模型，是ORM对象文件。ORM,即Object-Relational Mapping(对象关系映射)。ORM实际上是对业务的简化。就想面向过程到面向对象的转变一样。ORM也是同样的想法。就是数据库存储的表和我程序的对象完全一致。这样存入和取出也方便无映射关系fill:#333;程序对应关系转化数据库增删改查程序对应关系转化数据库有映射关系fill:#333;程序数据库增删改查程序数据库。
c#笔记-ADO.NET的使用
最新发布
weixin_63658665的博客
01-06 2910
本文总结了c#操作数据库的技术-ADO.NET的使用方式及一些简单的使用例子
ADO.NET
weixin_42974146的博客
03-02 9652
ADO.NET是微软 . NET数据库的访问构建，主要提供一个面向对象的数据库访问构建，用来开发数据库应用程序。 ADO.NET主要包括; Connection：主要用来提供数据库的连接功能 Command 对象用于返回数据，修改数据，运行存储过程以及发送或检索参数信息的数据库命令。 DataReader对象通过 Command对象提供从数据库检索信息的功能，它以一种只读的，向前的，快速的，方...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

微澜-

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值