مبتدی :کد درج ،حذف و ویرایش توسط دیتا تیبل

[misagh1370]

دوستان گرامی هرکس کد درج و حذف و ویرایش توسط دیتاتیبل رو داره ممنون میشم بذاره

[systam]

جستجو جستجو جستجو

[misagh1370]

یعنی هیچ کدوم از اساتید ،برای درج و حذف و ویرایش از دیتاتیبل استفاده نکردن؟
بابا خواهش میکنم کمک کنید:عصبانی++:

[sinaexample]

میثاق جان تا اونجایی که من یادم میاد شما تا حالا 10 بار همین سوال رو پرسیدی و هر 10 بارش رو هم جواب داده شده.جوابش ت. همین فرومی که خود شما درست کردی به صورت کامل داده شد دوست عزیز:
http://barnamenevis.org/showthread.php?405271
تنها فرقش این بود که شما اون رو واسه جستجو درخواست کرده بودید و حالا برای درج و ویرایش.
خوب کافیه به جای کدهای جستجو کدهای درج یا حذف یا آپدیت رو بنویسی:

insert into DT where ...
'or
delete from DT where...
'or
update ".." from DT where..

[misagh1370]

سینا:ممنون از رهنماییت اما ... :ناراحت::گریه:

[misagh1370]

این دستور رو واسه درج تو دیتاتیبل نوشتم اما جواب نداد مشکل کجاست؟

Dim TA As New DataSet2TableAdapters.companyTableAdapter
Dim dt As New DataSet2.companyDataTable
Private Sub btn_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_add.Click

TA.Fill(dt)
Dim query = "insert into dt {mellicodem=txt_mellicode.text,Fname=txt_name.text ,lname=txt_family.text} "

[sinaexample]

اینجوری بنویس راحت تره:


Dim TA As New DataSet2TableAdapters.companyTableAdapter
Dim dt As New DataSet2.companyDataTable
Private Sub btn_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_add.Click

TA.Fill(dt)
DT.AddcompanyRow(txt_melliCode.text,txt_name.text, txt_Family.text)
TA.update(dt)
End sub

[misagh1370]

ممنون اما این کد این خطا رو میده میدونید مشکل از کجاست؟
Error 1 Overload resolution failed because no accessible 'AddcompanyRow' accepts this number of arguments.

[sinaexample]

تو قسمتی که داخل پرانتز نوشته شده همه موارد ذکر نشده.
تو ههمون جدول کمپانی دقیقن چند تا فیلد داری؟ اونها همشون باید به ترتیت و دقیق نوشته بشن.