zarrin_306
دوشنبه 03 مهر 1385, 00:24 صبح
سلام
حلول ماه مبارک رمضان بر شما مبارک
آقا من این کد رو بطور صحیح نوشتم که بدون اشکال هست
Dim sconnectionstring As String
sconnectionstring = "workstation id=ZARRIN;packet size=4096;integrated security=SSPI;data source=ZARRIN;persist security info=False;initial catalog=master"
Dim objconn As New SqlClient.SqlConnection(sconnectionstring)
objconn.Open()
Dim dagroup As New SqlClient.SqlDataAdapter("select * from q4", objconn)
Dim dsgroup As New DataSet
dagroup.Fill(dsgroup, "group")
Dim tblgroup As DataTable
tblgroup = dsgroup.Tables("group")
Dim drcurrent As DataRow
drcurrent = tblgroup.NewRow
drcurrent("id") = TextBox1.Text
drcurrent("nam") = TextBox2.Text
'drcurrent("onoff") = CheckBox1.Checked
'drcurrent("no") = NumericUpDown1.Value
tblgroup.Rows.Add(drcurrent)
Dim objcommandbuilder As New SqlClient.SqlCommandBuilder(dagroup)
dagroup.Update(dsgroup, "group")
MsgBox("ثبت اشتراک با موفقیت انجام شد")
اما الان اگر ما تعدادی drcurrent دیگر اضافه کنیم دیگه در update کردن مشکل پیدا میکنه و نمیتونه اونرو در جدول ذخیره کنه
بطور مثال اگر کد به شکل زیر باشه در عمل به مشکل بالا روبرو میشه
Dim sconnectionstring As String
sconnectionstring = "workstation id=ZARRIN;packet size=4096;integrated security=SSPI;data source=ZARRIN;persist security info=False;initial catalog=master"
Dim objconn As New SqlClient.SqlConnection(sconnectionstring)
objconn.Open()
Dim dagroup As New SqlClient.SqlDataAdapter("select * from q4", objconn)
Dim dsgroup As New DataSet
dagroup.Fill(dsgroup, "group")
Dim tblgroup As DataTable
tblgroup = dsgroup.Tables("group")
Dim drcurrent As DataRow
drcurrent = tblgroup.NewRow
drcurrent("id") = TextBox1.Text
drcurrent("nam") = TextBox2.Text
drcurrent("famil") = TextBox3.Text
drcurrent("add") = TextBox4.Text
drcurrent("tel") = TextBox5.Text
drcurrent("his") = TextBox6.Text
drcurrent("time") = TextBox7.Text
drcurrent("opera") = TextBox8.Text
drcurrent("onoff") = CheckBox1.Checked
drcurrent("offoff") = CheckBox2.Checked
drcurrent("eza") = NumericUpDown1.Value
drcurrent("no") = NumericUpDown1.Value
drcurrent("free") = CheckBox4.Checked
drcurrent("offer") = TextBox9.Text
drcurrent("same") = CheckBox3.Checked
drcurrent("per") = TextBox10.Text
tblgroup.Rows.Add(drcurrent)
Dim objcommandbuilder As New SqlClient.SqlCommandBuilder(dagroup)
dagroup.Update(dsgroup, "group")
MsgBox("ثبت اشتراک با موفقیت انجام شد")
راهش رو شما بلد نیستید ؟
با تشکر از دوستان
حلول ماه مبارک رمضان بر شما مبارک
آقا من این کد رو بطور صحیح نوشتم که بدون اشکال هست
Dim sconnectionstring As String
sconnectionstring = "workstation id=ZARRIN;packet size=4096;integrated security=SSPI;data source=ZARRIN;persist security info=False;initial catalog=master"
Dim objconn As New SqlClient.SqlConnection(sconnectionstring)
objconn.Open()
Dim dagroup As New SqlClient.SqlDataAdapter("select * from q4", objconn)
Dim dsgroup As New DataSet
dagroup.Fill(dsgroup, "group")
Dim tblgroup As DataTable
tblgroup = dsgroup.Tables("group")
Dim drcurrent As DataRow
drcurrent = tblgroup.NewRow
drcurrent("id") = TextBox1.Text
drcurrent("nam") = TextBox2.Text
'drcurrent("onoff") = CheckBox1.Checked
'drcurrent("no") = NumericUpDown1.Value
tblgroup.Rows.Add(drcurrent)
Dim objcommandbuilder As New SqlClient.SqlCommandBuilder(dagroup)
dagroup.Update(dsgroup, "group")
MsgBox("ثبت اشتراک با موفقیت انجام شد")
اما الان اگر ما تعدادی drcurrent دیگر اضافه کنیم دیگه در update کردن مشکل پیدا میکنه و نمیتونه اونرو در جدول ذخیره کنه
بطور مثال اگر کد به شکل زیر باشه در عمل به مشکل بالا روبرو میشه
Dim sconnectionstring As String
sconnectionstring = "workstation id=ZARRIN;packet size=4096;integrated security=SSPI;data source=ZARRIN;persist security info=False;initial catalog=master"
Dim objconn As New SqlClient.SqlConnection(sconnectionstring)
objconn.Open()
Dim dagroup As New SqlClient.SqlDataAdapter("select * from q4", objconn)
Dim dsgroup As New DataSet
dagroup.Fill(dsgroup, "group")
Dim tblgroup As DataTable
tblgroup = dsgroup.Tables("group")
Dim drcurrent As DataRow
drcurrent = tblgroup.NewRow
drcurrent("id") = TextBox1.Text
drcurrent("nam") = TextBox2.Text
drcurrent("famil") = TextBox3.Text
drcurrent("add") = TextBox4.Text
drcurrent("tel") = TextBox5.Text
drcurrent("his") = TextBox6.Text
drcurrent("time") = TextBox7.Text
drcurrent("opera") = TextBox8.Text
drcurrent("onoff") = CheckBox1.Checked
drcurrent("offoff") = CheckBox2.Checked
drcurrent("eza") = NumericUpDown1.Value
drcurrent("no") = NumericUpDown1.Value
drcurrent("free") = CheckBox4.Checked
drcurrent("offer") = TextBox9.Text
drcurrent("same") = CheckBox3.Checked
drcurrent("per") = TextBox10.Text
tblgroup.Rows.Add(drcurrent)
Dim objcommandbuilder As New SqlClient.SqlCommandBuilder(dagroup)
dagroup.Update(dsgroup, "group")
MsgBox("ثبت اشتراک با موفقیت انجام شد")
راهش رو شما بلد نیستید ؟
با تشکر از دوستان