delphi4arab منتديات دلفي للعرب

السلام عليكم

ما هي كيفية ربط firebird مع دالفي 2010 بواسطة ado و تكون قاعدة مضمنة في مجلد البرنامج حتى ادا تم تغير مسار المجلد يعمل البرنامج كما هو الحال من الأكسس
بحث في منتدى طويل و وجدت شرحات لكن لم افلح في عمل دالك علما اني حملت دايفر و برنامج Firebird-2.1.3.18185-0_Win32_embed و كدالك Firebird-2.5.2.26539_0_Win32

السلام عليكم

موضوع "استخدام الفايربيرد Firebird كقاعدة بيانات مضمنة" يشرح الامر جيدا
http://www.delphi4arab.net/forum/showthr...p?tid=4015

إقتباس :وجدت شرحات لكن لم افلح

"لم افلح" غير كافية لايجاد الخلل
ما المشكل ؟ ماذا فعلت ؟ وكيف ؟ رسالة الخطأ ؟ اصدار النظام ؟

السلام عليكم

شكرا اخي لكني تتبعت الشرح من قبل
تم الاتصال و تعمل القاعدة جيدا لكن عند نقل مجلد البرنامج الى مسار اخر لا يعمل اي يجب وضع قاعدة البيانات في مسار محدد لا يتغير

هل من طريقة تعمل فيها قاعدة البيانات لو تغيير اسم او مكان مجلد البرنامج الدي به قاعدة البيانات مثل الاكسس

و في ربط firebird مع دالفي 2010 بواسطة ado و تكون قاعدة مضمنة في مجلد البرنامج مادا يلزم عمله لكي يعمل على جهاز الزبون

واضح لديك خلل بالمسار
ما ذا كتبت في الConnectionString

السلام عليكم
اولا قمت بوضع الملفات التالية في مجلد البرنامج
aliases.conf firebird.conf fbembed.dll ib_util.dll firebird.msg
وقمت بعمل اسم مستعار بواسطة درايفر firebrid ODBC
[attachment=2633]
ثم الاتصال بالقاعدة عن طريق ADO
[attachment=2634]
كانت العملية ناجحة . لكن عند تغيير اسم مجلد البرنامج لا يعمل البرنامج
[attachment=2637]

السلام عليكم
هذا مثال
وعدل فيه مايلزم
ضعه في الحدث OnCreate

كود :
procedure TForm1.FormCreate(Sender: TObject);
var
  Conn, DB: string;
begin
  DB := ExtractFilePath(Application.ExeName) + 'db.mdb';
  Conn := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
    'Data Source=' + DB + ';' +
    'Persist Security Info=False;' +
    'Mode=Share Deny None;Extended Properties="";';
  Adoconnection1.LoginPrompt := False;
  Adoconnection1.ConnectionString := Conn;
  Adoconnection1.Open;
  Adotable1.Connection := Adoconnection1;
  Adotable1.TableName := 'Table1';
  ADOTable1.Open;
end;

السلام عليكم الاحسن استخدام الحدث BeforeConnect للمكون ADOConnection1 بدل OnCreate للـ Form
يمكن الاستزادة http://www.delphi4arab.net/forum/showpos...ostcount=2

bouazza8

محمد عبد العزيز

bouazza8

محمد عبد العزيز

bouazza8

dztr

S.FATEH