vb 读取sql server

VB 访问sql Server

Private Sub btn_Conn_Click(sender As Object, e As EventArgs) Handles btn_Conn.Click
    Dim strconnection As String = "Server=.\SQLEXPRESS;database=cypZHGDX2ScadaDB;uid=sa;pwd=123"
    Dim sql As String = "Select * from ActualData"
    Dim conn As SqlConnection = New SqlConnection(strconnection)
    Dim cmd As SqlCommand = New SqlCommand(sql, conn)
    Dim da As SqlDataAdapter = New SqlDataAdapter(cmd)
    Dim ds As DataSet = New DataSet()
    Try
        conn.Open()
        da.Fill(ds)
    Catch ex As Exception
        MessageBox.Show("读取失败" + ex.Message)
    Finally
        conn.Close()
    End Try

    dgv.DataSource = ds.Tables(0)
End Sub

---

需要引入 sql和sqlclient 以及连接语句