المشاركات : 75
المواضيع 26
:
: 0
الإنتساب : Dec 2011
شكرا أخي عبد الجليل نجحت معي الطريقة البرمجية للإتصال بقاعدة البيانات
المشاركات : 20
المواضيع 6
:
: 0
الإنتساب : Dec 2008
هناك طريقة أخرى و هي استعمال ini files
و اليك الكود الذي استعمله أنا
كود :
var ini:TIniFile; ppa:string;
begin
Application.Initialize;
ini := Tinifile.Create(ExtractFileDir(Application.exename)+'\config.ini
if not FileExists(ExtractFileDir(Application.exename)+'\config.ini then
begin
MessageDlg('Cet application n''a pas pu démarrer , veuillez vérifier que :'+#13+#13+
'le fichier des paramètres (Config.ini) existe dans le répertoire de l''application...!!!.',mterror,[mbyes],0);
Application.Terminate ;
Exit;
end else
ppa:=ini.ReadString('pro','key0',);
if not FileExists(ppa)THEN
begin
MessageDlg('Cet application n''a pas pu démarrer , veuillez vérifier que :'+#13+#13+
'1) - Le chemin de Base de données spécifié dans le fichier des paramètres (config.ini) '+#13+#13+
'exist reréellement sur votre P.C ou sur votre reseau local '+#13+#13+
'2) - La base de données Retraite Existe dans le chemin spécifié.',mterror,[mbyes],0);
Application.Terminate;
Exit;
end else
Application.Run;
end.
سبحان الله و بحمده عدد خلقه و رضا نفسه و زنة عرشه و مداد كلماته
جعل الربط ديناميكي في الإتصال بقاعدة البيانات