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)
-   -   Como cambiar la conexion a SQLServer en runtime? (https://www.clubdelphi.com/foros/showthread.php?t=34865)

edalmasso 24-08-2006 01:46:09

Como cambiar la conexion a SQLServer en runtime?
 
1 Archivos Adjunto(s)
Buenas foro!!,

Tengo una pregunta sobre la ficha de Conexión para SQL Server:

"Utilice la ficha Conexión para especificar cómo conectar a los datos de Microsoft SQL Server.
La ficha Conexión depende del proveedor y sólo muestra las propiedades de conexión que necesita el proveedor de OLE DB para Microsoft SQL Server. "

Esa ficha, lo que quiero es poder mostrar la pantalla que usa todo programador para configurar una conexión a SQLServer.
Cargar la conexión y que se pueda modificar.
Lo que no puedo lograr es saber que clase es la ficha.

Por las dudas, en el zip esta la imagen de la ficha que quiero mostrar.

Saludos!!

poliburro 27-08-2006 05:33:48

Esto te servirá
 
Esta rutina hace lo que necesitas mi buen amigo

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
 Const
   LCSPATHUDLCONFIG = 'c:\Tem-des\edgram\';
 Var
   LsUDlConfig: WideString; //Almacena la cadena de conexion
   LStlDTLCont: TStringList; //Almacena el contenido del DataLink
begin
  Try
     LStlDTLCont := TStringList.Create;
     //Cargo la configuración almacenada
     If FileExists(LCSPATHUDLCONFIG + 'Test.udl') Then
       LStlDTLCont.LoadFromFile(LCSPATHUDLCONFIG + 'Test.udl');
     //llamo a la ventana de configuración de la cadena de conexión
     LsUDlConfig := PromptDataSource(Self.Handle,LStlDTLCont.Text);
     //Asigno la nueva configuración y grabo los cambios
    If Length(Trim(LsUDlConfig)) > 0 Then
      LStlDTLCont.Text := LsUDlConfig;
    LStlDTLCont.SaveToFile(LCSPATHUDLCONFIG + 'Test.udl');
  Finally
    LStlDTLCont.free;
  End;
end;

edalmasso 28-08-2006 01:07:37

Muchas gracias por la respuesta, probe la función pero hay un método que no puedo acceder, lo habrás creado vos?, es : PromptDataSource( ... )
Y no me aparece en la ayuda ni en Internet buscando.

Saludos

poliburro 28-08-2006 05:08:39

La función PromptDataSource se encuentra en la unidad ADODB

Por cierto yo uso delphi 7, no se cuanta compatibilidad haya con versiones anteriores o nuevas de delphi.

Suerte

edalmasso 28-08-2006 05:34:45

Querido, anduvo espectacular!!, muchas gracias.
Lo hice andar en D2006 en un proyecto .NET sin problemas.
Saludos.
Eduardo

PD: gracias x la respuesta tan rápida.


La franja horaria es GMT +2. Ahora son las 21:37:23.

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