Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

 
 
Herramientas Buscar en Tema Desplegado
  #8  
Antiguo 05-08-2007
Avatar de sitrico
[sitrico] sitrico is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Caracas, Venezuela
Posts: 295
Poder: 24
sitrico Va por buen camino
Normalmente se hace en el datamodule (tambien lo puedes hacer en el módulo principal)

Basta con que incluyas estas líneas al formulario principal:

Código Delphi [-]
session.PrivateDir := DirectorioPrivadoUsuario;
session.netfiledir := DirectorioComunCompartido;

Puedes encontrar algo mas en el foro si buscas PrivateDir ó NetFileDir

Te mando un ejemplo de un datamodule que uso.

Código Delphi [-]
//STANDARD, ORACLE, SYBASE, or INTERBASE
// Leer la configuracion de la base de datos
Ini := tIniFile.Create(ChangeFileExt(Application.ExeName)+'.ini');
Try
   // Bases de Datos PARADOX
   Session.PrivateDir := Ini.ReadString('BaseDeDatos','PrivateDir','');
   Session.NetFileDir := Ini.ReadString('BaseDeDatos','NetFileDir','');
   If (Session.NetFileDir <> '') and Not(DirectoryExists(Session.NetFileDir)) then
      MessageBoxStr('No se encontró el directorio de datos del Sistema.  '+
                    'Si se trata  de  una  configuración de red es posible '+
                    'que el servidor este apagado o no tenga acceso a la '+
                    'carpeta o unidad correspondiente. Si es una instalación '+
                    'local puede tener algún problema de configuración. Puede '+
                    'Verificar en Herramientas -> Opciones -> Bases de Datos '+
                    'la configuración actual','Error');
   DBMain.DriverName := Ini.ReadString('BaseDeDatos','DriverName','STANDARD');
   j := Ini.ReadInteger('BaseDeDatos','ParamsCount',3)-1;
   For i := 0 To j do
      DbMain.Params.Add(Ini.ReadString('BaseDeDatos','Params'+FullZero(i,3),''));
Finally
   Ini.Free;
   End;
// Conectar la Base de Datos
DbMain.Connected := True;

DbMain : TDatabase;
los parametros son los "por defecto" de paradox

Tomado del INI

Cita:
[BaseDeDatos]
DriverName=STANDARD
ParamsCount=3
NetFileDir=C:\MIS PROYECTOS\IVA32\DATA
PrivateDir=C:\MIS PROYECTOS\IVA32\
Params000=PATH=C:\MIS PROYECTOS\IVA32\DATA
Params001=DEFAULT DRIVER=PARADOX
Params002=ENABLE BCD=FALSE
__________________
Sitrico
Responder Con Cita
 



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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Terminal server dape Varios 5 15-05-2007 06:37:10
BDE En terminal server keys Conexión con bases de datos 3 24-10-2005 12:19:20
Problemas con Terminal Server Win 2003 Server El_Perrito Windows 0 16-10-2004 19:53:45
Por que instancias en sql server 2000 uper MS SQL Server 1 10-07-2004 19:11:06
Terminal Server chavi Varios 4 24-06-2003 21:31:54


La franja horaria es GMT +2. Ahora son las 18:37:02.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi