واجهتي مشكلة عند تغيير محرك او مجلد البرنامج لا يتعرف البرنامج على قاعدة المعطيات ارجو من الاخوة اعطائنا توضيحات حول هذه المشكلة او طرح مثال لتعم الفائدة ( قاعدة المعطيات المستعملة Access
delphi4arab منتديات دلفي للعرب
›
منتديات دلفي للعرب التعليمية
›
سؤال و جواب حول دلفي
كيف يتعرف البرنامج على قاعدة المعطيات اينما وجدت
كيف يتعرف البرنامج على قاعدة المعطيات اينما وجدت
|
كيف يتعرف البرنامج على قاعدة المعطيات اينما وجدت
|
30-11-2017, 06:47 PM
السلام عليكم ،
لا بد من تغيير مسار قاعدة البيانات برمجيا ، استعمل الدالة : ExtractFileDir وهذا مثال عند استعمالها : http://www.delphibasics.co.uk/RTL.asp?Na...ctFilePath
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه. 
تم الحل و الشكر الجزيل لابو معاذ
(01-12-2017, 08:05 AM)bouh25 كتب : تم الحل و الشكر الجزيل لابو معاذ مازال المشكل قائم ارجو مثال توضيحي اذا امكن
السلام عليكم ،
ممكن ارفاق كود الاتصال كاملا؟ ثم هل قاعدة البيانات موجودة في المسار E:\Person\Base.mdb ، أم أنها في مجلد آخر داخل E:\Person . إذا كان في مجلد أخر لا بد من إضافته . لأن الدالة ExtractFileDir لا تعطيك إلا مسار الملف التنفيذي. مثال إذا كان المجلد اسمه Data و موجود داخل المجلد Person في هذه الحالة لا بد من كتابة المسار كاملا : E:\Person\Data\Base.mdb
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
01-12-2017, 06:33 PM
(01-12-2017, 03:44 PM)أبو معاذ كتب : السلام عليكم ، هذا الملف موجود في E:\Person اريد ان انقله الى جهاز اخر و بمسار اخر
السلام عليكم ،
مرحبا بك مرة أخرى ، لنجزئ المشكلة : 1- لا بد من استخراج المسار الكلي باستعمال الدالة ExtractFilePath نحتقظ به في متغير نصي و ليكن ThePath بعد ذلك لا بد من تغيير في الخاصية ConnectionString الخاصة ب ADOConnection1 وليكن ذلك في الحدث OnCreate للفورم الرئيسي : كود : procedure TForm1.FormCreate(Sender: TObject);
var ThePath : String ;
begin
Thepath := ExtractFilePath (Application.ExeName);
ADOConnection1.Close;
ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+Thepath+'\base.mdb;Persist Security Info=False';
ADOConnection1.Connected := True;
ShowMessage('OK');
end;
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
02-12-2017, 07:21 AM
(01-12-2017, 08:09 PM)أبو معاذ كتب : السلام عليكم ، لك جزيل الشكر اخي ابو معاذ و جعل الله لكل من كل حرف حسنة |
|
|
يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم