ایجاد دیتا بیس در زمان اجرا

[meghdadcomputer]

سلام
من یک برنامه دارم که میخواهم این قابلیت را در آن بدم که کاربر بتونه در زمان اجرا یک دیتا بیس ایجاد کند و در این دیتابیس نیز بتونه یک جدول ایجاد کنه اگه میشه کد اون را برایم بذارید و یا حداقل راهنماییم کنید البته بانکم هم access است

[SYNDROME]

با سلام
دوست جدید قبل از ایجاد تاپیک یک جستجو در سایت بکن.
http://barnamenevis.org/forum/showthread.php?t=68520

[meghdadcomputer]

عزیز دل تو این تاپیک در مورد sql بحث شده من می خواهم از توی دلفی با کد در access یک دیتا بیس بسازم و دوباره در این دیتا بیس جدول بسازم..
ممنون...

[jafari1]

with FieldDefs do begin
Clear;
with AddFieldDef do begin
Name := 'FIeld Name 1';
DataType := ftString;
Required := True;
Size:=30;
end;
with AddFieldDef do begin
Name := 'Field Name 2 ';
DataType := ftString;
Size := 10;
end;
with AddFieldDef do begin
Name := 'Fiel Name3 ';
DataType := ftinteger;
end;
end;

[meghdadcomputer]

سلام دوست عزیز میشه در مورد کدهایت یه ذره بیشتر توضیح بدی آخه راستش من از کدها چیری سر در نیاوردم
جناب jafari1 این کد مال ایجاد جدوله ....اصلا کجا و در کدام بانک ذخیره می کنه
ممنون

[jafari1]

مثال کاملتری با توضیح


with TabelName do
begin
Active := False;
DatabaseName :='مسیر ';
TableType := ttParadox; < نوع جدول
TableName := 'نام جدول';
if not directoryexists(dataPath) then
mkdir(dataPAth);
if not TabelName.Exists then
begin
with FieldDefs do begin
Clear;
with AddFieldDef do begin
Name := '1نام فیلد';
DataType := ftInteger; < نوع فیلد
Required := True; < لازم است
end;
with AddFieldDef do begin
Name := 'نام فیلد 2';
DataType := ftString;
Size := 8; < طول
end;
with AddFieldDef do begin
Name := 'نام فیلد 3';
DataType := ftString;
Size := 15;
end;
......
......
end;

;