在Visual Basic 6到VB.net中使用Adodb记录集

时间:2013-12-23 02:24:01

标签: vb.net visual-studio vb6 ado.net

下面的代码正在使用visual basic 6.0,我希望这个代码在vb.net中使用,我认为在vb.net上输入时会出现错误(Visual Studio 2013)

我的MS访问数据库的名称是“mySavings.accdb”

表格名称为“Balance”,其中包含名为“Balance”的字段

我已经添加了参考: Microsoft ActiveX数据对象6.0库 Microsoft ActiveX数据对象Recordset 6.0库 提前谢谢,这是我在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

2 个答案:

答案 0 :(得分:3)

自从我使用ADODB以来已经有一段时间了,但我认为这应该有效

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

答案 1 :(得分:0)

那是rs!平衡的代码段不正确。 另一种方法是:

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