Claves de Usuario
Tengo una aplicación para guardar nombre y contraseña de usuarios y quiero evitar q cuando los text esten vacios guarden el la base de datos, estoy usando el siguente código pero no me da algunos errores:
Dim sql As String
If nombre.text = "" then
Msgbox " La clave es requerida"
If pass.text = "" then
Msgbox " La clave es requerida"
Else
sql = "INSERT INTO logins values ('" & nombre.Text & "','" & pass.Text & "', 'user')"
nombre.Text = ""
pass.Text = ""
End If
rs.Open sql, cnn
MsgBox "Usuario añadido"
@nette : )
Saludos
Dim sql As String
If nombre.text = "" then
Msgbox " La clave es requerida"
If pass.text = "" then
Msgbox " La clave es requerida"
Else
sql = "INSERT INTO logins values ('" & nombre.Text & "','" & pass.Text & "', 'user')"
nombre.Text = ""
pass.Text = ""
End If
rs.Open sql, cnn
MsgBox "Usuario añadido"
@nette : )
Saludos
prueba con
if nombre.text= "" or pass.text="" then
msgbox "Error la clave es requerida"
else
sql=INSERT INTO logins values ('" & nombre.Text & "','" & pass.Text & "', 'user')"
msgbox "usuario añadido"
rs.Open sql, cnn
end if
if nombre.text= "" or pass.text="" then
msgbox "Error la clave es requerida"
else
sql=INSERT INTO logins values ('" & nombre.Text & "','" & pass.Text & "', 'user')"
msgbox "usuario añadido"
rs.Open sql, cnn
end if
prueba con
if trim(nombre.text)= "" or trim(pass.text)="" then
msgbox "Error la clave es requerida"
else
sql=INSERT INTO logins values (\'" & nombre.Text & "\',\'" & pass.Text & "\', \'user\')"
msgbox "usuario añadido"
rs.Open sql, cnn
end if
if trim(nombre.text)= "" or trim(pass.text)="" then
msgbox "Error la clave es requerida"
else
sql=INSERT INTO logins values (\'" & nombre.Text & "\',\'" & pass.Text & "\', \'user\')"
msgbox "usuario añadido"
rs.Open sql, cnn
end if
Hola, si entendi bien la pregunta, seria de esta manerea.
Dim sql As String
If nombre.text = Empty Or pass.text = Empty Then
Msgbox " La clave es requerida"
Else
sql = "INSERT INTO logins values ('" & nombre.Text & "','" & pass.Text & "', 'user')"
nombre.Text = ""
pass.Text = ""
rs.Open sql, cnn
MsgBox "Usuario añadido"
End if
Existe tambien la funcion IsEmpty pero no le tengo mucha confianza, este te debuelve True o False.-
Saludos y espero que te sea de utilidad
Anibal Lecter
Dim sql As String
If nombre.text = Empty Or pass.text = Empty Then
Msgbox " La clave es requerida"
Else
sql = "INSERT INTO logins values ('" & nombre.Text & "','" & pass.Text & "', 'user')"
nombre.Text = ""
pass.Text = ""
rs.Open sql, cnn
MsgBox "Usuario añadido"
End if
Existe tambien la funcion IsEmpty pero no le tengo mucha confianza, este te debuelve True o False.-
Saludos y espero que te sea de utilidad
Anibal Lecter
