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

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()