Comunidad Gambas-es

Tengo una base de datos MySQL con una tabla que contiene nombres de usuarios y password. En el programa tengo un formulario para logearse y necesito saber como puedo comprobar ambos datos con la base MySQL y que si no concuerdan envie un mensaje de error.

Gracias de ante mano!

Hola

Lo correcto es que se guarden los password encriptados con MD5. Eso es por ejemplo lo que hace este foro. De esa manera incluso los que tienen acceso a la base de datos no tienen acceso a los password. Solo lo sabes tú.

Para guardar el usuario y la clave
Pongamos que el usuario está escrito en text1.text y la clave en text2.text

El día que quieres autentificar pongamos que el usuario está escrito en text1 y la clave en text2. Al darle al boton login ocurre lo siguiente

Lo mas normal es que a cada usuario le corresponda un código de manera que en vez de los print devuelves un código o nada.

Si esa función devuelve 0 es que el usuario no era válido. Si devuelve otra cosa es el código de usuario que he definido de tipo long en mi caso

utiliza una conexion de root, con password, en el mysql y despues, conectas normalmente,a la tabla de passwords

dos textbox
uno para usuario
otro para clave
un boton
y esto dentro del boton

create una bbdd , llamada mybbdd
con una tabla usuarios, que tenga dos campos(usuario y clave)
(y create una clave para root en el mysql)

PRIVATE $hConn AS Connection



PUBLIC SUB Button1_click()
dim i as integer
$hConn = NEW Connection
WITH $hConn
.Type = "mysql"
.Host = "localhost"
.Login = "root"
.Password = "laclavequequieras"
.Name = "mybbdd"
END WITH
$hConn.Open

rData = $hConn.Exec("select usuario,clave from usuarios")

i = 0
WHILE rData.Available = TRUE
if rData!Usuario=textbox1.text and rdata!clave=textbox2.text then
message.info("correcto")
i=1
endif
rdata!movenext
wend
if i=0 then message.info("incorrecto")

end


ojo, habra algún error sintáctico, lo he escrito de memoria.

creo que con esto, tienes suficiente

Gracias por su respuesta!
Estoy usando el siguiente código y cuando ejecuto el programa me dice "Null Object"

yo diría que tu conexión no está conectada a una base de datos

Gracias me sirvio de Mucho... Estuve Probando varios pero a ninguno le veia la Vuelta
El mio quedo de esta Forma