سلام دوستان
می خواستم یه برنامه بزارید که وصل شده باشه به اکسس
حالا فرق نمی کنه چه برنامه بزارید .
می خوام از رو ی اون اضافه کردن و حذف و ویرایش رو یا بگیرم .
با تشکر
Printable View
سلام دوستان
می خواستم یه برنامه بزارید که وصل شده باشه به اکسس
حالا فرق نمی کنه چه برنامه بزارید .
می خوام از رو ی اون اضافه کردن و حذف و ویرایش رو یا بگیرم .
با تشکر
سلام
برو به تاپیک دیتابیس
اینم برای شروع برات خوبه :کد:http://forum.p30world.com/showthread.php?t=52758
بزرگان یه دفترچه تلفن هم در مسیر زیر گذاشتن
http://forum.p30world.com/showthread.php?t=125162
ابتدا به MDB باید وصل بشی اینم متن :31:connection
موفق و پیروز باشید.کد:var
SourceStr: string;
begin
try
SourceStr := ExtractFilePath(ParamStr(0)) + '\data\dbdemos.mdb';
ADOConnection1.Close;
ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
'User ID=Admin;' +
'Data Source=' + SourceStr + ';' +
'Mode=ReadWrite;Extended Properties="";' +
'Jet OLEDB:System database="";' +
'Jet OLEDB:Registry Path="";' +
'Jet OLEDB:Database Password="6803";' +
'Jet OLEDB:Engine Type=5;' +
'Jet OLEDB:Database Locking Mode=1;' +
'Jet OLEDB:Global Partial Bulk Ops=2;' +
'Jet OLEDB:Global Bulk Transactions=1;' +
'Jet OLEDB:New Database Password="";' +
'Jet OLEDB:Create System Database=False;' +
'Jet OLEDB:Encrypt Database=False;' +
'Jet OLEDB:Don' + Char(39) + 't Copy Locale on Compact=False;' +
'Jet OLEDB:Compact Without Replica Repair=False;' +
'Jet OLEDB:SFP=False';
ADOConnection1.Open;
except
on e:exception do
ShowMessage('Err in -> '+e.Message);
end;
end;