Claves de Usuario

anette
28 de Junio del 2004
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

H?or
28 de Junio del 2004
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

hector
28 de Junio del 2004
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

hector
28 de Junio del 2004
estas trabajando en visual basic?? parece mas codigo de asp

aniballecter
28 de Junio del 2004
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

anette
28 de Junio del 2004
Gracias, ahoar si me funciono.

@nette : )
Saludos