ghaderif
28-06-2011, 15:16
فرض کنید یک combobox داریم که اطلاعات آن توسط یک فیلد از بانک به طور اتوماتیک پر می شود، برای جستجو لازم است که اطلاعات combo بازیابی و برای ویرایش اطلاعات combo تغییر کند. چون اطلاعات از بانک توسط datarow و datatable در combobox قرار گرفته است، داده ای هم که در فیلد بانک ذخیره می شود به صورت System.Data.DataRowView ذخیره شده است، برای بازیابی و ویرایش باید چطور اطلاعات را فراخوانی یا ثبت کرد.
کد مربوط به مقداردهی combobox از طریق بانک اطلاعاتی:
Dim condoreu As SqlConnection
condoreu = New SqlConnection("Data Source=192.168.0.1;Initial Catalog=itdanesh;User ID=itd;Password=itdanesh")
condoreu.Open()
Dim strdoreu As String = "select groupcode from regedu"
Dim dadoreu As New SqlDataAdapter(strdore, condore)
Dim dsdoreu As New DataSet
dadoreu.Fill(dsdoreu, "regedu")
Dim dtdoreu As New DataTable
dtdoreu.Columns.Add("groupcode", GetType(System.String))
Dim drdoreu As DataRow
Dim dr2doreu As DataRow
For Each drdoreu In dsdoreu.Tables("regedu").Rows()
dr2doreu = dtdoreu.NewRow()
dr2doreu("groupcode") = drdoreu("groupcode")
dtdoreu.Rows.Add(dr2doreu)
Next
Cdoreu.DropDownStyle = ComboBoxStyle.DropDownList
With Cdoreu()
.DataSource = dtdore
.DisplayMember = "groupcode"
.SelectedIndex = 0
End With
condoreu.Close()
کد مربوط به مقداردهی combobox از طریق بانک اطلاعاتی:
Dim condoreu As SqlConnection
condoreu = New SqlConnection("Data Source=192.168.0.1;Initial Catalog=itdanesh;User ID=itd;Password=itdanesh")
condoreu.Open()
Dim strdoreu As String = "select groupcode from regedu"
Dim dadoreu As New SqlDataAdapter(strdore, condore)
Dim dsdoreu As New DataSet
dadoreu.Fill(dsdoreu, "regedu")
Dim dtdoreu As New DataTable
dtdoreu.Columns.Add("groupcode", GetType(System.String))
Dim drdoreu As DataRow
Dim dr2doreu As DataRow
For Each drdoreu In dsdoreu.Tables("regedu").Rows()
dr2doreu = dtdoreu.NewRow()
dr2doreu("groupcode") = drdoreu("groupcode")
dtdoreu.Rows.Add(dr2doreu)
Next
Cdoreu.DropDownStyle = ComboBoxStyle.DropDownList
With Cdoreu()
.DataSource = dtdore
.DisplayMember = "groupcode"
.SelectedIndex = 0
End With
condoreu.Close()