amin_paj
جمعه 12 مهر 1392, 03:31 صبح
سلام دوستان ،از این کد برای افزودن رکورد استفاده میکنم حالا برای ویرایش رکورد چکار کنم ، ؟ ممنون اگه راهنمایی کنید .
ds.Clear()
s1 = "data Source=.\sqlexpress;Initial Catalog=chapter1;Integrated Security=True;Pooling=False"
con = New SqlConnection(s1)
con.Open()
s2 = "select * from employee where sh=" + txtsh.Text
da = New SqlDataAdapter(s2, con)
ds.Clear()
da.Fill(ds, "employee")
If ds.Tables("employee").Rows.Count <> 0 Then
MsgBox("شماره شناسنامه تکراری است")
Exit Sub
End If
'/////////////////new record to RAM (dataset)////////////////////////////////////
dr = ds.Tables("employee").NewRow
dr.Item("name") = txtname.Text
dr.Item("family") = txtfam.Text
dr.Item("sh") = Val(txtsh.Text)
dr.Item("address") = txtadd.Text
ds.Tables("employee").Rows.Add(dr)
'////////////////new record to DB /////////////////////////////
cb = New SqlCommandBuilder(da)
da = cb.DataAdapter
da.Update(ds, "employee")
MsgBox("اطلاعات رکورد جدید ثبت شد")
ds.Clear()
s1 = "data Source=.\sqlexpress;Initial Catalog=chapter1;Integrated Security=True;Pooling=False"
con = New SqlConnection(s1)
con.Open()
s2 = "select * from employee where sh=" + txtsh.Text
da = New SqlDataAdapter(s2, con)
ds.Clear()
da.Fill(ds, "employee")
If ds.Tables("employee").Rows.Count <> 0 Then
MsgBox("شماره شناسنامه تکراری است")
Exit Sub
End If
'/////////////////new record to RAM (dataset)////////////////////////////////////
dr = ds.Tables("employee").NewRow
dr.Item("name") = txtname.Text
dr.Item("family") = txtfam.Text
dr.Item("sh") = Val(txtsh.Text)
dr.Item("address") = txtadd.Text
ds.Tables("employee").Rows.Add(dr)
'////////////////new record to DB /////////////////////////////
cb = New SqlCommandBuilder(da)
da = cb.DataAdapter
da.Update(ds, "employee")
MsgBox("اطلاعات رکورد جدید ثبت شد")