如何从访问查询中返回记录

Question

我目前正在完成一个项目，其中一系列组合框将有望链接回单个数据库记录，我将采用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()