Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 25-04-2006
nenufer nenufer is offline
Miembro
 
Registrado: dic 2005
Posts: 90
Poder: 19
nenufer Va por buen camino
problemas con tinifile

Hola!! A ver si alguien puede ayudarme xq estoy un poco perdida. Tengo un archivo .ini en el q e introduido :
Archivo = D:\projects\silvia\Datos.gdb
user_name = SYSDBA
password = masterkey
lc_ctype = ISO8859_1

Mi problema es q yo desd delphi tengo un procedimiento q crea este archivo y lo lee y el resultado lo almaceno en vbles globales. Tengo un Ibdatabase y el la propiedad de los parametros le introduzco las vbles anteriores y al abrir el ibdatabase es cuando me da un error 'DBP constant (user_name) is unknow.

Os doy el codigo para q me entendais mejor xq no se si me e explicado bien.

Código Delphi [-]
procedure Tform1.Iniconfig();
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create( ChangeFileExt(Application.ExeName, '.INI' ));
  try
    with ini do
    begin
      //El dtbdatos es el ibdatabase
      Dtbdatos1.DatabaseName := ReadString('Origen','Archivo','');
      user1 := ReadString('Origen','user_name','');
      password1 := ReadString('Origen','password','');
      tipo1 := readString('Origen','lc_ctype','');
    end;
    {DtbDatos2.Params.Add(Ini.ReadString('Destino','user_name',''));
    DtbDatos2.Params.Add(Ini.ReadString('Destino','user_name',''));}
  finally
    Ini.Free;
  end;
end;

procedure TForm1.abrirD1();
begin
  DtbDatos1.DefaultTransaction := TrnDatos1;
  DtbDatos1.LoginPrompt := false;
  Dtbdatos1.Params.Add('user_name = ' + user1);
  DtbDatos1.Params.Add('password = ' + password1);
  DtbDatos1.Params.Add('lc_ctype = ' + tipo1);
  DtbDatos1.Open;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  iniconfig();
  abrirD1();
end;

Muxas Gracias;

Última edición por dec fecha: 25-04-2006 a las 17:43:48.
Responder Con Cita
  #2  
Antiguo 25-04-2006
nenufer nenufer is offline
Miembro
 
Registrado: dic 2005
Posts: 90
Poder: 19
nenufer Va por buen camino
Hola otra vez! Ya tengo el fallo, lo digo x si a alguien le interesa deciros en lo q he fallado. Bueno en el procedimiento abrirD1() dond pone

Código Delphi [-]
Dtbdatos1.Params.Add('user_name = ' + user1);

y en los siguientes params el igual debe estar junto.

Código Delphi [-]
Dtbdatos1.Params.Add('user_name=' + user1);

gracias de todas formas

Última edición por dec fecha: 25-04-2006 a las 19:35:06.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 05:04:26.


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
Copyright 1996-2007 Club Delphi