Querys y BDE
Me quiero conectar a una BD Interbase desde delphi 7 mediante un query y al momento de ejecutarle dice que no se ha definido el user name y el password y es cierto nose ha definido, como puedo asignarle esos valores de k manera urgene gracias por su ayuda:confused: :(
atte: geovany desde el fuerte sinaloa mexico |
Tienes que pasarle el nombre de usuario y contraseña a la Base de Datos a través de la propiedad Params antes de ejecutar el método "Open" y desactivar la propiedad LoginPrompt para que los tome automáticamente:
with Query1 do begin Database.LoginPrompt := False; Database.Params.Values['USER NAME'] := 'SYSDBA'; Database.Params.Values['PASSWORD'] := 'masterkey'; Open; end; |
me marca un error de access violation at address
no se k sea o si tenga que configurar otra cosa o escribir algo no se:confused: :(
al momento de cambiar el login prompt marca el error lo comente y en la siguiente linea marca lo mismo |
Pues haría falta saber con que componentes estás trabajando (archivo .dfm) para darte una mejor respuesta
|
aqui esta
object Form1: TForm1
Left = 191 Top = 133 Width = 696 Height = 480 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object Button1: TButton Left = 128 Top = 128 Width = 83 Height = 33 Caption = 'Button1' TabOrder = 0 OnClick = Button1Click end object Query1: TQuery DatabaseName = 'mc' SQL.Strings = ( 'select * from usuario') Left = 120 Top = 24 end end la bd mc es el alias |
Tendrías que hacer lo siguiente:
1) Agregar un componente Database1 (por ejemplo) con las siguientes propiedades: AliasName := 'mc'; LoginPrompt := False; 2) Ejecutar el siguiente código (está corregido): Database1.Params.Values['USER NAME'] := 'SYSDBA'; Database1.Params.Values['PASSWORD'] := 'masterkey'; Query1.Open; |
Nada
:confused: object Form1: TForm1
Left = 191 Top = 133 Width = 696 Height = 480 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object Button1: TButton Left = 128 Top = 128 Width = 83 Height = 33 Caption = 'Button1' TabOrder = 0 OnClick = Button1Click end object Query1: TQuery DatabaseName = 'mc' SQL.Strings = ( 'select * from usuario') Left = 120 Top = 24 end object Database1: TDatabase AliasName = 'mc' DatabaseName = 'call_center.gdb' LoginPrompt = False SessionName = 'Default' Left = 56 Top = 16 end end el dfm quedo asi y me sigue marcando el mismo error |
Listo.....
:p muchas gracias frudolp por tu ayuda la verdad es que no lo resolvi como me dijiste pero me fue de gran ayuda para encontrarlo aqui a continuacion te muestro el codigo que generé y funciona
QueryLogin.DatabaseName := database1.DatabaseName; database1.Open; QueryLogin.ParamByName('nombre').Value := nombre.Text; QueryLogin.ParamByName('pass').Value := password.Text; QueryLogin.Open; if QueryLogin.Bof and QueryLogin.Eof then WebApplication.ShowMessage('Nombre de usuario o contraseña incorrecta') else WebApplication.ShowMessage('Bienvenido a mi sistema'); si te fijaste estoy desarrollando en intraweb bueno pues muchas gracias |
La franja horaria es GMT +2. Ahora son las 06:09:34. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi