ACCESS数据库升级到SQL数据库(四)控件的绑定

设计了一个对话框来绑定、更新数据看，包括几个文本框、combobox和一个图片框

绑定很顺利

1 　　　　 Dim adapt As New Odbc.OdbcDataAdapter(c_str, connect)
2         Dim table As New DataTable
3         adapt.Fill(table)
4         Me.TextBox1.DataBindings.Add("Text", table, "姓名")
5         Me.CheckBox1.DataBindings.Add("Checked", table, "性别")
6         Me.PictureBox1.DataBindings.Add("Image", table, "头像")


更新的时候出问题了，数据无法更新

        Dim m As New Odbc.OdbcCommandBuilder(adapt)
　　　　MsgBox(table.Rows(0).RowState)  '检查数据行状态
       MsgBox(adapt.Update(table)).ToString()

检查数据行状态：总是处于unchanged状态，更新0行

　　　　Me.BindingContext(table).EndCurrentEdit()       
　　　　Dim m As New Odbc.OdbcCommandBuilder(adapt)
　　　　MsgBox(table.Rows(0).RowState)  '检查数据行状态
        MsgBox(adapt.Update(table)).ToString()

加入Me.BindingContext(table).EndCurrentEdit()，调试成功。。。。。
EndCurrentEdit：结束所有被绑定的控件结束编辑状态

 

posted on 2013-10-26 13:43  lizarus  阅读(222)  评论(0)    收藏  举报