کد حذف و اضافه و ویرایش.............

[tik_tak]

سلام
دیتا بیسمون اکسسه....

اضافه کردن :


ADOTable1.Insert;
ADOTable1.FieldByName('نام اولین فیلد').Value:= edit1.Text;
ADOTable1.FieldByName('نام دومین فیلد').Value:= edit2.Text;
ADOTable1.FieldByName('نام سومین فیلد').Value:= edit3.Text;
.
.
.
ADOTable1.FieldByName('نام آخرین فیلد').Value:= editn.Text;
ADOTable1.Post;



حـــــــــــــــذف (1 سوال م داشتم!)


if ADOTable1.Locate('name',Edit1.Text,[loPartialKey])=true
then
ADOTable1.Delete;


یک ادیت داریم که اگر محتویاتش برابر=فیلد نام جدولمون بود اون سطر جدول رو حذف میکنه
من امتحان کردم درست بود...1 سوال داشتم :
مثله کد اضافه کردن این کد زیری رو نمیخواد؟؟؟؟ یا چه میدونم یه کد مشابه ؟


ADOTable1.Delete;


جستجو :
بر اساس فیلد نام جستجو میکنه که میتونه هر چیزه دیگه ایم باشه


if ADOTable1.Locate('name',Edit1.Text,[loPartialKey])=true
then
ShowMessage("پیدا شد ");
یا هر فرمانی که میخوای



وکد ویرایــــــــــــــــــــ ــش میشه بذارین ...................؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟� �؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟/

ممنون میشم

[Touska]

با سلام خیلی ساده روی رکورد مورد نظر Locate یا با Click موس از grid انتخاب نمایید و سپس


Adotable1.Delete;هم رکورد مورد جستجو یا جاری را حذف خواهد کرد.

برای جستجو خودتون جواب خودتونو دادید.

و برای ویرایش کافی است کد بالا به جای Insert کد Edit استفاده نمایید :



ADOTable1.Edit;
ADOTable1.FieldByName('نام اولین فیلد').Value:= edit1.Text;
ADOTable1.FieldByName('نام دومین فیلد').Value:= edit2.Text;
ADOTable1.FieldByName('نام سومین فیلد').Value:= edit3.Text;
.
.
.
ADOTable1.FieldByName('نام آخرین فیلد').Value:= editn.Text;
ADOTable1.Post;

موفق باشید :)

[mj_no.body]

سلام می شه همین کد ها رو اگه دیتابیس SQL باشه بذارین ممنون می شم.

[delphiprog3000]

با سلام در دستورات تفاوتی نداره دوست عزیز.

فقط شما Provider کانکشن خود را به Microsoft Ole Db Provider For Sql Server تبدیل کنید.

و با اشیا Ado میتوانید این دستورات را به آن اشیاء پاس دهید.

موفق باشید................