Question

vb 怎样在窗口中添加一个列表显示access数据库中的内容？

Answer 1

1.新建一个Form1窗体，添加一个查询按钮，一个Listview1表格控件。
2.新建一个模块，并粘贴以下代码。
Sub 单列表表头()
Dim FimgX As ListImage

Form1.ListView1.ColumnHeaders.Clear '清除列标题
Form1.ListView1.ListItems.Clear '清除行数据
Form1.ListView1.View = lvwReport '视图模式为:报表视图
Form1.ListView1.FullRowSelect = True '整行选择
Form1.ListView1.MultiSelect = True '多行选择
Form1.ListView1.GridLines = True '显示网格
Form1.ListView1.LabelEdit = lvwManual '禁止编辑第一列

Form1.ListView1.ColumnHeaders.Add 1, , "学生编号", 1500
Form1.ListView1.ColumnHeaders.Add 2, , "姓名", 1100, lvwColumnCenter
Form1.ListView1.ColumnHeaders.Add 3, , "性别", 1000, lvwColumnCenter
End Sub

3.在窗体中粘贴以下代码
Private Sub Command1_Click()
On Error Resume Next
Dim Fliv As ListItem

ListView1.ListItems.Clear

cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\Data.mdb"
sq = "select * from 基本情况 order by 学生编号"
rs.Open sq, cn, adOpenKeyset, adLockOptimistic

If rs.RecordCount = 0 Then
MsgBox "没有查到数据", vbExclamation, "数据查询"
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
Exit Sub
End If

For i = 1 To rs.RecordCount
Set Fliv = ListView1.ListItems.Add()
Fliv.Text = rs.Fields("学生编号")
Fliv.SubItems(1) = rs.Fields("姓名")
Fliv.SubItems(2) = rs.Fields("性别")
Fliv.SubItems(3) = rs.Fields("民族")
rs.MoveNext
Next i
MsgBox "查询完成", vbInformation, "查询"

rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub

Private Sub Form_Load() '加载表格的标题头
单列表表头
End Sub

Answer 2

能把问题描述清楚点不？是Listbox列表吗？

追问

能不能用DataGrid做？

追答

这当然可以了，datagrid就用于显示数据库中数据的数据网格……
先要连接数据库，然后把查询到的数据直接显示到datagrd就可以了。

追问

可以具体说说吗？或者有简单的程序我参考一下。或者提供链接也行，万分感谢

追答

用adodc控件和datagrid控件
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\datatable.mdb;Persist Security Info=False;Jet OLEDB:Database Password=*****"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from table"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
代码中“datatabel”是你实际数据库文件的名字
“tabel”是数据库文件中的一个表名；

Answer 3

用datagrid不可以么

追问

我就是想用DataGrid做，可以说说具体怎么做吗？

追答

嗯，还以为你有别的想法呢，这么问，人家就好回答了撒

Answer 4

不知道