怎么用data控件把一个表中的全部某一项全部列举到list控件.

Question

ID Name Sex Age Salary Extra
98001 王朋      f 21 2400 500
98002 吕小海    m 26 2800 900
98003 张玲      f 29 2600 200
98004 刘佳      f 31 1800 100
98005 李彬      m 27 3000 700
98006 田方      f 22 1900 300
98007 宗小楠    f 25 2700 800
98008 韩冰      m 20 2300 400表名:employee比如怎么用data(data1)控件把一个表中的全部某一项(例如所有age)全部列举到list(list1)控件中.并且通过修改list控件更新数据库.

Answer 1

sql="select age from employee"
rsTable.open sql,conn
For i = 1 To 10
   List1.AddItem rsTable.Fields(0).Value
   rsTable.MoveNext
Next但是list控件裡的內容不能修改，

Answer 2

修改一點:
sql="select age from employee"
rsTable.open sql,conn
For i = 0 To rsTable.recordCount
   List1.AddItem rsTable.Fields(0).Value
   rsTable.MoveNext
Next但是list控件裡的內容不能修改，要修改數據庫裡的內容呆以用datagrid,也可以用其他方法。

Answer 3

可以通过修改数据库的age字段的数据来达到修改list里的内容的

Answer 4

'工程->引用 Microsoft DAO3.6 Object Library
'窗体上放一个TextBox 、ListBox 、CommandButton ListBox的 Style 设成 1Option Explicit
    Public mIndex As Integer
    Public mDbs As Database
    Public mWrk As Workspace'保存修改结果
Private Sub Command1_Click()
    mDbs.Execute ("Update employee Set Age = " & CStr(Text1.Text) & " Where ID =" & CStr(mIndex))
End SubPrivate Sub Form_Load()
Dim i As Integer
Dim mRst As Recordset
    Set mWrk = CreateWorkspace("", "admin", "", dbUseJet)
    Set mDbs = mWrk.OpenDatabase(App.Path & "\db1.mdb")
    Set mRst = mDbs.OpenRecordset("Select * From employee", dbOpenDynaset, dbReadOnly)
    With mRst
        Do While Not .EOF
            List1.AddItem .Fields(3), .Fields(0)      '这里我用你employee的ID字段和ListBox各Item的Index值相关联
            .MoveNext      '由于VB要求ListBox的Item的Index值只能设为由0起的整数，所以我这里employee的ID字段值是0 、1 、2....而不是98001、98002....
        Loop
    End With
    mRst.Close
    Set mRst = Nothing
End SubPrivate Sub List1_ItemCheck(Item As Integer)
    Text1.Text = List1.List(Item)
    mIndex = Item
End SubPrivate Sub Text1_Change()
    List1.List(mIndex) = Text1.Text
End Sub

Answer 5

ListBox功能不多，用来做修改和显示效果不如MSHFlexGrid、ListView、DataGrid......建议用ADO