datacombo与textbox联系的一种方法

最新推荐文章于 2024-05-26 15:31:40 发布

chinaboyzyq

最新推荐文章于 2024-05-26 15:31:40 发布

阅读量1.8k

点赞数

分类专栏： vb6 文章标签： textbox security 2010 c

本文链接：https://blog.csdn.net/chinaboyzyq/article/details/5569024

版权

vb6 专栏收录该内容

22 篇文章 0 订阅

订阅专栏

datacombo与textbox联系的一种方法

'DataCombo1.Style选择 dbcDropdownList

Private Sub Form_Load()

    '2010-05-08 by chinaboyzyq
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
          "C:/Documents and Settings/Administrator/My Documents/11.mdb;Persist Security Info=False"
    Adodc1.CursorLocation = adUseClient
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "select * from itb2"
    Adodc1.Refresh

    Set DataCombo1.DataSource = Adodc1
    Set DataCombo1.RowSource = Adodc1
    DataCombo1.ListField = Adodc1.Recordset.Fields(0).Name
    DataCombo1.Text = DataCombo1.BoundColumn
    Text1.Locked = True
    Set Text1.DataSource = Adodc1
    Text1.DataField = Adodc1.Recordset.Fields(1).Name

End Sub

Private Sub DataCombo1_Change()
    If IsNull(DataCombo1.SelectedItem) Then Exit Sub
    Adodc1.Recordset.Move DataCombo1.SelectedItem - 1, 1

End Sub