の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