درس ربط Ado بقواعد البيانات

الاتصال عن طريق الخيار الثاني Use Data Link File

للاتصال بقاعدة البيانات عن طريق هذا الخيار . يحب ان نضيف ملف TEXT من

File - New -Ather- Ather File – TEXT, كما في الصورة

ثم نقوم بحفظة بلاحقة UDL في مجلد البرنامج

ثم نفتحه ونقوم بنفس الخطوات السابقة تماما. بعد ذلك نذهب الى ADOConnectio نضغط عليها مرتين . ونحدد الخيار الاول الذي هو Use Data Link File

من Browse نحدد مسار الملف كما في الصورة

بقي في كلا الحالتين اضافة الجداول الى datamodule وهي طريقة واحدة

اولا من ADOConnection نغير الخاصية Login Prompt الى False

نحدد الجدول , ومن ADOCOnnection نحدد خيار الاتصال . والذي سيكون ADOConnection 1

ثم نذهب الى الخاصية Table Name ونحدد الجدول الذي نريد ربطة

ثم نحدد Datasource . ثم نذهب الى الخاصية DataSet ونربطها مع الجدول المربوط كما في الصورة

الاتصال مع Accessبرمجيا .

سوف نحتاج الى الاتصال مع Accessبرمجيا .أكثر من الطريقة الاولى . لآنه عند الاتصال بالطريقة الاولى وتغيير مسار قاعدت البيانات . سيفشل الاتصال مع قاعدة البيانات ويعطينا رسالة خطأ عن مسارها

كيف تم الاتصال برمجيا . أعتقد انها كثيرة المواضيع التي غطت هذا الاتصال وفي منتدانا تحديدا .

ال Data Module لها حدثان ON Create , و ON Destory

ما علينا هو تحديد مسار قاعدة البيانات في الحدث ON Create

وفي الحدث ON Destory نغلق الجدول

ArabTeam.rar

ADO With SQL Server

لايختلف الاتصال ب SQL SERVER كثيرا عن ACCESS

نبدأ بفتح مشروع جديد . نضيف ADOConnection وننقر عليها مرتين . تظهر لنا كما في المرحلة السابقة واجهة للاتصال .

نختار الخيار الثاني Build

من Provider نختار : Mecrosoft OLE DB Provider SQL Server

ثم Next تظهر لدينا ال Connection

الخيار الاول الذي يطالب بوضع اسم السيرفر نضع فية القيمة 0

الخيار الثاني نحدد اسم مستخدم قاعدة البيانات . هل هو مستخدم الوينوز ام حساب اخر

الخيار الثالث نختار قاعدة البيانات

ثم نختبر الاتصال .

الاتصال برمجيا مع SQL SERVER

type
  TDM = class(TDataModule)
	procedure DataModuleCreate(Sender: TObject);
	procedure DataModuleDestroy(Sender: TObject);
  private
	  Function connect():Boolean;
	Function deconnect():boolean;
	const c_conn =  'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=TIB;Data Source=TALALBE-PC';
	{ Private declarations }
  public
	  AdoConn: TADOConnection;
	{ Public declarations }
  end;

 Function Tdm.connect():Boolean;
BEGIN
		adoconn:= TADOConnection.Create(nil);
	  TRY
	   adoconn.ConnectionString:=C_CONN;
		adoconn.LoginPrompt:=false;
		adoconn.Open();
		Result:= true;
	  EXCEPT ON E:Exception DO
		Result:= false;
	  END;
END;

procedure TDM.DataModuleCreate(Sender: TObject);
begin

   IF NOT connect() THEN
	 BEGIN
		ShowMessage('فشل الاتصال مع قاعدة البيانات');
		Application.Terminate;
	 END;
end;

procedure TDM.DataModuleDestroy(Sender: TObject);
begin
   TRY
	 deconnect();
	adoconn.Free;
	EXCEPT END;
end;

Function TDM.deconnect():boolean;
BEGIN
	  TRY
		adoconn.Close();
		Result:= true;
	  Except
		Result:= false;
	  END;
END;
end.

في المرفق مثال لكلا الحالتين مع ادخال البيانات الى القاعدة عن طريق Table

وفي المرحلة التالية ستكون التعامل مع ADO QUERY و ADO STORE PROC

___________sql_______.rar

arabteam.rar

السلام عليكــم ورحمـة الله وبركاتــه ،،

ADO QUERY

سنحتاج كثيرا الى استخدام ADOQUERY بدلا من ADO TABLE وخصوصا في البرامج المتعددة المستخدمين التي تعمل على الشبكة . لآن DO QUERY اسرع بكثير لآنها تقوم بارسال استعلام الى قاعدة البيانات ومعالجة الامر ضمن قاعدة البيانات وتعود بالنتيجة فقط . هذا مايجعلها اسرع وافضل من ADOTABLE .

أولا : ادخال البيانات

نقوم بتعريف بارمترات بعدد حقول الجدول الذي نريد ادخال البيانات الية

