NAO CARREGA A TREEVIEW
Firebird + VB6
Consegui salvar os valores dos campos selecionados de uma treeview no banco de dados..
Agora usando a mesma lógica que usei para salvar, para carregar e permitir a edição, os campos ficam em branco... o que fiz de errado..
A função que uso é esta
Esta função uso no form_Active, e consegue carregar todos os campos de texto, porém o treeview (trvUsuarios) fica totalmente em branco.. (nao gera-se erros).
Como faço para carregar?
Consegui salvar os valores dos campos selecionados de uma treeview no banco de dados..
Agora usando a mesma lógica que usei para salvar, para carregar e permitir a edição, os campos ficam em branco... o que fiz de errado..
A função que uso é esta
Citação:
Private Sub CarregarDados()
Dim SQLfu As String
Dim CRITERIOfu As String
CRITERIOfu = txtCodigo.Text
SQLfu = [Ô]SELECT * FROM LOGIN WHERE LOGIN.Codigo = [Ô] & CLng(CRITERIOfu) & [Ô][Ô]
RSAcesso.Open SQLfu, CNN, adOpenDynamic, adLockOptimistic
With RSAcesso
If (.BOF = True And .EOF = True) Then
.Close
MsgBox [Ô]Não foi localizado nenhum usuário com o código selecionado. Tente novamente![Ô], vbCritical, [Ô]GWorks Softs[Ô]
Exit Sub
Else
txtCodFun.Text = !Codfunc
txtFuncionario.Text = !Funcionario
txtUsuario.Text = !Usuario
txtSenha.Text = !Senha
For F = 1 To Me.trvUsuarios.Nodes.Count
Me.trvUsuarios.Nodes(F).Checked = RSAcesso(trvUsuarios.Nodes(F).Key)
Next
End If
.Close
End With
End Sub
Esta função uso no form_Active, e consegue carregar todos os campos de texto, porém o treeview (trvUsuarios) fica totalmente em branco.. (nao gera-se erros).
Como faço para carregar?
+- isso:
Private Sub CarregarDados()
On Error GoTo TrataErro
Dim SQLfu As String
Dim CRITERIOfu As String
CRITERIOfu = txtCodigo.Text
SQLfu = [Ô]SELECT * FROM LOGIN WHERE LOGIN.Codigo = [Ô] & CLng(CRITERIOfu) & [Ô][Ô]
RSAcesso.Open SQLfu, CNN, adOpenDynamic, adLockOptimistic
With RSAcesso
If (.BOF = True And .EOF = True) Then
.Close
MsgBox [Ô]Não foi localizado nenhum usuário com o código selecionado. Tente novamente![Ô], vbCritical, [Ô]GWorks Softs[Ô]
Exit Sub
Else
txtCodFun.Text = !Codfunc
txtFuncionario.Text = !Funcionario
txtUsuario.Text = !Usuario
txtSenha.Text = !Senha
For F = 1 To Me.trvUsuarios.Nodes.Count
[ô]Me.trvUsuarios.Nodes(F).Checked = RSAcesso(trvUsuarios.Nodes(F).Key)
[ô]Adicionando itens ao nó de clientes
If trvUsuarios.Nodes(F).Key = [Ô]ADDCLI[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !ADDCLI
End If
If trvUsuarios.Nodes(F).Key = [Ô]CONCLI[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !CONCLI
End If
If trvUsuarios.Nodes(F).Key = [Ô]EDITCLI[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !EDITCLI
End If
If trvUsuarios.Nodes(F).Key = [Ô]DELCLI[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !DELCLI
End If
[ô]Adicionando itens ao nó de Produtos
If trvUsuarios.Nodes(F).Key = [Ô]ADDPRO[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !ADDPRO
End If
If trvUsuarios.Nodes(F).Key = [Ô]CONPRO[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !CONPRO
End If
If trvUsuarios.Nodes(F).Key = [Ô]EDITPRO[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !EDITPRO
End If
If trvUsuarios.Nodes(F).Key = [Ô]DELPRO[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !DELPRO
End If
[ô]Adicionando itens ao nó de Funcionários
If trvUsuarios.Nodes(F).Key = [Ô]ADDFUN[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !ADDFUN
End If
If trvUsuarios.Nodes(F).Key = [Ô]CONFUNC[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !CONFUNC
End If
If trvUsuarios.Nodes(F).Key = [Ô]EDITFUN[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !EDITFUN
End If
If trvUsuarios.Nodes(F).Key = [Ô]DELFUNC[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !DELFUNC
End If
[ô]Adicionando itens ao nó de Vendas
If trvUsuarios.Nodes(F).Key = [Ô]ADDVENDAS[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !ADDVENDAS
End If
If trvUsuarios.Nodes(F).Key = [Ô]CONVENDAS[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !CONVENDAS
End If
If trvUsuarios.Nodes(F).Key = [Ô]EDITVENDAS[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !EDITVENDAS
End If
If trvUsuarios.Nodes(F).Key = [Ô]DELVENDAS[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !DELVENDAS
End If
[ô]Adicionando itens ao nó de Contas Receber
If trvUsuarios.Nodes(F).Key = [Ô]ADDCR[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !ADDCR
End If
If trvUsuarios.Nodes(F).Key = [Ô]CONCR[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !CONCR
End If
If trvUsuarios.Nodes(F).Key = [Ô]EDITCR[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !EDITCR
End If
If trvUsuarios.Nodes(F).Key = [Ô]DELCR[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !DELCR
End If
[ô]Adicionando itens ao nó de Contas Pagar
If trvUsuarios.Nodes(F).Key = [Ô]ADDCP[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !ADDCP
End If
If trvUsuarios.Nodes(F).Key = [Ô]CONCP[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !CONCP
End If
If trvUsuarios.Nodes(F).Key = [Ô]EDITCP[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !EDITCP
End If
If trvUsuarios.Nodes(F).Key = [Ô]DELCP[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !DELCP
End If
[ô]Adicionando itens ao nó de login
If trvUsuarios.Nodes(F).Key = [Ô]ULOGIN[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !ULOGIN
End If
Next
End If
.Close
End With
Exit Sub
TrataErro:
MsgBox [Ô]Erro ao carregar dados do usuário![Ô], vbCritical, [Ô]GWorks Softs[Ô]
End Sub
Private Sub CarregarDados()
On Error GoTo TrataErro
Dim SQLfu As String
Dim CRITERIOfu As String
CRITERIOfu = txtCodigo.Text
SQLfu = [Ô]SELECT * FROM LOGIN WHERE LOGIN.Codigo = [Ô] & CLng(CRITERIOfu) & [Ô][Ô]
RSAcesso.Open SQLfu, CNN, adOpenDynamic, adLockOptimistic
With RSAcesso
If (.BOF = True And .EOF = True) Then
.Close
MsgBox [Ô]Não foi localizado nenhum usuário com o código selecionado. Tente novamente![Ô], vbCritical, [Ô]GWorks Softs[Ô]
Exit Sub
Else
txtCodFun.Text = !Codfunc
txtFuncionario.Text = !Funcionario
txtUsuario.Text = !Usuario
txtSenha.Text = !Senha
For F = 1 To Me.trvUsuarios.Nodes.Count
[ô]Me.trvUsuarios.Nodes(F).Checked = RSAcesso(trvUsuarios.Nodes(F).Key)
[ô]Adicionando itens ao nó de clientes
If trvUsuarios.Nodes(F).Key = [Ô]ADDCLI[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !ADDCLI
End If
If trvUsuarios.Nodes(F).Key = [Ô]CONCLI[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !CONCLI
End If
If trvUsuarios.Nodes(F).Key = [Ô]EDITCLI[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !EDITCLI
End If
If trvUsuarios.Nodes(F).Key = [Ô]DELCLI[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !DELCLI
End If
[ô]Adicionando itens ao nó de Produtos
If trvUsuarios.Nodes(F).Key = [Ô]ADDPRO[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !ADDPRO
End If
If trvUsuarios.Nodes(F).Key = [Ô]CONPRO[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !CONPRO
End If
If trvUsuarios.Nodes(F).Key = [Ô]EDITPRO[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !EDITPRO
End If
If trvUsuarios.Nodes(F).Key = [Ô]DELPRO[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !DELPRO
End If
[ô]Adicionando itens ao nó de Funcionários
If trvUsuarios.Nodes(F).Key = [Ô]ADDFUN[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !ADDFUN
End If
If trvUsuarios.Nodes(F).Key = [Ô]CONFUNC[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !CONFUNC
End If
If trvUsuarios.Nodes(F).Key = [Ô]EDITFUN[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !EDITFUN
End If
If trvUsuarios.Nodes(F).Key = [Ô]DELFUNC[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !DELFUNC
End If
[ô]Adicionando itens ao nó de Vendas
If trvUsuarios.Nodes(F).Key = [Ô]ADDVENDAS[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !ADDVENDAS
End If
If trvUsuarios.Nodes(F).Key = [Ô]CONVENDAS[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !CONVENDAS
End If
If trvUsuarios.Nodes(F).Key = [Ô]EDITVENDAS[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !EDITVENDAS
End If
If trvUsuarios.Nodes(F).Key = [Ô]DELVENDAS[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !DELVENDAS
End If
[ô]Adicionando itens ao nó de Contas Receber
If trvUsuarios.Nodes(F).Key = [Ô]ADDCR[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !ADDCR
End If
If trvUsuarios.Nodes(F).Key = [Ô]CONCR[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !CONCR
End If
If trvUsuarios.Nodes(F).Key = [Ô]EDITCR[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !EDITCR
End If
If trvUsuarios.Nodes(F).Key = [Ô]DELCR[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !DELCR
End If
[ô]Adicionando itens ao nó de Contas Pagar
If trvUsuarios.Nodes(F).Key = [Ô]ADDCP[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !ADDCP
End If
If trvUsuarios.Nodes(F).Key = [Ô]CONCP[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !CONCP
End If
If trvUsuarios.Nodes(F).Key = [Ô]EDITCP[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !EDITCP
End If
If trvUsuarios.Nodes(F).Key = [Ô]DELCP[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !DELCP
End If
[ô]Adicionando itens ao nó de login
If trvUsuarios.Nodes(F).Key = [Ô]ULOGIN[Ô] Then
Me.trvUsuarios.Nodes(F).Checked = !ULOGIN
End If
Next
End If
.Close
End With
Exit Sub
TrataErro:
MsgBox [Ô]Erro ao carregar dados do usuário![Ô], vbCritical, [Ô]GWorks Softs[Ô]
End Sub
carregou apenas o último cehck da list
Consegui..
O meu código não está errado, apenas era o código que criava os campos em conflito com o código que carregava
Ficou assim
Form_active
Call CarregaNivel
Call Carrega Dados
End sub
O meu código não está errado, apenas era o código que criava os campos em conflito com o código que carregava
Ficou assim
Form_active
Call CarregaNivel
Call Carrega Dados
End sub
Fianna te darei os pontos pela ajuda..
Tópico encerrado , respostas não são mais permitidas