VB表单中列表框数据如何绑定

Question

我在VB的表单中安装上Adodc1控件，与一个mdb数据库连接。然后又安装一个列表框Lise1，
对其DataSource属性和DataField属性进行设置，与Adodc1控件进行绑定，运行时列表框中
什么数据也没有显示，请教：这是什么原因，应如何设置？
（在表单中安装TextBox和ComboBox，进行上述设置时都能正常运行。)

Answer 1

怎么没有人回帖呀！哪位高手请解答一下，VB表单中，列表框与Adodc数据怎样进行绑定。

Answer 2

加一个模块 dataenvironment ，这个模块里应该添加个connect1连接，在它下面在添加个命令command1,对应你要操作的表。在把list的datasource与这个dataenvironment1绑定就可以了，datamember设为command1

Answer 3

我的VB表单上已经添加了一个Adodc1控件，并已经和一个.mdb数据库的表连接完成，
现在问题是如何把列表框List1和控件Adodc1进行数据绑定。请各位高手指教。

Answer 4

不用绑定，用代码将数据写入list1不就可以吗
绑定不好
给你个例子Dim rs As ADODB.Recordset
Dim msgtext As StringPrivate Sub Form_Load()
  strsql = "select * from dw_table "
  Set rs = ExecuteSQL(strsql, msgtext)
  Do While Not rs.EOF
     List1.AddItem rs.Fields("dw_mc")
     rs.MoveNext
  Loop
End Sub'下面的代码是连接数据库及读sql语句的类模块
Dim msgtext As String
Dim mrc As ADODB.RecordsetPublic Function ExecuteSQL(ByVal sql As String, MsgString As String) As ADODB.Recordset
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim sTokens() As String
    'Dim SQL As String
    On Error GoTo ExecuteSQL_Error
    sTokens = Split(sql)
    Set cnn = New ADODB.Connection
    cnn.Open ConnectString
    If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
       cnn.Execute sql
       MsgString = sTokens(0) & "query successful"
    Else
       Set rst = New ADODB.Recordset
       rst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic
      
       
       Set ExecuteSQL = rst
        
       MsgString = "查询到" & rst.RecordCount & "条纪录"
    End If
ExecuteSQL_Exit:
    Set rst = Nothing
    Exit Function
    Set cnn = Nothing
ExecuteSQL_Error:
    MsgString = "查询错误:" & Err.Description
    Resume ExecuteSQL_Exit
End FunctionPublic Function ConnectString() As String
    ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\计划管理系统.mdb;Persist Security Info=False"
End Function
你自己试试吧，

Answer 5

同样是用ADODC控件，你可以试试用datacombo控件，对他的RowSource和ListFile设置就行了

Answer 6

手动写入就可以
 提取记录集以后
 with rs
  While Not rs.EOF
     List1.AddItem rs.Fields("dw_mc")
     rs.MoveNext
   wend
end with