下面的代码正在使用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
答案 0 :(得分:3)
自从我使用ADODB以来已经有一段时间了,但我认为这应该有效
Amount = rs.Fields.Item("Balance").Value
答案 1 :(得分:0)
那是rs!平衡的代码段不正确。 另一种方法是:
Dim Amount As Decimal = rs.Fields("Balance").Value