Vericar Si Existe Usuario

Hola tengo un problema en una aplicacion q estoy haciendo para guardar datos en sql server 2000 usando visual 6.0 no se como verificar si el usuario existe al momento de agregarlo te envio el codigo del boton guardar
Private Sub Command1_Click()
rst.Open "SELECT * FROM Data_Usuarios", cnn, adOpenDynamic, adLockOptimistic
If Text1.Text = vbNullString Or _
Text2.Text = vbNullString Or _
Text3.Text = vbNullString Or _
Text4.Text = vbNullString Or _
Text5.Text = vbNullString Or _
Text6.Text = vbNullString Or _
Text7.Text = vbNullString Or _
Text8.Text = vbNullString Then
errormsg = MsgBox("Debe Llenar Todos Los Campos", vbCritical, "Error")
Exit Sub
End If
rst.AddNew
rst("Usuario") = Text1.Text
rst("Contraseña") = Crypt(Text2.Text)
rst("Nombre") = Text3.Text
rst("Apellido") = Text4.Text
rst("Contra_Seguridad") = Crypt(Text5.Text)
rst("Num_Carnet") = Text6.Text
rst("Unidad") = Text7.Text
rst("Nom_Equipo") = Text8.Text
rst.Update
Text1.Text = vbNullString
Text1.Enabled = True
Text2.Text = vbNullString
Text2.Enabled = True
Text3.Text = vbNullString
Text3.Enabled = True
Text4.Text = vbNullString
Text4.Enabled = True
Text5.Text = vbNullString
Text5.Enabled = True
Text6.Text = vbNullString
Text6.Enabled = True
Text7.Text = vbNullString
Text7.Enabled = True
Text8.Text = vbNullString
Text8.Enabled = True
infomsg = MsgBox("Usuario Creado", vbExclamation, "Usuario Creado")
rst.Close
Form2.List1.Clear
rst.Open "SELECT * FROM Data_Usuarios ORDER BY Usuario", cnn, adOpenDynamic, adLockOptimistic
Do Until rst.EOF = True
Form2.List1.AddItem rst.Fields(0)
rst.MoveNext
Loop
rst.Close
End Sub
1

1 respuesta

Respuesta
1
Espero que te encuentres muy bien, sabes que tomé tu código y le agregué algunas cositas, cuentame si te sirve..
Private Sub Command1_Click()
rst.Open "SELECT * FROM Data_Usuarios", cnn, adOpenDynamic, adLockOptimistic
If Text1.Text = vbNullString Or _
Text2.Text = vbNullString Or _
Text3.Text = vbNullString Or _
Text4.Text = vbNullString Or _
Text5.Text = vbNullString Or _
Text6.Text = vbNullString Or _
Text7.Text = vbNullString Or _
Text8.Text = vbNullString Then
errormsg = MsgBox("Debe Llenar Todos Los Campos", vbCritical, "Error")
Exit Sub
End If
*****************************
Verifico si el usuario existe
asumo que una personaa puede tener sólo una contraseña de usuario
***************************
Rst.find "Num_carnet='" & Trim(text6.text) & "'"
If rst.eof=False then
msgbox "usuario ya existe, debo editar (update)"
else 'puedo guardar
rst.AddNew
rst("Usuario") = Text1.Text
rst("Contraseña") = Crypt(Text2.Text)
rst("Nombre") = Text3.Text
rst("Apellido") = Text4.Text
rst("Contra_Seguridad") = Crypt(Text5.Text)
rst("Num_Carnet") = Text6.Text
rst("Unidad") = Text7.Text
rst("Nom_Equipo") = Text8.Text
rst.Update
Text1.Text = vbNullString
Text1.Enabled = True
Text2.Text = vbNullString
Text2.Enabled = True
Text3.Text = vbNullString
Text3.Enabled = True
Text4.Text = vbNullString
Text4.Enabled = True
Text5.Text = vbNullString
Text5.Enabled = True
Text6.Text = vbNullString
Text6.Enabled = True
Text7.Text = vbNullString
Text7.Enabled = True
Text8.Text = vbNullString
Text8.Enabled = True
infomsg = MsgBox("Usuario Creado", vbExclamation, "Usuario Creado")
rst.Close
Form2. List1. Clear
Rst. Open "SELECT * FROM Data_Usuarios ORDER BY Usuario", cnn, adOpenDynamic, adLockOptimistic
Do Until rst.EOF = True
Form2.List1.AddItem rst.Fields(0)
rst.MoveNext
Loop
rst.Close
end if
revisalo ya??

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas