+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف انشاء قاعده بيانات اكسس 2007 مع باسورد في Delphi 7 (/showthread.php?tid=6004)
كيف انشاء قاعده بيانات اكسس 2007 مع باسورد في Delphi 7 - amine_fr1910 - 06-03-2014
السلام عليكم عندي استفسار
كيف يمكني عمل كود يقوم بانشاء قاعده بيانات اكسس 2007 مع باسورد في Delphi 7
واحد عن طريق الكود والاخر عن طريق Query
كيف انشاء قاعده بيانات اكسس 2007 مع باسورد في Delphi 7 - phpbb3 - 10-03-2014
كود :
uses comobj;
function CreateAccessDatabase(FileName : String) : String;
var cat : OLEVariant;
begin
Result := '';
try
cat := CreateOleObject('ADOX.Catalog');
cat.create ('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+Filename+';');
cat := NULL;
except
on e : Exception do
Result := e.message;
end;
end;كيف انشاء قاعده بيانات اكسس 2007 مع باسورد في Delphi 7 - amine_fr1910 - 10-03-2014
سلام عليكم
ممكن توضيح اكثر
باسورد ?
كيف انشاء قاعده بيانات اكسس 2007 مع باسورد في Delphi 7 - Agmcz - 11-03-2014
كود :
//Donwload: http://www.microsoft.com/en-us/download/details.aspx?id=13255
uses ComObj;
function CreateAccessDatabase(DataBase: string): string;
var
CAT: OLEVariant;
begin
Result := '';
try
CAT := CreateOleObject('ADOX.Catalog');
CAT.Create('Provider=Microsoft.ACE.OLEDB.12.0;Data Source=' + DataBase +
';Jet OLEDBatabase Password = 123456;');
CAT := NULL;
except
on e: Exception do
Result := e.message;
end;
end;