procedure TForm1.Button1Click(Sender: TObject);
begin
 with ADOQuery1 do
	begin

	 Close;
	 SQL.Clear;

	 SQL.Add('INSERT INTO Table_1');
	 SQL.Add('( id,Name,not_)');
	 SQL.Add(' Values');
	 SQL.Add('(:P1,:P2,:P3)');
	 Prepared;
	 Parameters.ParamByName('P1').Value := Edit1.Text;
	 Parameters.ParamByName('P2').Value := Edit2.Text;
	 Parameters.ParamByName('P3').Value := Edit3.Text;

	 ExecSQL;

	   fedit;
		 con;

   end;
end;

ثانيا: البحث

procedure TForm1.SpeedButton5Click(Sender: TObject);
var
 InputString: string;
begin
 InputString:= InputBox('بحث', 'فضلا ادخل رقم العميل', '');
 if InputString = '' then Exit;

with ADOQuery1 do
begin
 Close;
 SQL.Clear;
 SQL.Add('SELECT * FROM Table_1 WHERE id = :P1');
 Prepared;
 Parameters.ParamByName('P1').Value := InputString;
 Open;
End;

if ADOQuery1.RecordCount = 0 then
begin
ShowMessage('لا يوجد عميل بهذا الرقم');
exit;
end else
 begin
 Edit1.Text := ADOQuery1.Fields.Fields[0].AsString;
 Edit2.Text := ADOQuery1.Fields.Fields[1].AsString;
 Edit3.Text := ADOQuery1.Fields.Fields[2].AsString;

end;


end;

ثالثا : التعديل

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
con;
end;

procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
 with ADOQuery1 do
 begin
   Close;
   SQL.Clear;
   SQL.Add('UPDATE Table_1');
   SQL.Add(' SET ');
   SQL.Add('id = :P1,id = :P2,name =:P3,not_ ');
   SQL.Add(' WHERE id = :PWHERE');
   Prepared;
   Parameters.ParamByName('P1').Value := Edit1.Text;
   Parameters.ParamByName('P2').Value := Edit2.Text;
   Parameters.ParamByName('P3').Value := Edit3.Text;


   Parameters.ParamByName('PWHERE').Value := Edit1.Text; // For WHERE
   ExecSQL
End;

end;

رابعا : الحذف

procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
  if MessageDlg('سيتم حذف السجل ',mtConfirmation,[mbYes,mbno],0)=mryes then
  begin

 with ADOQuery1 do
begin
 Close;
 SQL.Clear;
 SQL.Add('DELETE FROM table_1 WHERE id = :P1');
 Prepared;
 Parameters.ParamByName('P1').Value := Edit1.Text;
 ExecSQL;
 Fedit;
con;

  end
  end
  else
  begin

con;
 end;

end;

end.

اما الاجرائين Fedit فهو لحذف البيانات الموجودة في EDIT

CON: هو من اجل اعادة الاتصال بقاعدة البيانات

 procedure con;
begin
	form1. adoquery1.SQL.Clear;
form1.adoquery1.SQL.add('select*from table_1');
form1.adoquery1.Open;
form1.datasource1.DataSet:=form1.adoquery1;

end;
procedure fedit;
begin
form1.Edit1.Text :='';
form1.Edit2.Text :='';
form1.Edit3.Text :='';

end;

ADOQuery.rar

بقلم الاخ undertaker_2

تعبت من البحث وغالبا مااجد الكود ولكن غير كامل فصممت البحث وعدم اليائس واخيرا تمكنت من الاتصال بقاعدة البيانات (Access) برمجيااااااٌ من دون (Wizerd) لنبدأ بسرعة

اولا: انشاء الاتصال

نفتح مشروع جديد ونضيف 2 Button الاولى اسمها (BtnOpenCon) والثانية اسمها (BtnCloseCon) ثم نذهب الى الكود وناتي عند المكتبات (uses) ونضيف المكتبيتين (ADODB,DB) أي هكذا

uses
     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     Dialogs,ADODB,DB, StdCtrls;

ثم ناتي عند var ونكون متغير من نوع (TADOConnection) أي هكذا

var
  Form1: TForm1;
  MyCon :TADOConnection;	


ثم نفتح الفورم ونضغط Double click  على 	BtnOpenCon ونكتب الكود التالي  لاحظ هنا ان ملف قاعدة البيانات موجود في القرص C  تحت اسم  db1.mdb
واذا لم يكن موجود قم بانشاء قاعدة بيانات تحت اسم db1.mdb  على القرص C

procedure TForm1. BtnOpenConClick(Sender: TObject);
begin
  MyCon :=TADOConnection.Create(nil);
  Mycon.LoginPrompt := False;
  MyCon.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' + 
                'Data Source=C:\db1.mdb;' + 
                'Mode=ReadWrite|Share Deny None;' + 
                'Persist Security Info=False';
  MyCon.Open; // فتحنا الاتصال بقاعدة البيانات
 end;

لكن ماذا لوغيرت مكان قاعدة البيانات الى المكان الموجود فيه الملف التنفذي للمشروع , هنا يأتي مهمة الدالة (GetCurrentDir) فيصبح الكود بعد التعديل هو

