Cita:
Empezado por chino150
Código Delphi [-]
Zquery1.SQL.Add ('INSERT into users(u_username,u_rolecode,u_password)VALUES("User", "Role", AES_ENCRYPT("Pass", "abcd"))');
ok este codigo esta funcionando pero no guarda la información escrita en txtName y cbRole lo que está guardando es User y role |
Yo creo que todos dábamos por sentado que estabas poniendo sólo ejemplos y no los datos reales. Si la sentencia de arriba es exactamente la que tienes en tu programa, pues claro que lo que va a guardar en la base de datos son las palabras textuales "User" y "Role". Para pasar los valores de tus controles txtName y cbRole debes poner tu sentencia con parámetros:
Código Delphi
[-]
Zquery1.SQL.Add ('INSERT into users(u_username,u_rolecode,u_password) VALUES(:user, :role, AES_ENCRYPT("Pass, "abcd"))');
y sustituirlos por los valores de los controles:
Código Delphi
[-]
Zquery1.ParamByName('user').AsString := txtName.Text;
Zquery1.ParamByName('role').AsString := cbRole.Text;
LineComment Saludos