【发布时间】：2013-03-01 15:05:19
【问题描述】：
我有以下包含股票代码的数组：Public Shared tickerArray() As String = {"GOOG", "AAPL", "V", "MSFT"}。我需要使用这个循环：For Each tickerValue In Form1.tickerArray 将每个股票代码的 csv 文件加载到 Microsoft Access 中的一个大表中。 csv 文件位于"http://ichart.yahoo.com/table.csv?s=" & tickerValue。我还需要将相应的股票代码加载到从 csv 文件导入的表格的每一行中，以使每一行都是唯一的。所以数据库中的列应该是：“Ticker, Date, Open, High, Low, Close, Volumne & Adj Close”。
我找到了有关将本地 csv 文件加载到 Access 的信息，但我似乎无法弄清楚如何通过 vb.net 将 csv 文件从 Internet 加载到 Access。
另外，我需要经常更新这个表，所以我只需要从 csv 文件中插入新的唯一行。没有重复。
有什么建议吗？谢谢！
更新： 这是我到目前为止的代码。
Imports System.Data
Imports System.Data.OleDb
Imports System.Net
Imports System.IO
Public Class Form1
Public Shared tickerArray() As String = {"GOOG", "AAPL", "V", "MSFT"}
Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
Dim myConnection As OleDbConnection
Dim DBpath As String =
Dim sConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & DBpath & ";Persist Security Info=True"
myConnection = New OleDbConnection(sConnectionString)
myConnection.Open()
Dim strURL As String
Dim strBuffer As String
For Each tickerValue In Form1.tickerArray
'Creates the request URL for Yahoo.
strURL = "http://ichart.yahoo.com/table.csv?s=" & tickerValue
strBuffer = RequestWebData(strURL)
'Create array.
Dim sReader As New StringReader(strBuffer)
Dim List As New List(Of String)
Do While sReader.Peek >= 0
List.Add(sReader.ReadLine)
Loop
Dim lines As String() = List.ToArray
sReader.Close()
For Each Line In lines.Skip(1)
MsgBox(Line)
Dim myInsert As String = TextToInsert(Line, tickerValue)
Dim cmd As New OleDbCommand(myInsert, myConnection)
cmd.ExecuteNonQuery()
Next
Next
End Sub
Function TextToInsert(ByVal inputString As String, ByVal ticker As String)
Dim Dt As String = inputString.Split(",")(0).Trim
Dim Open As String = inputString.Split(",")(1).Trim
Dim High As String = inputString.Split(",")(1).Trim
Dim Low As String = inputString.Split(",")(1).Trim
Dim Close As String = inputString.Split(",")(1).Trim
Dim Volume As String = inputString.Split(",")(1).Trim
Dim Adj_Close As String = inputString.Split(",")(1).Trim
Dim SQLstr As String
SQLstr = "INSERT INTO Historical (Ticker, Date, Open, High, Low, Close, Volume, Adj Close) " & "VALUES (" & "'" & ticker & "','" & Dt & "','" & Open & "','" & High & "'," & "'" & Low & "','" & Close & "','" & Volume & "','" & Adj_Close & "'" & ")"
Return SQLstr
End Function
Private Function RequestWebData(ByVal pstrURL As String) As String
Dim objWReq As WebRequest
Dim objWResp As WebResponse
Dim strBuffer As String
'Contact the website
objWReq = HttpWebRequest.Create(pstrURL)
objWResp = objWReq.GetResponse()
'Read the answer from the Web site and store it into a stream
Dim objSR As StreamReader
objSR = New StreamReader(objWResp.GetResponseStream)
strBuffer = objSR.ReadToEnd
objSR.Close()
objWResp.Close()
Return strBuffer
End Function
End Class
我收到错误代码“OleDBException 未处理。INSERT INTO 语句中的语法错误。”在线cmd.ExecuteNonQuery()请帮忙！
【问题讨论】：
-
先将csv文件下载成文件，再将文件加载到数据库中。
-
@LarsTech 我必须这样做吗？我希望我可以跳过它并直接进入数据库。下载文件似乎是在浪费时间和空间。谢谢。
-
它不一定是“物理”文件，但您仍然需要下载流，完成后，将这些结果推送到数据库中。这是一个两步过程。
-
@LarsTech 好的，听起来不错。然后我认为下载流没有问题。 (
strURL = "http://ichart.yahoo.com/table.csv?s=" & tickerValuestrBuffer = RequestWebData(strURL)Dim sReader As New StringReader(strBuffer)) 我只是不知道将该文件插入数据库的语法。 -
日期是关键字，你必须把它放在括号里。另外，查找sql注入，因为你有很多。学习使用参数。
标签： database vb.net ms-access csv