• Miércoles 21 de Abril de 2021, 16:26

Autor Tema:  Error  (Leído 1421 veces)

vankul

  • Nuevo Miembro
  • *
  • Mensajes: 6
    • Ver Perfil
Error
« en: Miércoles 3 de Mayo de 2017, 23:19 »
0
Hola, tengo el siguiente código:
Código: [Seleccionar]
const AnsiString DataBaseFileName = "\socis.abs";
Código: [Seleccionar]
void __fastcall TForm1::FormCreate(TObject *Sender)
{
ABSDatabase1->DatabaseFileName = ExtractFilePath(Application->ExeName) + DataBaseFileName;
ABSDatabase1->Open();
ABSQuery1->Close();
ABSQuery1->Open();
}
En el ordenador donde programo funciona bien pero en otro me dice que no encuentra la base de datos y en teoría está dentro del directorio del programa pero no hay manera.
Alguna sugerencia gracias.

chenech

  • Miembro activo
  • **
  • Mensajes: 96
    • Ver Perfil
Re:Error
« Respuesta #1 en: Jueves 4 de Mayo de 2017, 01:17 »
0
Prueba a poner doble \ en DaBaseFileName.

Un saludo.

vankul

  • Nuevo Miembro
  • *
  • Mensajes: 6
    • Ver Perfil
Re:Error
« Respuesta #2 en: Martes 21 de Noviembre de 2017, 22:05 »
0
Nada, sigue fallando.

chenech

  • Miembro activo
  • **
  • Mensajes: 96
    • Ver Perfil
Re:Error
« Respuesta #3 en: Jueves 23 de Noviembre de 2017, 14:50 »
0
Prueba a poner un ShowMessage despues de asignar a ABSDatabase1->DatabaseFileName a ver que tienes ahí.

Un saludo.