Cita:
Option Explicit
Private mNombre As String
Private mMod1 As Boolean
Private mContra As Long
Private mMod2 As Boolean
Private mTipo As Long
Private mMod3 As Boolean
Private mNombre As String
Private mMod1 As Boolean
Private mContra As Long
Private mMod2 As Boolean
Private mTipo As Long
Private mMod3 As Boolean
Cita:
Private Sub Cargar_Usuarios()
Dim nod As Node
Dim iCont As Long
Dim rs As New ADODB.Recordset
Dim sIcon As String
tv.Nodes.Clear
Set nod = tv.Nodes.Add(, , "maina", "Administradores", "folder", "folder")
nod.Expanded = True
Set nod = tv.Nodes.Add(, , "mainb", "Usuarios comunes", "folder", "folder")
nod.Expanded = True
rs.Open "SELECT * FROM usuarios", nc, adOpenDynamic, adLockOptimistic
While Not rs.EOF
iCont = iCont + 1
If (rs!usu_tipo = 0) Then
'es administrador
Set nod = tv.Nodes.Add("maina", tvwChild, "adm" & iCont, rs!usu_nombre, "adm", "adm")
ElseIf (rs!usu_tipo = 1) Then
'es usuarios comun
Set nod = tv.Nodes.Add("mainb", tvwChild, "nor" & iCont, rs!usu_nombre, "use", "use")
End If
nod.Tag = rs!usu_password
rs.MoveNext
DoEvents
Wend
rs.Close
Set rs = Nothing
End Sub
Dim nod As Node
Dim iCont As Long
Dim rs As New ADODB.Recordset
Dim sIcon As String
tv.Nodes.Clear
Set nod = tv.Nodes.Add(, , "maina", "Administradores", "folder", "folder")
nod.Expanded = True
Set nod = tv.Nodes.Add(, , "mainb", "Usuarios comunes", "folder", "folder")
nod.Expanded = True
rs.Open "SELECT * FROM usuarios", nc, adOpenDynamic, adLockOptimistic
While Not rs.EOF
iCont = iCont + 1
If (rs!usu_tipo = 0) Then
'es administrador
Set nod = tv.Nodes.Add("maina", tvwChild, "adm" & iCont, rs!usu_nombre, "adm", "adm")
ElseIf (rs!usu_tipo = 1) Then
'es usuarios comun
Set nod = tv.Nodes.Add("mainb", tvwChild, "nor" & iCont, rs!usu_nombre, "use", "use")
End If
nod.Tag = rs!usu_password
rs.MoveNext
DoEvents
Wend
rs.Close
Set rs = Nothing
End Sub