关于数据库的连接？

Question

怎样连接数据库使listbox中显示的为数据库表中的某一字段？

Answer 1

其实有数据库的列表专用空件 
 选择 添加空件 中的microsoft.datalist.controls6.0(oledb)
他是一个数据库专用空件。
然后在他的属性选项中设置：：：
我是过的可以是用，

Answer 2

你用ado，读取表中的该字段就可以了阿，然后写到listbox中不就可以了吗？

Answer 3

hehe 
用ado控件，当然写代码好点，绑定不是很方便，代码如下：
  通用：PUBLIC W AS STRING
        private sql as string
-----------------------------------------------------------------------
Private Sub Form_Load()
      If Right(App.Path, 1) = "\" Then
        w = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & App.Path & "数据库名.mdb;Persist Security Info=False"
    Else
        w = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & App.Path & "\数据库名.mdb;Persist Security Info=False"    End If
    Ado.ConnectionString = w
    sql = "select * from PartsInfo"
    Ado.RecordSource = sql
    Ado.Refresh
    a                           '调用A过程
--------------------------------------------------------------------------------
private sub a()
   Private Sub a()
    With Ado.Recordset
       List1.additem = .Fields("字段名")
       List1.additem = .Fields("字段名")
       List1.additem = .Fields("字段名")
       List1.additem = .Fields("字段名")
       List1.additem = .Fields("字段名")
    End With
End Sub
----------------------------------------------------------------------------------

Answer 4

w 要定义为公有变量，因为你可能在别的窗体也要用到数据库，W的作用就是却的你连接的数据库在系统的什么位置 APP.Path的用法

Answer 5

hehe  
错了
Private Sub a()
    With Ado.Recordset
       List1.additem ".Fields("字段名")"
       List1.additem ".Fields("字段名")"
       List1.additem  ".Fields("字段名")"
       List1.additem ".Fields("字段名")"
       List1.additem ".Fields("字段名")"
    End With
End Sub