Como ficaria esse código feito em VB6 em VB.NET???

.NET

19/01/2007

´regLinhasDe é o meu recordset preenchido
´os outros parametros começados por ´str´ são minhas campos strings


regLinhasDe.Find(´LinBarraDe=´ & strLinhaDe2)
If regLinhasDe.EOF Then
regLinhasDe.MoveFirst()
regLinhasDe.Find(´LinBarraDe=´ & strLinhaDe2)
End If
If regLinhasDe.EOF Then
regLinhasDe.MoveFirst()
regLinhasDe.Find(´LinBarraDe=´ & strLinhaPara2)
regLinhasDe.Find(´LinBarraPara=´ & strLinhaDe2)
regLinhasDe.Find(´LinCircuito=´ & strCircuito2)
Else
regLinhasDe.Find(´LinBarraPara=´ & strLinhaPara2)
If regLinhasDe.EOF Then
regLinhasDe.MoveFirst()
regLinhasDe.Find(´LinBarraDe=´ & strLinhaPara2)
regLinhasDe.Find(´LinBarraPara=´ & strLinhaDe2)
regLinhasDe.Find(´LinCircuito=´ & strCircuito2)
Else
regLinhasDe.Find(´LinCircuito=´ & strCircuito2)
End If
End If


strLinCodigo2 = regLinhasDe!Lincodigo


Ciniro

Ciniro

Curtidas 0

Respostas

Ciniro

Ciniro

19/01/2007

Pessoal como ninguém respondeu, acabei achando a resposta me virando aqui. Vai que alguém precisa.

A dica é usar a clausula Select() do datatable, por exemplo:

Dim dt as new datatable()
dt = ´SUA TABELA´
dim dr() as datarow = dt.Select(´SUA PESQUISA´)

pronto agora basta usar o dr para navegar pelos registros trazidos na pesquisa.
Outra forma seria usar o componente DataView, trabalhando em cima dos métodos Find() e FindRows().

dim dv as new dataview = (´SUA TABELA´)
dim dr() as datarow = dv.Find(´id=2´) ou então dv.FindRows(´clausula´)

Valeu pessoal e até mais!

Ciniro Nametala


GOSTEI 0
POSTAR