EOF no VB.NET

[Armanrulla 0]

Olá galera

 

como faço para fazer um while not rs.EOF no vb.net eu tenho o seguinte código

 

'Selecionado informações cadastradas no banco access LOCAL			Dim cmd_acLoc As New OleDbCommand("SELECT * FROM pesqNEISLA", ConexaoAccess)			Dim DA_acLoc As New OleDbDataAdapter			Dim DS_acLoc As New DataSet			Dim valor As String			DA_acLoc.SelectCommand = cmd_acLoc 'execute			DA_acLoc.Fill(DS_acLoc, "PNL_LOCAL") 'preeencher o datset		[B]	While Not DS_acLoc.SOCORRO			End While[/B]

PLEASE HELP !!!

 

http://forum.imasters.com.br/public/style_emoticons/default/blush.gif Armando

[rOcKLoCo 0]

cara, usando o DataAdapter, você terá q usar o DataSet, q tem as propriedades Tables, Rows e Cols... então você terá q percorrer essas propriedades usando For ou For Each... e recuperar os valores, ou caso você for somente ler dados da base de dados, você pode usar o DataReader, q é muito parecido com o Recordset do ADO... só q ele é somente forward-only e read-only... ou seja, você somente consegue ler os dados e não consegue voltar um registro, ou ir pro primeiro, ou pro ultimo, q nem no ADO... ok?falows

[cacfs 0]

Se for só pra ler os dados o DataReader resolve bem.

 

While drTeste.Read	  'executa acçõesEnd While

[Wallace.NET 0]

'Selecionado informações cadastradas no banco access LOCAL			Dim cmd_acLoc As New OleDbCommand("SELECT * FROM pesqNEISLA", ConexaoAccess)			Dim DA_acLoc As New OleDbDataAdapter			Dim DS_acLoc As New DataSet			Dim valor As String			DA_acLoc.SelectCommand = cmd_acLoc 'execute			DA_acLoc.Fill(DS_acLoc, "PNL_LOCAL") 'preeencher o datset		[B]	While Not DS_acLoc.SOCORRO			End While[/B]

 

Cara, depois do Fill você faz o seguinte:

 

Dim objTable As DataTable

objTable = DS_acLoc.Tables("PNL_LOCAL")

 

Assim você criou uma tabela e preencheu com o dataset.

 

Aí você faz:

 

Dim objRow As DataRow

 

If objTable.Rows.Count > 0 Then

 

For Each objRow In objTable.Rows

 

Next

 

End If

 

você verifica os itens com objRow.Item("NomedaColuna")

 

Espero ter ajudado!