sunboy
پنج شنبه 14 خرداد 1383, 22: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:
دوستان یه سوال ایا کد زیر برای اضافه کرد . تغییر داده . پاک کرد اعطلاعات از بانک اعطلاعاتی
هست
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: