sarmad
سه شنبه 21 شهریور 1385, 09:41 صبح
سلام به دوستان
بنده از یه 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
بنده از یه 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