![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#4
|
|||
|
|||
|
casi lo mismo.....
Que tal???
Pues bien yo he hecho esto y me ha funcionado muy bien: procedure TForm1.FormCreate(Sender: TObject); Var TClientes, TProducto, TRepartidores: TTable; begin If Not Session.IsAlias('Carnic') Then Begin Try Session.AddStandardAlias('Carnic',ExtractFilePath(ParamStr (0)),'PARADOX'); Session.SaveConfigFile; Except MessageDlg('No se puede crear la Base de Datos',mtError,[mbOK],0); Exit; End; End; Espero te sea util, buen día. |
|
|
|