01-06-2008, 12:12 AM
ربط دلفي مع قاعدة بيانات اكسس باستخدام Ado
1
من الصفحة ِADO نزل المكون ADOConnection
2
![[صورة: ADO02.gif]](http://Delphi4Arab.com/images/ADO02.gif)
3
![[صورة: ADO03.gif]](http://Delphi4Arab.com/images/ADO03.gif)
4
![[صورة: ADO04.gif]](http://Delphi4Arab.com/images/ADO04.gif)
التتمة بالمرفق
1
من الصفحة ِADO نزل المكون ADOConnection
2
3
4
التتمة بالمرفق
الصفحات : 1 2
11-01-2009, 08:11 AM
شكرا صديقي...
أود فقط التذكير أنه يمكن الإتصال بقاعدة أكسس إما باستعمال تقنية Ado كما تفضلت أو باستعمال dbe مع odbc. لكن أظن أن Ado هي الأحسن خاصة من حيث السرعة.
كذلك أود أن أوضح طريقة الإتصال بقاعدة أكسس برمجيا (أكثر ديناميكية).
- نضيف قورم جديد ونضع عليه المكونات كما في الصورة.
![[صورة: imagept4.jpg]](http://img519.imageshack.us/img519/7632/imagept4.jpg)
- ونضيف الكود التالي الخاص بزر connect .
طبعا لا ننسى أن نربط dbgrid مع Adotable1 بواسطة Datasource1.
الكود الكامل مع المرفقات.
يومكم مبارك.
أود فقط التذكير أنه يمكن الإتصال بقاعدة أكسس إما باستعمال تقنية Ado كما تفضلت أو باستعمال dbe مع odbc. لكن أظن أن Ado هي الأحسن خاصة من حيث السرعة.
كذلك أود أن أوضح طريقة الإتصال بقاعدة أكسس برمجيا (أكثر ديناميكية).
- نضيف قورم جديد ونضع عليه المكونات كما في الصورة.
- ونضيف الكود التالي الخاص بزر 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.
الكود الكامل مع المرفقات.
يومكم مبارك.
27-01-2011, 09:01 PM
27-01-2011, 09:23 PM
20-11-2011, 07:57 PM
07-03-2012, 08:47 PM
08-04-2012, 08:21 PM
10-06-2012, 11:19 AM
11-06-2012, 02:00 PM
06-10-2012, 08:05 PM
الصفحات : 1 2