使用Visual Basic和CSV文件更新Access数据库

Question

我试图用CSV文件中的数据更新数据库。我已经得到了这么多，但我不知道该从哪里去：

Dim web As String 
web = "http://download.finance.yahoo.com/d/quotes.csv?s=" & Symbol & "&f=a" 

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

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

Answer 1

您可以对数据库执行sql。以下是从VBA中取得的一些笔记：

scn = "[Text;FMT=Delimited;HDR=Yes;DATABASE=Z:\Docs]" 

''Example for simply importing from the CSV 
ssql = "SELECT * INTO TestTable FROM " & scn & ".[Test.CSV] " 

''Example for updating an existing table 
ssql = "INSERT INTO TestTable SELECT * FROM " & scn & ".[Test.CSV] " _ 
& "WHERE ID Not In (SELECT ID FROM TestTable)" 

''dao.dbFailOnError = 128 

dbs.Execute ssql, dbFailOnError