SQLSRV003 - やするん＠Wiki

C# や　VB から実行

Private Sub GetDataFromDB(ByVal strNo As String)
    Dim connStr As String = "Server=localhost\\SQLExpress;Database=test_db;uid=yamada;pwd=tarou"
    Dim sql As String = "SELECT * FROM ITEM_DATA WHERE NO = @NO"
    Dim ds As New DataSet()

    Using conn As New SqlConnection(connStr)
        Using sda As New SqlDataAdapter(sql, conn)
            sda.SelectCommand.Parameters.AddWithValue("@NO", strNo)

            Try
                conn.Open()
                sda.Fill(ds, "ItemTable")
            Catch ex As SqlException
                Console.WriteLine(ex.ToString())
            End Try
        End Using
    End Using
    DataGridView1.DataSource = ds.Tables("ItemTable")
End Sub