MS Access和VB.NET中

Question

我如何從我的數據庫中的值在VB 我有了柱PerMinute和列金額

表命名價格我要訪問量列中的數據訪問。並使其顯示在AmountToPay.text上，請幫助我與數據庫新。

Answer 1

編輯：

Imports System.Data.OleDb 

Module Module1 

    Sub Main() 

     Dim conStringBuilder = New OleDbConnectionStringBuilder 
     With conStringBuilder 
      ' Path to your access db 
      .DataSource = "c:\db.accdb" 

      ' For .mdb files change provider to Jet 
      ' .Provider = "Microsoft.Jet.OLEDB.4.0" 
      .Provider = "Microsoft.ACE.OLEDB.12.0" 
     End With 

     Dim con As New OleDbConnection(conStringBuilder.ConnectionString) 

     Dim cmdString = "SELECT * FROM Rates" 
     Dim cmd As New OleDbCommand(cmdString, con) 

     Dim dTable As New DataTable 
     Try 
      con.Open() 
      Dim dReader = cmd.ExecuteReader 
      dTable.Load(dReader) 
     Catch ex As Exception 
      MsgBox(ex.Message) 
     End Try 

     ' Output to console. 
     ' You may want to set AmountToPay.text here 
     For Each dRow In dTable.Rows 
      Console.WriteLine(dRow("PerMinute")) 
      Console.WriteLine(dRow("Amount")) 
      Console.WriteLine() 
     Next 

    End Sub 

End Module