RECORDSET ADO DUVIDAS

AZORSCA 07/08/2012 09:04:51
#407353

Bom dia, amigos desenvolvedores.


Me deparei com um problema que ja tem um tempo que estou quebrando a cabeça para tentar uma solução, porém, até o momento não consegui.

Gostaria se possível da ajuda de vocês.

O caso é o seguinte?

Tenho um formulário onde é passado aos usuários as permissões do sistema, como por exemplo, as funcionalidades que é liberada para determinado nível de acesso. Este sistema funcionava em DAO e estamos migrando para ADO com SqlServer Express 2008 R2.

As permissões são marcadas em um List Box e cada item do list é ligado a um campo na base de dados, em determinada parte do fonte onde ele verifica cada item e atribui sua ligação com o banco em um laço de repetição FOR.


Deixarei para análise o fonte antigo com DAO e como eu estou tentando com ADO.

Código que estou tentando ADO:
For a = 1 To List1.ListCount
List1.ListIndex = a - 1
CpUsi = [Ô]Usi[Ô] & Trim(Str(List1.ItemData(List1.ListIndex)))
Lis1.Selected(a - 1) = oRecOpF.Fields([Ô]Usi[Ô] & Trim(Str(List1.ItemData(List1.ListIndex))))
Next

Código antigo com DAO:

[ô] For a = 1 To List1.ListCount

[ô] List1.ListIndex = a - 1
[ô] CpUsi = [Ô]Usi[Ô] & Trim(Str(List1.ItemData(List1.ListIndex)))
[ô] List1.Selected(a - 1) = Data2.Recordset(CpUsi).value

[ô] Next


Agradeço a ajuda de vocês. Obrigado

Azor Freire.