アクセスクエリからレコードを返す方法

Question

現在、一連のコンボボックスが1つのデータベースレコードにリンクされているプロジェクトを完成させています。5つの値を取ります。次のコードがあります。レコードが返されたので、テーブルの値を使用することができます。これは、コードの後半部分でユーザーが入力したものではありませんか？あなたが接続を開き、クエリを持っていた後

myConnection.ConnectionString = My.Forms.Main.connString 
myConnection.Open() 
Dim match As String = "SELECT CBrand, CModel, CSpec,BodyStyle,CNoOfDoors, CEngineSize, COTR, TransmissionCost 
FROM CarFigures WHERE CBrand = cbBrand.text 
CModel = cbModel.text 
CSpec = cbSpec.text 
CNoOfDoors = cbNoOfDoors.text 
EngineSize = cbEngineSize.text" 

Answer 1

は、あなたがこれを実行する必要があります。

myConnection.ConnectionString = My.Forms.Main.connString 
myConnection.Open() 
Dim match As String = "SELECT CBrand, CModel, ..." 

' define data adapter, data set, fill data set then loop' 
Dim da As New OleDb.OleDbDataAdapter 
Dim ds As New Dataset 
Dim row As System.Data.DataRow 
Dim count As Integer 
da.SelectCommand = New OleDb.OleDbCommand(match, myConnection) 
da.Fill(ds, "myTable") 
count = ds.Tables("myTable").Rows.Count 

While count > -1 
    row = ds.Tables("myTable").Rows.Item(count) 
    ' this is where you take row.Item(0) and do something with it... ' 
    count = count - 1 
End While 

myConnection.Close()