PDA

View Full Version : (اماتورم) یه نگاه به این کد بنداز



sunboy
پنج شنبه 14 خرداد 1383, 21:57 عصر
سلام
دوستان یه سوال ایا کد زیر برای اضافه کرد . تغییر داده . پاک کرد اعطلاعات از بانک اعطلاعاتی
هست



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ro As DataSet1.phoneRow = DataSet11.phone.NewRow
ro.address = "Tehran"
ro.name = "hamid"
ro.lname = "Norozi"
ro.phone = 4108587
DataSet11.phone.Rows.Add(ro)x
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim chro As DataSet1.phoneRow
chro = DataSet11.phone.FindByphone(3138965)x
chro.phone() = 5552525
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim del As DataSet1.phoneRow
del = DataSet11.phone.FindByphone(3138965)x
del.Delete()
End Sub

اگه هست پس چرا توی دیتابیس من هیچ اتفاقی نمی فده اگه نیست پس چی کار می کنه


مرسی :oops:

sunboy
پنج شنبه 14 خرداد 1383, 22:14 عصر
فهمیدم باید این کد تنگ همشون بزارم



Me.OleDbDataAdapter1.Update(DataSet11)x
Me.DataGrid1.DataBind()x

mes
پنج شنبه 14 خرداد 1383, 22:17 عصر
زنده باد
:تشویق:

sunboy
جمعه 15 خرداد 1383, 09:27 صبح
زنده باد
:تشویق:

نوووووووووووکرتم دادش