VB.NET 連接數據庫

  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