ورود

View Full Version : چگونگی ساختن یک table در یک بانک اطلاعاتیAccess در دلفی



saeed_d
سه شنبه 08 اردیبهشت 1383, 08:21 صبح
سلام
دوستان آیا می توان با کد نویسی در دلفی یک جدول در یک بانک اطلاعاتی Access ایجاد کرد. اگه روشی هست ممنون می شم ارایه دهید.

nasr
سه شنبه 08 اردیبهشت 1383, 08:36 صبح
آیا جدولی که می خواهی بسازی مشخصات جدیدی دارد

منظورم اینه که میتونی از یه جدولهای داخل برنامه کپی بگیری و بعد رکوردهای اون را حذف کنی پس فیلدهای اون همون فیلدهای یکی از جداول داخل برنامه می شه

سه شنبه 08 اردیبهشت 1383, 09:58 صبح
چرا نمیشه ایجاد کرد
یه کوری بنویس با دستور:
create table ...
بعد اونو بجای اینکه open کنی execute کن
یعنی بنویس
adotable1.exec;

saeed_d
چهارشنبه 09 اردیبهشت 1383, 10:51 صبح
بعد اونو بجای اینکه open کنی execute کن
یعنی بنویس
adotable1.exec;
سلام
query رو exec باید کرد یا Table؟
با دستور create table چطوری می شه مشخصات فیلدها رو تعیین کرد؟
با چه دستوری می شه یه کپی از یه تیبل دیگه تهیه کرد؟
باز هم متشکرم.

moradi_am
چهارشنبه 09 اردیبهشت 1383, 15:24 عصر
برای کپی table این کد تجربه شده است جواب میدهد :


with table1 do
begin
FieldDefList.Update;
IndexDefs.Update;
TableName:='copychek';
CreateTable;
end;

برای ایجاد یک جدول جدید هم کد زیر جواب داده است :


with Table1 do
begin
TableName:='new';
with FieldDefs do
begin
Clear;
Add('CustNo',ftFloat,0,True);
Add('Company',ftString,30,False);
Add('Addr1',ftString,30,False);
Add('Addr2',ftString,30,False);
Add('City',ftString,15,False);
Add('State',ftString,20,False);
Add('Zip',ftString,10,False);
Add('Country',ftString,20,False);
Add('Phone',ftString,15,False);
Add('FAX',ftString,15,False);
Add('Contact',ftString,20,False);
end;
with IndexDefs do
begin
Clear;
Add('','CustNo',[ixPrimary]);
end;
if not Exists then
CreateTable;
end;

موفق باشید .