Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Querys y BDE (https://www.clubdelphi.com/foros/showthread.php?t=15071)

geovany 08-10-2004 19:14:46

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

frudolph 08-10-2004 19:57:31

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;

geovany 08-10-2004 20:05:12

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

frudolph 08-10-2004 20:09:17

Pues haría falta saber con que componentes estás trabajando (archivo .dfm) para darte una mejor respuesta

geovany 08-10-2004 20:14:53

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

frudolph 08-10-2004 20:36:02

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;

geovany 08-10-2004 20:43:39

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

geovany 14-10-2004 18:44:49

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