在 Visual Basic 6 中使用 Adodb 記錄集到 VB.net

Question

下面的代碼適用於visual basic 6.0，我希望在vb.net中使用此代碼，我認為在vb.net（Visual Studio 2013）上鍵入時出現錯誤

我的 MS Access 數據庫的名稱是“mySavings.accdb”

表名是“Balance”，有一個名為“Balance”的字段

我已經添加了參考：Microsoft ActiveX Data Objects 6.0 Library Microsoft ActiveX Data Objects Recordset 6.0 Library 提前謝謝你，這是我在 VB6 中的代碼

Public con As New ADODB.Connection
Public rs As New ADODB.Recordset    
    Dim Amount as String
Private Sub Form_Load()
    con.Open ("Provider=Microsoft.ACE.OLEDB.12.0; Data Source = C:\Users\MyPc\Documents\Visual Studio 2013\Projects\mySavings.accdb")

    rs.Open ("Select * from Savings"), con, 3, 2
    Amount = rs!Balance
    msgbox("You're current balance is " & Amount)
End Sub

Answer 1

自從我使用 ADODB 已經有一段時間了，但我認為這應該有效

Amount = rs.Fields.Item("Balance").Value

Answer 2

是 rs!Balance 代碼不對。 另一種方法來做到這一點：

    Dim Amount As Decimal = rs.Fields("Balance").Value