zarrin_306
جمعه 20 مرداد 1385, 11:10 صبح
با سلام
میخواستم ببینم چطوری میشود در یک جدول تغییراتی صورت داد
طوری که مثلا ما بخواهیم عددی را که مثلا 11 هست را 3 تای دیگر بهش اضافه کنی بدون اینکه در تکس باکس عدد قبلی را نمایش داد
درتکست باکس فقط عدد 3 را وارد کنیم ودر جدول عدد قبلی با عدد مربوطه جمع گردد و عدد 15 در جدول ذخیره شود 15=3+13
با تشکر
البته من خودم کدی نوشتم ولی طوری که میخوام نیست
ثیت تغیرات بدون اضافه کردن موارد موجود
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sconnection As String
sconnection = "workstation id=ZARRIN;packet size=4096;integrated security=SSPI;data source=ZARRIN;persist security info=False"
Dim objconn As New SqlClient.SqlConnection(sconnection)
objconn.Open()
Dim dagroup As New SqlClient.SqlDataAdapter("select * from number", objconn)
Dim dsgroup As New DataSet
dagroup.Fill(dsgroup, "group")
Dim tblgroup As DataTable
tblgroup = dsgroup.Tables("group")
dagroup.FillSchema(dsgroup, SchemaType.Source, "group")
Dim drcurrent As DataRow
drcurrent = tblgroup.Rows.Find(2)
drcurrent.BeginEdit()
drcurrent("no_student") =textbox1.text
drcurrent.EndEdit()
Dim objcommandbuilder As New SqlClient.SqlCommandBuilder(dagroup)
dagroup.Update(dsgroup, "group")
MsgBox("تغییرات ثبت شد")
End Sub
میخواستم ببینم چطوری میشود در یک جدول تغییراتی صورت داد
طوری که مثلا ما بخواهیم عددی را که مثلا 11 هست را 3 تای دیگر بهش اضافه کنی بدون اینکه در تکس باکس عدد قبلی را نمایش داد
درتکست باکس فقط عدد 3 را وارد کنیم ودر جدول عدد قبلی با عدد مربوطه جمع گردد و عدد 15 در جدول ذخیره شود 15=3+13
با تشکر
البته من خودم کدی نوشتم ولی طوری که میخوام نیست
ثیت تغیرات بدون اضافه کردن موارد موجود
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sconnection As String
sconnection = "workstation id=ZARRIN;packet size=4096;integrated security=SSPI;data source=ZARRIN;persist security info=False"
Dim objconn As New SqlClient.SqlConnection(sconnection)
objconn.Open()
Dim dagroup As New SqlClient.SqlDataAdapter("select * from number", objconn)
Dim dsgroup As New DataSet
dagroup.Fill(dsgroup, "group")
Dim tblgroup As DataTable
tblgroup = dsgroup.Tables("group")
dagroup.FillSchema(dsgroup, SchemaType.Source, "group")
Dim drcurrent As DataRow
drcurrent = tblgroup.Rows.Find(2)
drcurrent.BeginEdit()
drcurrent("no_student") =textbox1.text
drcurrent.EndEdit()
Dim objcommandbuilder As New SqlClient.SqlCommandBuilder(dagroup)
dagroup.Update(dsgroup, "group")
MsgBox("تغییرات ثبت شد")
End Sub