VB.NET 连接数据库

关注

原创最新推荐文章于 2026-07-08 13:50:12 发布 651 阅读 AI 写同款· GEO 优化 ›

VB.NET连接Oracle数据库 VB.NET连接Oracle数据库老菜鸟，不在江湖多年，刀已锈迹斑斑，唯胜记忆中的影约的招式。最近有些项目需求，准备自己操刀，只好重新磨刀，俗话说得好，磨刀不误砍柴功嘛。首先查阅大量资料和书籍，大量略读，重点精读，边读边实践。下载安装VS2019、Oracle11G等过程倒是平淡未出问题，在连接数据库过程中遇到了问题，几经周折才解决，但对深层次原因还是不甚了解，请大神指教。问题描述项目中添加了引用，用VB.NET编写代码如下： Imports System.Data.OracleClient Pub 阅读详情

app.config

   <connectionStrings>
       <add name="tdbaconn" connectionString="Data Source=服务器IP;Initial Catalog=数据库名;User ID=sa;Password=密码"
            providerName="System.Data.SqlClient" />

    </connectionStrings>

code 调用

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim result As New DataSet()

        Dim conn As New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("tdbaconn").ConnectionString.ToString())

        conn.Open()
        Dim cmd As New SqlCommand("select * from item where item_no like 'A%'", conn)
        Dim da As New SqlDataAdapter(cmd)
        da.Fill(result, "item")


        Dim bs As New BindingSource()
        bs.DataMember = "item"
        bs.DataSource = result
        Me.DGV2.DataSource = bs

        Dim MyTable As DataTable = result.Tables(0)
        If MyTable.Rows.Count > 0 Then
            TextBox1.Text = MyTable.Rows.Count
        End If

    End Sub