Comment retourner l'enregistrement à partir d'une requête d'accès

Question

Je suis en train de terminer un projet dans lequel une série de listes déroulantes sera reliée à un seul enregistrement de base de données. Je vais prendre 5 valeurs et j'ai le code suivant. enregistrements qu'il est retourné afin que je puisse utiliser les valeurs trouvées dans le tableau n'ont pas été saisis par l'utilisateur, dans une partie ultérieure du code?

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

Après avoir ouvert une connexion et que votre requête vous devez faire ceci:

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