درخواست راهنمایی در مورد دیتا گرید

[aidin2345]

با سلام خدمت دوستان
من از طریق کد زیر چند تگست باکس رو پر گرده و از طریق کد زیر به دیتا گرید ویو اضافه میکنم



Dim ro As Data.DataRow
ro = Me.DataSet. fehrest.NewRow
ro("date ") = tarikh
ro("sharh ") = SharhTextBox.Text
ro("shomare ") = ShomareTextBox.Text
ro("cod_k") = Cod_kTextBox.Text
ro("nam_k") = Nam_kComboBox.Text
ro("cod_m") = Cod_mTextBox.Text
ro("nam_m") = Nam_mComboBox1.Text
ro("saat_sabt") = (Now.Minute.ToString + " : " + Now.Hour.ToString)

Me.DataGridView1.Rows.Add(ro)

Me.DataSet.fehrest.AcceptChanges()




اما بار دوم مقادیر سطر اول رو تغییر داده و از بین میبره


از طریق کد های زیر خواستم مشکل رو حل کنم ولی متاسفانه جواب نداد



Me.DataSet.fehrest.EndInit()
Me. fehrestBindingSource.AddNew()


تست کردم که متاسفانه خط اول فایده ای نداشت ولی خط دوم مشکل رو حل میکرد اما موقع ذخیره یک ردیف خالی به دیتابیس اضافه میکرد

[Fery666]

برای ثبت به نظرم از این روش استفاده کن :




Dim StrCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Computer.FileSystem.CurrentDirectory & "\DB.mdb;Persist Security Info=False"
Dim con As New OleDb.OleDbConnection(StrCon)

con.Open()

strsql = "Select * From Kala"
DS = New DataSet
DA = New OleDbDataAdapter(strsql, con)
DA.Fill(DS, "Kala")
DT = DS.Tables("Kala")
DRow = DT.NewRow

DRow("CodeK") = t_cod.Text
DRow("NameK") = t_name.Text
DRow("TedadK") = t_tedad.Text

DT.Rows.Add(DRow)
Dim CB As New OleDbCommandBuilder(DA)
DA.Update(DS, "Kala")
con.Close()
dgview()


برای نمایش در DataGrid هم از این روش .




Private Sub dgview()
On Error Resume Next




con.Open()
DS = New DataSet
DV = New DataView
strsql = "Select * From Kala"
DA = New OleDbDataAdapter(strsql, con)
DS.Clear()
DA.Fill(DS, "Kala")
DV = DS.Tables("Kala").DefaultView
dg1.DataSource = DV
Label16.Text = dg1.RowCount
con.Close()

For i = 0 To dg1.RowCount - 1 Step 2
dg1.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
Next

End Sub

[aidin2345]

سلام
دوست عزیز متشکرم از توجهتان
فقط لطف میکنین مقادیری که واسه DS و DA و DT و DV رو برام ارسال کنید .
برای مثال :

Dim con As New OleDb.OleDbConnection(StrCon)
Dim ds As New DataSet
Dim da As String
Dim dt As New DataTable

منظورم متغیر هایی که تعریف کردین هستش .
با تشکر

[Fery666]

اونا که دیگه تعریفی نداره . همشون جلوشون نوشته که چی هستن .

یعنی DS همون DataSet هستش . شما می تونین هر چیزی بنویسین بجای DS .
DataSet - OleDbDataAdapter - DataView مقادیری هستش که برای دیتابیس استفاده میشه .

[aidin2345]

سلام

منظورم تعاریف dv=dataview .. نبود . چون کدی که لطف کردین خطا میده
Dim dt As New DataTable
Dim db As New DataBase
و ...
من متغیر ها رو که به صورت استاندارد تعریف میشن تعریف کردم ولی باز حل نشد
گفتم اگر تعاریفی ( import ) کردین اونارو میخواستم .
که از یه راه دیگه حلش کردم .
به هر حال متشکرم از کمکتان .