ADO + Listbox

[jeansantos]

A ideia seria ler os items da Listbox1 (um-a-um) e executar uma query (Campo1) e apresentar o resultado (Campo2) da mesma na Listbox3.

Por algum motivo, só é apresentado na Listbox3 o resultado do ultimo item da Listbox1.

O código é o seguinte:

       Dim con As New OleDb.OleDbConnection

	con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=|DataDirectory|\db.mdb"

	For Each item In ListBox1.Items

		Dim cmd_sel As OleDb.OleDbCommand = con.CreateCommand()

		cmd_sel.CommandText = "SELECT Campo1, Campo2 FROM Tabla WHERE Campo1 LIKE '" & item & "'"

		Dim oledbReader As OleDb.OleDbDataReader

		con.Open()

		oledbReader = cmd_sel.ExecuteReader()

		Do While oledbReader.Read()

			ListBox3.Items.Add(oledbReader.Item(1))

		Loop

		con.Close()

		oledbReader.Close()

	Next

Alguem me sabe explicar o porque disto acontecer?

Edited December 4, 2012 at 09:11 PM by jeansantos

[thoga31]

Primeiro que tudo, usa as tags code para encaixar o código. Na minha assinatura está o link para as instruções de como o fazer com cor.

De seguida, não sou especialista em query's nem nada disso, mas suspeito que o problema ande por aqui (posso estar enganado):

ListBox3.Items.Add(oledbReader.Item(1))

[jeansantos]

Done

[jeansantos]

Não, a query não me parece que seja o problema. Nesse caso não funcionaria para o resultado que obtenho.