VB2005的combobox选择后不能更新到数据库中

来源:百度知道 编辑:UC知道 时间:2024/05/21 06:41:55
我有一个数据库,A 表的“供货单位”上写了个列表框,采用B表的单位名称作为列表框的条目,我已经做好了界面,代码如下,编译时也没有错误,但是选择下拉列表框内容后不能更新表A的内容。
Private Sub 供货单位TextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles 供货单位TextBox.GotFocus
ComboBox1.Visible = True
ComboBox1.Text = 供货单位TextBox.Text
End Sub
' 当用户选择下拉列表框时改变“供货单位”单元格的内容

Private Sub combobox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Dim rukudan_row As Integer
ComboBox1.Text = ComboBox1.SelectedText
rukudan_row = 入库单信息DataGridView.CurrentRow.Index
BiologicBaseDataSet.入库单信息.Rows(rukudan_row)("供货单位") = ComboBox1.Text
BiologicBaseDataSet.入库单信息.Rows(rukudan_row).AcceptChanges()
End Sub

Private Sub ComboBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.LostFocus
ComboBox1.Visible = False
End Sub
不好意思,我是初学者。我还是不明白,我的数据库是ACCESS2003的,包括两个表“供货单位信息”和“

用SqlCommand和SqlDataReader直接对数据库执行视图吧。
DataSet表示的是内存中表的另一个副本,所以你对它进行修改只是在对内存中表的副本进行修改,要把改动保存到物理的表上才行。
就像你在WORD中对文章进行了修改,但是你没有按保存,自然是白搭。

我就你的问题看了一下,你还少一个与数据库连接的控件ADODC。

数据库连接Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="数据库路径";Persist Security Info=False"
Adodc1.RecordSource = "select 查询语句"
Adodc1.Refresh

Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0) = Trim(ComboBox1.SelectedText)
Adodc1.Recordset.Fields(1) = Trim(.....)
Adodc1.Recordset.Update

VB是这样, .NET 思想差不多,你自己看看吧

你将源代码压缩之后,发到kansol@126.com,我帮你解决