ما تحاول فعله غير منطقي
اذن تريد البحث عن قاعدة البيانات في حالة عدم توفرها ؟ وذلك في كامل الاقراص !!!
انا اقترح ان تضع قاعدة بيانات فارغة في الرسورس اذا لم تتوفر القاعدة الاصلية يقوم باستخراج الاحتياطية وقاعدة البيانات تضعها في نفس مسار البرنامج
السلام عليكم ورحمة الله وبركاته
اخواني اشكركم جميعا فلقد افدتموني كثيرا
انا حاليا استخدم لتاكد لتحديد الملف ومساره ويعتمد بالضرورة على المستخدم
var
fullFilePath: string;
dir1, dir2: string;
begin
fileName := 'kh.accdb';
dir1 := 'C:\No such directory';
dir2 := 'C:\data';
fullFilePath := FileSearch(fileName, dir1 + ';' + dir2);
if fullFilePath = '' then
ShowMessage(fileName + ' not found')
else
ShowMessage(fullFilePath + ' found OK');
ShowMessage(fullFilePath);
end;
السلام عليكم ورحمة الله وبركاته
لا فضفوك اخي ghost-dz مبرمج متألق حقا انت متالق والشكر موصول للبقية
ما رايك في هذا للاتصال بالقاعدة
dure TForm1.Button1Click(Sender: TObject);
begin
if FileExists('C:\data\kh.accdb') then
begin
ADOConnection1.ConnectionString:='Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\data\kh.accdb;Persist Security Info=False';
ADOConnection1.Open;
end
else
ShowMessage('Not Connection!')
end;
وهذا للاتصال بجدول التنقيط اكسس
begin
if OpenDialog1.Execute then
begin
ADOConnection1.ConnectionString:='Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+OpenDialog1.FileName+';Persist Security Info=False';
ADOConnection1.Open;
end
end;
وعليكم السلام
هكذا يكفي للتحقق من وجود القاعدة.
ويمكن أيضا تنشأ قاعدة فارغة في حالة عدم وجودها كما ذكر احد الإخوة في ردود السابقة
نرجو الفائدة وكل التوفيق.