ياسر علي مقبول
06-11-2003, 02:08 AM
الاتصال باكسس عن طريق ال (ODBC)
توفر لك هذه الطريقة الاتصال بقواعد بيانات أكسس بجميع اصداراتها 95*97*200 وما يليها ولكي تربط برنامجك بقاعدة بيانات أكسس عن طريق ال ODBC هناك طريقتان يدوية وبرمجية :
اولا الربط اليدوي
1ـ اذهب الى لوحة التحكم Control Panel.
2ـ اختر ODBC Data Sources 32 .
3ـ بعد ان تظهر لك شاشة ODBC DAta Source Administrator المبوبةاخترمنها الباب Sytem DSN.
4ـ من خلال الباب System DSN اختر اضافة.
5ـمن خلال الشاشة التي سوف تظهر لك تحت عنوان Creat New Data Source اختر Microsoft Access Driver .
6ـ من خلال الشاشة التي سوف تظهر لك تحت مسمى ODBC Microsoft Access Setup ادخل في مربع الاسم Data Source Name اسم Alias Name الذي ترغب في التعامل مع قاعدة بيانات أكسس من خلاله . أما مربع الوصف Description فهو اختياري وبامكانك تركه فارغا.
7ـ اختر الأمر Select.. وسوف يظهر لك بعدها صندوق الحوار الخاص بالملفات والذي سوف تختار من خلاله قاعدة البيانات التي ترغب في ربطها ببرنامجك.
8ـ اغلق لوحة التحكم .
9ـ شغل برنامج BDE Administrator المرفق بالدلفي وستفاجأ بأن اسم قاعدة البيانات المستعار Alias Name الذي حددته لقاعدة بيانات أكسس أصبح من ضمن قائمة الأسماء .
10ـ هنا أصبح لديك Alias Name متصلا بقاعدة بيانات أكسس تستسطيع من خلاله ربط برنامجك بها وكأنك تعمل على قاعدة بيانات برادوكس تماما .
ثانيا الربط برمجيا
من عيوب طريقة الربط اليدوي أن المستخدم النهائي للبرنامج لابد أن يكون لديه الماما بالطريقة التي شرحت سابقا لكي يتمكن من انشاء اسما مستعار Alias NAmeا لقاعدة بيانات أكسس والبديل الأمثل أن يقوم المبرمج بانشائه برمجيا نيابة عن المستخدم وذلك لتفاوت قدرات المستخدمين في التعامل مع مثل هذه الأمور وهذه خطوات انشاء ال Alias Name برمجيا :
1ـ لابد أن يكون المبرمج ملما بألية عمل Windows Regstrey
2ـ أمل دراسة المثال المرفق للتعرف على كيفية تعامل دللفي مع ال Windows Regstrey.
3ـ أن توضع الشفرة المرفقة عند انشاء On Creat الشاشة الأولى من البرنامج وذلك لضمان انشاء Alias Name قبل محاولة البرنامج التعامل مع قاعدة البيانات أكسس .
4ـ تم في هذا المثال اختيار اسما مستعارا لقاعدة البيانات هو NoteBook
5ـ قاعدة البيانت التي سوف يتعامل معه البرنامج هي NoteBook.MDB
6ـ لابد أن يتعرف المبرمج على المسار الذي يحتوي على مجلد ال Windows
7ـ لابد أن يتعرف المبرمج على المسار الذي يحتوي على المجلد Sytem الذي يقع تحت ال Windows وذلك لاحتوائه على مكتبة الربط الديناميكي Odbcjt32.dll
8ـ في المثال التالي تم وضع قاعدة البيانت أكسس في نفس المجلد الذي يحتوي الملف التنفيذي للبرنامج الذي سوف يتعامل معها .
المثال
procedure TForm1.FormCreate(Sender: TObject); var myregistry : Tregistry ; windir : String; begin myregistry := tregistry.Create ; myregistry.RootKey := HKEY_LOCAL_MACHINE ; if myregistry.OpenKey('Software\ODBC\ODBC.INI\NoteBoo k' , true) then begin getwindowsdirectory(windir,144) ; winsyspath := windir + '\System\Odbcjt32.dll' ; myregistry.WriteString('DBQ', extractfilepath(application.exename) + 'NoteBook.mdb'); myregistry.WriteString('Driver',winsyspath); myregistry.WriteInteger('DriverId',25); myregistry.WriteString('FIL','Ms Access;') ; myregistry.WriteInteger('Safe Transactions',0); myregistry.WriteString('UID',''); myregistry.CloseKey; myregistry.Free ; winsyspath := '' ; end; end;
الاتصال باكسس عن طريق ال (ODBC) اولا الربط اليدوي ثانيا الربط برمجيا المثال
توفر لك هذه الطريقة الاتصال بقواعد بيانات أكسس بجميع اصداراتها 95*97*200 وما يليها ولكي تربط برنامجك بقاعدة بيانات أكسس عن طريق ال ODBC هناك طريقتان يدوية وبرمجية :
اولا الربط اليدوي
1ـ اذهب الى لوحة التحكم Control Panel.
2ـ اختر ODBC Data Sources 32 .
3ـ بعد ان تظهر لك شاشة ODBC DAta Source Administrator المبوبةاخترمنها الباب Sytem DSN.
4ـ من خلال الباب System DSN اختر اضافة.
5ـمن خلال الشاشة التي سوف تظهر لك تحت عنوان Creat New Data Source اختر Microsoft Access Driver .
6ـ من خلال الشاشة التي سوف تظهر لك تحت مسمى ODBC Microsoft Access Setup ادخل في مربع الاسم Data Source Name اسم Alias Name الذي ترغب في التعامل مع قاعدة بيانات أكسس من خلاله . أما مربع الوصف Description فهو اختياري وبامكانك تركه فارغا.
7ـ اختر الأمر Select.. وسوف يظهر لك بعدها صندوق الحوار الخاص بالملفات والذي سوف تختار من خلاله قاعدة البيانات التي ترغب في ربطها ببرنامجك.
8ـ اغلق لوحة التحكم .
9ـ شغل برنامج BDE Administrator المرفق بالدلفي وستفاجأ بأن اسم قاعدة البيانات المستعار Alias Name الذي حددته لقاعدة بيانات أكسس أصبح من ضمن قائمة الأسماء .
10ـ هنا أصبح لديك Alias Name متصلا بقاعدة بيانات أكسس تستسطيع من خلاله ربط برنامجك بها وكأنك تعمل على قاعدة بيانات برادوكس تماما .
ثانيا الربط برمجيا
من عيوب طريقة الربط اليدوي أن المستخدم النهائي للبرنامج لابد أن يكون لديه الماما بالطريقة التي شرحت سابقا لكي يتمكن من انشاء اسما مستعار Alias NAmeا لقاعدة بيانات أكسس والبديل الأمثل أن يقوم المبرمج بانشائه برمجيا نيابة عن المستخدم وذلك لتفاوت قدرات المستخدمين في التعامل مع مثل هذه الأمور وهذه خطوات انشاء ال Alias Name برمجيا :
1ـ لابد أن يكون المبرمج ملما بألية عمل Windows Regstrey
2ـ أمل دراسة المثال المرفق للتعرف على كيفية تعامل دللفي مع ال Windows Regstrey.
3ـ أن توضع الشفرة المرفقة عند انشاء On Creat الشاشة الأولى من البرنامج وذلك لضمان انشاء Alias Name قبل محاولة البرنامج التعامل مع قاعدة البيانات أكسس .
4ـ تم في هذا المثال اختيار اسما مستعارا لقاعدة البيانات هو NoteBook
5ـ قاعدة البيانت التي سوف يتعامل معه البرنامج هي NoteBook.MDB
6ـ لابد أن يتعرف المبرمج على المسار الذي يحتوي على مجلد ال Windows
7ـ لابد أن يتعرف المبرمج على المسار الذي يحتوي على المجلد Sytem الذي يقع تحت ال Windows وذلك لاحتوائه على مكتبة الربط الديناميكي Odbcjt32.dll
8ـ في المثال التالي تم وضع قاعدة البيانت أكسس في نفس المجلد الذي يحتوي الملف التنفيذي للبرنامج الذي سوف يتعامل معها .
المثال
procedure TForm1.FormCreate(Sender: TObject); var myregistry : Tregistry ; windir : String; begin myregistry := tregistry.Create ; myregistry.RootKey := HKEY_LOCAL_MACHINE ; if myregistry.OpenKey('Software\ODBC\ODBC.INI\NoteBoo k' , true) then begin getwindowsdirectory(windir,144) ; winsyspath := windir + '\System\Odbcjt32.dll' ; myregistry.WriteString('DBQ', extractfilepath(application.exename) + 'NoteBook.mdb'); myregistry.WriteString('Driver',winsyspath); myregistry.WriteInteger('DriverId',25); myregistry.WriteString('FIL','Ms Access;') ; myregistry.WriteInteger('Safe Transactions',0); myregistry.WriteString('UID',''); myregistry.CloseKey; myregistry.Free ; winsyspath := '' ; end; end;
الاتصال باكسس عن طريق ال (ODBC) اولا الربط اليدوي ثانيا الربط برمجيا المثال