الاكسس

[ali08833]

اريد معرفة كيفية إنشاء قاعدة معطيات بالـاكسس وربطها بالدالفي ارجوكم رد على هذا الطلب

[عاصم ق]

تفضل إنسخ هذا الرابط kotobe.eb2a.com/kitabe.php?h=12

[عاصم ق]

يمكن استغلال قاعدة بيانات acccess والتعامل معها بربطها مع برنامج الدلفي
وذلك بطريقة ADO

وهذه بعض أكواد الربط
كود:
RecordSet.Open('SELECT * FROM TableName', DSN, adOpenDynamic, adLockOptimistic, adCmdUnspecified) ;

بعدها يمكنك: استخراج , إضافة , تعديل أو حذف أي بيانات من القاعدة
وهذا مثال لكود ربط كامل

كود:
uses
ComObj

function CompactAndRepair(DB, Password: string) : boolean;
const
sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Jet OLEDB:Database Password="%s"';
var
v: OLEvariant;
begin { CompactAndRepair }
Result := True;
try
v := CreateOLEObject('JRO.JetEngine');
try
v.CompactDatabase(Format(sProvider, [DB, Password]), Format(sProvider, [DB + 'x', Password]));
if FileExists(DB + 'x') then begin
DeleteFile(DB);
RenameFile(DB + 'x', DB)
end;
finally
v := Unassigned
end; { try }
except
Result := False
end; { try }
end; { CompactAndRepair }

تعد تلك الطريقة الأفضل , وتعمل بها مختلف اللغات , مثل VisualBasic

الطريقة الثانية باستخدات مكتبة JRO_TLB
Project – Import Type Library
ثم اختر “Microsoft Jet and Replication Objects 2.1 Library”
وضع الكود التالي

كود:
Uses
JRO_TLB;

function CompactAndRepair(DB, Password: String): Boolean;
const
sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Jet OLEDB:Database Password="%s"';
var
oJetEng : JetEngine;
begin
try
oJetEng := CoJetEngine.Create;
try
oJetEng.CompactDatabase(Format(sProvider, [DB, Password]),Format(sProvider, [DB + 'x', Password]));
if FileExists(DB + 'x') then begin
DeleteFile(DB);
RenameFile(DB + 'x', DB)
end;
Result := True;
finally
FreeAndNil(oJetEng);
end;
except
Result := False;
end;
end;
توجد طريقة أخرى وهي DAO.DBEngine , وهي خاصة بنسخ قديمة من الدلفي

[ali08833]

شكرا لك على هذه المعلومات ايها الاخ الكريم