前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >VB.NET 连接oracle数据库

VB.NET 连接oracle数据库

作者头像
一线编程
发布2019-12-02 21:02:49
3.8K0
发布2019-12-02 21:02:49
举报
文章被收录于专栏:办公魔盒

大家都知道,开发中连接oracle数据库比较麻烦,要什么客户端之类啊!而且要引用一堆类库,今天我们用Oracle.ManagedDataAccess.Client 连接只需引用一个dll即可!

一,首先我们要引用ManagedDataAccess

代码语言:javascript
复制
Imports Oracle.ManagedDataAccess.Client

二,连接部分代码

代码语言:javascript
复制
Public Class Cls_oracle
    Private Shared O_Inst As Cls_oracle = Nothing  ''接口
    Private Shared Cn_Str As String = Nothing  ''连接字符
    Private Shared host As String  ''服务器地址
    Private Shared ser_name As String  ''服务器名称
    Private Shared user_name As String  ''用户名
    Private Shared pwd As String  ''用户密码

    ''' <summary>
    ''' 初始化变量
    ''' </summary>
    Private Sub New()
        host = "10.28.0.0"
        ser_name = "vbxym"
        user_name = "vbxym"
        pwd = "vbb"
    End Sub

    ''' <summary>
    ''' 初始化Oracle类
    ''' </summary>
    ''' <returns></returns>
    Public Shared Function GetInstance() As Cls_oracle
        Try
            If O_Inst Is Nothing Then
                O_Inst = New Cls_oracle
            End If
            Cn_Str = $"Data Source=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST={host})(PORT=1521))(CONNECT_DATA=(SERVICE_NAME={ser_name})));Persist Security Info=True;User ID={user_name};Password={pwd};"
            Return O_Inst
        Catch ex As Exception
            Return Nothing
        End Try
    End Function

三,执行sql命令部分代码

代码语言:javascript
复制
''' <summary>
    ''' 执行SQL语句
    ''' </summary>
    ''' <param name="sql">SQL语句</param>
    ''' <param name="parameters">参数可以为空</param>
    ''' <returns></returns>
    Public Function ExecuteNonQuery(ByVal sql As String, ParamArray parameters As OracleParameter()) As Integer
        Try
            Using conn As New OracleConnection(Cn_Str)
                conn.Open()
                Using cmd As OracleCommand = conn.CreateCommand()
                    cmd.CommandText = sql
                    cmd.Parameters.AddRange(parameters)
                    Return cmd.ExecuteNonQuery()
                End Using
            End Using
        Catch ex As Exception
            Return 0
        End Try
    End Function

四,执行查询部分代码返回一个datatable

代码语言:javascript
复制
''' <summary>
    ''' 执行查询语句返回DataTable
    ''' </summary>
    ''' <param name="sql">SQL语句</param>
    ''' <param name="parameters">参数可以为空</param>
    ''' <returns></returns>
    Public Function ExecuteDataTable(ByVal sql As String, ParamArray parameters As OracleParameter()) As DataTable
        Try
            Using conn As New OracleConnection(Cn_Str)
                conn.Open()
                Using cmd As OracleCommand = conn.CreateCommand()
                    cmd.CommandText = sql
                    cmd.Parameters.AddRange(parameters)
                    Using adapter As New OracleDataAdapter(cmd)
                        Dim datatable As New DataTable()
                        adapter.Fill(datatable)
                        Return datatable
                    End Using
                End Using
            End Using
        Catch ex As Exception
            Return Nothing
        End Try
    End Function

End Class
本文参与 腾讯云自媒体同步曝光计划,分享自微信公众号。
原始发表:2019-12-01,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 办公魔盒 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档