Como ficaria esse código feito em VB6 em VB.NET???
19/01/2007
0
´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
´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
Curtir tópico
+ 0
Responder
Posts
12/02/2007
Ciniro
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
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
Responder
Clique aqui para fazer login e interagir na Comunidade :)