procedure TForm1. BtnOpenConClick(Sender: TObject);
begin
  MyCon :=TADOConnection.Create(nil);
  Mycon.LoginPrompt := True;
  MyCon.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' + // provider for Access2000
                'Data Source=' + GetCurrentDir + '\db1.mdb;' + // databasefile
                'Mode=ReadWrite|Share Deny None;' + // set to ReadWrite
                'Persist Security Info=False';
  MyCon.Open; // فتحنا الاتصال بقاعدة البيانات
 end;

نفتح مرة اخرى الفورم ونضغط Double click على BtnCloseCon ونكتب الكود التالي

procedure TForm1. BtnCloseConClick(Sender: TObject);
begin
MyCon.Close; // اغلاق  الاتصال بقاعدة البيانات
end;

السلام عليكــم ورحمـة الله وبركاتــه

اقتباس

لكن ماذا لوغيرت مكان قاعدة البيانات الى المكان الموجود فيه الملف التنفذي للمشروع , هنا يأتي مهمة الدالة (GetCurrentDir) فيصبح الكود بعد التعديل هو

السلام عليكم

لا يفضل إستخدام هذه الدالة وذلك لوكان التطبيق يستدعي ملفات بإستخدام إحدة أدوات Dialogs فإن المسار الخاص بالتطبيق سوف يتغير ويحدث خطأ في الإتصال بقاعدة البيانات ، ولكن إدا أستخدامنا الدالة ExtractFilePath فهي أفضل بكثير بحيث تعطينا موقع الملف التنفيذي والذي في العادة يكون مجاور لملف قاعدة البيانات بحسب طريقة المبرمج ، ومثال على هذا يمكن إستخدامها كالتالي.

ExtractFilePath(Application.exename+'My Data Beas Name');

أما إد كانت قاعدة البيانات موجودة داخل مجلد في نفس مسار الملف التنفيذي فتكتب كالتالي:-

ExtractFilePath(Application.exename+'MyDirectory\MyDataBeas Name');

وشكراً

زكيري عبد العالي كتب:

بقلم الاخ undertaker_2

تعبت من البحث وغالبا مااجد الكود ولكن غير كامل فصممت البحث وعدم اليائس واخيرا تمكنت من الاتصال بقاعدة البيانات (Access) برمجيااااااٌ من دون (Wizerd) لنبدأ بسرعة

اولا: انشاء الاتصال

نفتح مشروع جديد ونضيف 2 Button الاولى اسمها (BtnOpenCon) والثانية اسمها (BtnCloseCon) ثم نذهب الى الكود وناتي عند المكتبات (uses) ونضيف المكتبيتين (ADODB,DB) أي هكذا

uses
     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     Dialogs,ADODB,DB, StdCtrls;

ثم ناتي عند var ونكون متغير من نوع (TADOConnection) أي هكذا

var
  Form1: TForm1;
  MyCon :TADOConnection;	


ثم نفتح الفورم ونضغط Double click  على 	BtnOpenCon ونكتب الكود التالي  لاحظ هنا ان ملف قاعدة البيانات موجود في القرص C  تحت اسم  db1.mdb
واذا لم يكن موجود قم بانشاء قاعدة بيانات تحت اسم db1.mdb  على القرص C

procedure TForm1. BtnOpenConClick(Sender: TObject);
begin
  MyCon :=TADOConnection.Create(nil);
  Mycon.LoginPrompt := False;
  MyCon.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' + 
                'Data Source=C:\db1.mdb;' + 
                'Mode=ReadWrite|Share Deny None;' + 
                'Persist Security Info=False';
  MyCon.Open; // فتحنا الاتصال بقاعدة البيانات
 end;

لكن ماذا لوغيرت مكان قاعدة البيانات الى المكان الموجود فيه الملف التنفذي للمشروع , هنا يأتي مهمة الدالة (GetCurrentDir) فيصبح الكود بعد التعديل هو

procedure TForm1. BtnOpenConClick(Sender: TObject);
begin
  MyCon :=TADOConnection.Create(nil);
  Mycon.LoginPrompt := True;
  MyCon.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' + // provider for Access2000
                'Data Source=' + GetCurrentDir + '\db1.mdb;' + // databasefile
                'Mode=ReadWrite|Share Deny None;' + // set to ReadWrite
                'Persist Security Info=False';
  MyCon.Open; // فتحنا الاتصال بقاعدة البيانات
 end;

نفتح مرة اخرى الفورم ونضغط Double click على BtnCloseCon ونكتب الكود التالي

procedure TForm1. BtnCloseConClick(Sender: TObject);
begin
MyCon.Close; // اغلاق  الاتصال بقاعدة البيانات
end;

مشكور أخي الكريم و جزاك الله كل خير

فأنا أيضا تعبت من البحث حتى وجدت مشاركتك حيث انني جديد تماما في عالم الدلفي :)

و لكن أرجو ان تكمل جميلك بالإجابة على هذا السؤال و هو كيف يمكن عمل إستعلام SQL من قواعد البيانات بإستخدام هذه الطريقة

كما أرجو إرفاق مثال بسيط

أكرر شكري و تقديري لك اخي أخي الكريم

تحياتي