Ler varias tabelas

[Alvaro Fragoso 0]

Olá pessoal

Estou iciciando o uso do MySql e já apareceu a primeira duvida

Abaixo segue uma procedure escrita em vb.net para ler uma tabela, o problema é que só consigo abrir uma consulta por vez.

Obs. No access eu consigo deixar varias consultas aberta.

Public Sub LerTabelas()

Dim conexao As MySqlConnection = New MySqlConnection
Dim comando As MySqlCommand = New MySqlCommand
Dim adapter As MySqlDataAdapter = New MySqlDataAdapter
Dim tabela As DataTable = New DataTable

conexao.ConnectionString = "SERVER=localhost; USER ID = root; password = sim ; database = venda"

consulta = "Select * From estoque"

conexao.Open()

comando.Connection = conexao

comando.CommandText = consulta

adapter.SelectCommand = comando

Dim LeitorEstoque As MySqlDataReader = comando.ExecuteReader

'Até este ponto tudo bem, posso ler os dados da tabela estoque utilizando o LeitorEstoque

'No entanto se eu fizer uma consulta a outra tabela cadastro de clientes por exmplo.
'eu preciso fechar o LeitorEstoque, veja abaixo a minha tentativa de ler a tabela cadastro de clientes

consulta = "Select * From cadastro"

comando.CommandText = consulta

adapter.SelectCommand = comando

Dim LeitorCadastro As MySqlDataReader = comando.ExecuteReader

End Sub

Bom, eu gostaria de saber se existe alguma maneira de eu manter mais de uma consulta aberta.

[Jorge Seiki Teruya 15]

E se colocar outro nome da variavel?

 

Em vez de consulta = "Select * From cadastro"

consulta_cadastro = "Select * From cadastro"

[Alvaro Fragoso 0]

Não foi desta forma mas a sua ajuda me iluminou, eu inclui "comando.dispose" após o "comando.ExecuteReader"

 

Obrigado