ایجاد یک فایل اکسس با کدنویسی

[پدرخوانده]

می خواهم یک جدول با پسوند dbf را به access تبدیل کنم
می توان به یک پایگاه داده از نوع اکسس از طریق adoconnection اتصال برقرار کرد ولی برای این کار این فایل باید وجود داشته باشد
حال اگر بخواهیم این جدول را به وجود آوریم چگونه است؟
و اگر بخواهیم اطلاعات یک جدول dbf دیگر را به داخل آن ایمپورت کنیم چطور است (البته نه از طریق ابزار batchmove ) بلکه بصورت کد نویسی لیست فیلدهای جدول اول (dbf) را تشخیص داده و براساس آن در جدولی در بانک اکسس ایجاد کنیم

[Hamid_PaK]

برای ساخت یک فایل دیتابیسی اکسس (MDB) من جز کامپوننت راه دیگه ای ندیدم ولی صد در صد میشه با یک رکرد هم درستش کرد ... به هر حال اینم تعدادی که این امکان رو دارند :
1. AJB ADO components
http://kadao.dir.bg = KAADo .2
www.hadao.dir.bg = KADao .3

یا حق !!!

[پدرخوانده]

با تشکر از پاسختون
ولی من بیشتر بدنبال ایجاد از طریق کدنویسی هستم آیا امکان ایجاد آن از طریق کدنویسی api می باشد

[اَرژنگ]

uses comobj,sysutils;

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;

[مجتبی جوادی]

آقا ارژنگ ممنون از لطف شما
برنامه شما کاملا اجرا می شود ولی یک ایراد وجود دارد و آن اینکه اگر دو بار کد را صدا بزنیم برنامه پیغام خطا می دهد که دیتابیس قبلا ایجاده شده است . حالا به نظر شما چگونه می شود از این خطا جلو گیر نمود . یعنی اول برنامه چک کند و اگر فایل موجود نبود آن را ایجاد کند .
با تشکر

[merced]

if not FileExists(FileName) then
...