دخول

sandokhane · 11-01-2009, 08:11 AM

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

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

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

- نضيف قورم جديد ونضع عليه المكونات كما في الصورة.
[صورة: 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.

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

يومكم مبارك. Smile

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة