[ create a new paste ] login | about

Link: http://codepad.org/JVpy00gW    [ raw code | fork ]

Plain Text, pasted on Jan 11:
1
2
3
4
5
6
7
8
9
10
11
    Dim web As String = "http://download.finance.yahoo.com/d/quotes.csv?s=" & Symbol & "&f=a"

    Dim request As Net.HttpWebRequest = Net.HttpWebRequest.Create(web)
    Dim response As Net.HttpWebResponse = request.GetResponse()
    Dim sr As New IO.StreamReader(response.GetResponseStream())
    Dim sourcecode As String = sr.ReadToEnd()

    ' Database connection
    Dim daoengine As New DAO.DBEngine()
    Dim dbs As DAO.Database = daoengine.OpenDatabase("Project.mdb")
    Dim rst As DAO.Recordset


Create a new paste based on this one


Comments: