VB.NETを使用してアクセスレコードセットを更新する

Question

VB.NETを使用してMS-Accessレコードセットを更新するにはどうすればよいですか？

私は基本的にidが1のフィールドを更新し、 'ticker'のフィールド値は 'UKX'です。

更新するデータは「値」フィールドにあり、パブリックサブから来ます。 dLastは、現在の値を更新するために入力が必要なデータです。

Function update_db() 
    ' need to update the database 
    Dim daoengine As DAO.DBEngine 
    Dim dbs As DAO.Database 
    Dim rst As DAO.Recordset 
    daoengine = New DAO.DBEngine 
    dbs = daoengine.OpenDatabase("Project.mdb") 
    rst = dbs.OpenRecordset("ftsedata", DAO.RecordsetTypeEnum.dbOpenDynaset) 
    rst.Edit() 
    ' what do I do here to edit the field "value" where ticker=UKX ? 
    rst.Close() 
    dbs.Close() 
End Function 

Public Sub getftsestock() 
    Dim sAPIUrl As String = "http://www.google.com/ig/api?stock=UKX" 
    Dim oDocument As XDocument = XDocument.Load(sAPIUrl) 
    Dim dLast As Double = CDbl(GetData(oDocument, "last")) 
End Sub 

Answer 1

まず、しかしこの

rst = dbs.OpenRecordset("select * from ftsedata where (ticker='UKX')", DAO.RecordsetTypeEnum.dbOpenDynaset) 
    while not rsy.eof 
     rst.Edit 
     rst("value").value = getftsestock() 
     rst.update 

     rst.movenext 
    wend 

    rst.Close() 

のように、あなたの更新を行う続いので

Public function getftsestock() as double 
    Dim sAPIUrl As String = "http://www.google.com/ig/api?stock=UKX" 
    Dim oDocument As XDocument = XDocument.Load(sAPIUrl) 
    getftsestock = CDbl(GetData(oDocument, "last")) 
End Sub 

のような機能にあなたのサブを変更します。私は現在、コードを持っている

これを行う方がはるかに効率的です。

daoengine.Execute "Update ftsedata SET value='" & getftsestock() & "' WHERE ticker='UKX'" 

Answer 2

データベースオブジェクトのExecuteメソッドを呼び出す必要があります。

daoengine.Execute "Update TableName set Col1=Value1 Where Ticker='UKX'" 

あなたはVB.NETではなくDAOのADO.NET Oledbプロバイダを使用する必要があります。