ربط دلفي مع قاعدة بيانات اكسس باستخدام ADO

[romanof]

ربط دلفي مع قاعدة بيانات اكسس باستخدام Ado

1
من الصفحة ِADO نزل المكون ADOConnection
2
http://Delphi4Arab.com/images/ADO02.gif
3
http://Delphi4Arab.com/images/ADO03.gif
4
http://Delphi4Arab.com/images/ADO04.gif

التتمة بالمرفق

[sandokhane]

شكرا صديقي...

أود فقط التذكير أنه يمكن الإتصال بقاعدة أكسس إما باستعمال تقنية Ado كما تفضلت أو باستعمال dbe مع odbc. لكن أظن أن Ado هي الأحسن خاصة من حيث السرعة.

كذلك أود أن أوضح طريقة الإتصال بقاعدة أكسس برمجيا (أكثر ديناميكية).

- نضيف قورم جديد ونضع عليه المكونات كما في الصورة.
http://img519.imageshack.us/img519/7632/imagept4.jpg

- ونضيف الكود التالي الخاص بزر connect .

procedure TForm2.Button1Click(Sender: TObject);
var

cheminBD, chaineCnx : string;

begin


if not OpenDialog1.Execute then exit;
cheminBD:=opendialog1.FileName;
StatusBar1.Panels[0].Text:=cheminbd;
chaineCnx:= 'Provider=Microsoft.Jet.OLEDB.4.0;' +
'Data Source=' + cheminBD + ';' +
'Persist Security Info=False;'+
'Mode=Share Deny None;Extended Properties="";';

Adoconnection1.LoginPrompt:=false;
Adoconnection1.ConnectionString := chaineCnx ;

Adoconnection1.Open;
Adotable1.Connection:=Adoconnection1;
Adotable1.TableName:='table1';
ADOTable1.open;
end;



طبعا لا ننسى أن نربط dbgrid مع Adotable1 بواسطة Datasource1.


الكود الكامل مع المرفقات.

يومكم مبارك.:)

[مبرمج هاوي]

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

[kachwahed]

إن كنت تقصد مثال الأخ sandokhane فهو صحيح
أنظر أيضا: برمجة تطبيقات قواعد البيانات بإستخدام ado (الجزء2: ADOTable / ADOConnection) (http://www.delphi4arab.com/forum/showthread.php?t=3657)
سؤال آخر في قسم الأسئلة
بالتوفيق.

[المحجوب]

السلام عليكم

اخي صاحب الموضوع وضح النقطة الخامسة في الشرح
من اين اتيت بهذه القاعدة هل هي تكونت من وحدها ام انت عملتها على اكسس ثم ربطها

لم يلد احد عالم حتى الان .... ولم تعمل معي هذه النقطه بالذات

http://www.youtube.com/watch?v=65ozibb7lcm&feature=related
الهدف ايصال المعلومة بشكل صحيح بدون نواقص