PDA

View Full Version : سوال: مشکل با دستورات :delete-update-insert-select و دیتاگرید



oliya24
یک شنبه 20 شهریور 1390, 15:16 عصر
سلام من میخوام با استفاده از vb به دیتابیس وصل بشم و این دستورات رو اعمال کنم update -insert-delete -select
و نمایش داده های جدول بر روی دیتاگرید ولی متاسفانه این کارها رو بلد نیستم میشه از شما دوستان تقاضا کنم که این مثائل رو به بنده یاد بدید؟؟؟؟؟؟
خواهش میکنم این پست سومی که ایجاد میکنم
عاجزانه خواهش میکنم

ebraham
یک شنبه 20 شهریور 1390, 15:49 عصر
برا دستور select مينويسي:dim cmd as new sqlcommand
cmd=new sqlcommand("select * from yourtablename where condition='" & textbox1.text & "'" , yoursqlconnection)

ebraham
یک شنبه 20 شهریور 1390, 15:51 عصر
كه منظور از كانديشن شرط شما ميباشد
برا دستور آپديت مي نويسي: cmd16 = New SqlCommand("update personal set password='" & vbNullString & "'where family=N'" & Label8.Text & "'", PupModule.sqlcon)
cmd15.ExecuteNonQuery()

ebraham
یک شنبه 20 شهریور 1390, 15:57 عصر
واسه دستور اينسرت مي نويسي: cmd13.CommandText = "insert into personal(code,name,family,tellvalues(@code,@name,@ family,@,@)"
Dim z As Integer
z = TextBox2.Text
cmd13.Connection = PupModule.sqlcon
cmd13.Parameters.Clear()
cmd13.Parameters.Add("@code", SqlDbType.Int).Value = z

ebraham
یک شنبه 20 شهریور 1390, 15:59 عصر
cmd13.ExecuteNonQuery()

ebraham
یک شنبه 20 شهریور 1390, 16:28 عصر
ببخشيد دستورات جدا جدا و بهم ريخته شد ديگه عجله داشتم

oliya24
یک شنبه 20 شهریور 1390, 21:03 عصر
واسه دیتاگرید چی دوست عزیز برای نمایش باید از چه کدی استفاده کنم/؟؟؟؟
ممنون که جوابم رو میدی

ebraham
یک شنبه 20 شهریور 1390, 22:37 عصر
خواهش ميكنم . واسه ديتاگريد ميخواي چيكار كني؟ من معمولااز گريد فقط جهت نمايش و سرچ استفاده ميكنم نه واسه آپديت .ا ولي ميتونم يه كد باحال و حرفه اي بهت بدم كه نديم كسي اينو بلد باشه ولي خيلي قشنگ برات سرچ ميكنه. اگه بخواي ازش سلكت كني بايد توي رويداد موس كليك آن بنويسي :
dim i as integer

DGV1.selectedrows(i).cells(0).value.tostring=Textb ox1.text
البته بايد جاي 2 طرف دستور فوق را عوض كني . تو اين صفحه اينجوري ميشه

ebraham
یک شنبه 20 شهریور 1390, 23:12 عصر
خوب اما اون كدي كه گفتم اينه : dim a as new dataset1tableadapters.tablenameadapters
dim b as new dataset1.tablenamedatatable
a.fill(b)
dim query=from i in a where i.family like textbox1.text
select new with {.فاميلي=i.family}
datagridview1.datasource=query.tolist