شما فقط مجموعه ای از داده ها زا که بهطور رابطه ای از آداپتر گرفتید و در دیتا ست قرار داره که حالا وقتی درون پروژه هستی با داده های درون دیتا ست کار میکنی نه با داده های آزاد درون جدولت
احتمالاً درون کدی که برای به روز درآوری و ذخیره و.. که نوشتی جدول رو بروز نمیکنید
به همین دلیل است که جدول به روز نمیشود
حال شما ابتدا کدهای قبلی رو به صورت متنی درآورید و فقط کد Update رو فعال کنید و امتحان کنید ببینید آیا جدول به روز میشود یا نه
حال کد زیر رو نگاهی بنداز
این کد چند رکورد را از نوع Bit به جدوا اضافه میکند و همچنین از نوع متنی را
به هر حال هم جدول به روز میشود و هم دیتا ست
Try
Dim sconnectionstring2 As String
sconnectionstring2 = "integrated security=SSPI;initial catalog=Recall;persist security info=False"
workstation id=ZARRIN;packet size=409;
Dim objconn2 As New SqlClient.SqlConnection(sconnectionstring2)
'objconn2.Op()
Dim dagroup2 As New SqlClient.SqlDataAdapter("select * from Melodi", objconn)
Dim dsgroup2 As New DataSet
Me.daMelodi.Fill(Me.DsMelodi2, "group2")
daMelodi.Fill(DsMelodi2, "group2")
Dim tblgroup2 As DataTable
tblgroup2 = DsMelodi2.Tables("group2")
Dim drcurrent2 As DataRow
drcurrent2 = tblgroup2.NewRow
drcurrent2("M1") = CheckBox1.Checked
drcurrent2("M2") = CheckBox2.Checked
drcurrent2("M3") = CheckBox3.Checked
drcurrent2("M4") = CheckBox4.Checked
drcurrent2("M5") = CheckBox5.Checked
drcurrent2("M6") = CheckBox6.Checked
drcurrent2("M7") = CheckBox7.Checked
drcurrent2("OpenFile") = TextBox1.Text
drcurrent2("FindRowe") = TextBox2.Text
tblgroup2.Rows.Add(drcurrent2)
Dim objcommandbuilder As New OleDb.OleDbCommandBuilder(daMelodi)
daMelodi.Update(DsMelodi2, "group2")
Dim msg As New msg
msg.Label1.Text = "ãáæÏí ÇäÊÎÇÈ&iacut e; Èå íÇÏÂæÑ&iacut e; ãÊÕá ÔÏ"
msg.ShowDialog()
Me.Close()
Catch ex As Exception
End Try