استفاده از datagrid و بروز نشدن اطلاعات آن

[sarmad]

سلام به دوستان


بنده از یه datagrid و یه combobox در فرم استفاده کردم که در combobox لیستی از فیلدهای اسم

رو که در بانک هست نمایش میده و کاربر با انتخاب کردن هر کدوم از اون اسم ها datagird هم

مشخصات دیگر اون record رو نمایش میده اما مشکل من اینجاست که datagrid اطلاعات

خودش رو اصلا به روز نمیکنه و فقط در dataset این اطلاعات به روز میشن اینم از کد

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cmd As String = "select * from table1"
Dim constring As String = "provider = microsoft.jet.oledb.4.0;" & "data source =c:\1\1.mdb"
Dim myconnection As OleDbConnection = New OleDbConnection(constring)
'baz kardane connection
myconnection.Open()
'ferestadane commnad
Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd, myconnection)
'create place for data
Dim ds As DataSet = New DataSet()
'por kardane dataset az jadvale table1
da.Fill(ds, "table1")

Dim DataViewManager1 As DataViewManager = ds.DefaultViewManager
ComboBox1.DataSource = DataViewManager1
ComboBox1.DisplayMember = "table1.shomareozviat"
myconnection.Close()





End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
ff = ComboBox1.SelectedText
Dim cmd As String = "Select * from table1 where name Like '" & ff & "%'"
Dim constring As String = "provider = microsoft.jet.oledb.4.0;" & "data source =c:\1\1.mdb"
Dim myconnection As OleDbConnection = New OleDbConnection(constring)
'open connection
myconnection.Open()
'send command
Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd, myconnection)
'create place for data
Dim ds As DataSet = New DataSet()
'por kardane dataset az jadvale table1
da.Fill(ds, "table1")

DataGrid1.DataBindings.Add(New Binding("datasource", ds, "table1"))
'DataGrid1.Columns("name").HeaderText = "نام"
'DataGrid1.Columns("famel").HeaderText = "خانوادگی"
'DataGrid1.Columns("fname").HeaderText = "نام پدر"
'DataGrid1.Columns("adress").HeaderText = "آدرس"
'DataGrid1.Columns("tel").HeaderText = "تلفن"
'DataGrid1.Columns("shenas").HeaderText = "شناسنامه"
' DataGrid1.Columns("reshte").HeaderText = "رشته"
' DataGrid1.Columns("shoz").HeaderText = "عضویت"
' DataGrid1.Columns("toz").HeaderText = "تاریخ"
' DataGrid1.Columns("school").HeaderText = "مدرسه"
' DataGrid1.Columns.Remove("book")
' DataGrid1.Columns.Remove("tbook")
' DataGrid1.Columns.Remove("bbook")
' DataGrid1.Columns.Remove("memo")
myconnection.Close()
DataGrid1.DataBindings.Clear()
End Sub

[zarrin_306]

مشکل رو میدونم اما انشاء الله از 26 شهریور میتونم جوابت رو بدم
اما اگر دیدی جوابی پیدا نکردی خود پروژه رو در این جا قرار بده
انشاء الله که جوبش رو گیر بیاری

[sarmad]

ممنون

اما چرا اینقدر دیر؟

این رو هم باید تا 23 تحویل بدم!

فعلا