VB怎样读取数据库并显示出来？

VB读取数据库并显示出来的方法可参考下面用控件的实现方法：

ACCESS数据库，用VB6里的Data控件，选中它，设置属性：

DatabaseName 属性：连接到数据库文件

RecordSource 属性：连接数据表（可以用Select语句返回记录集）

然后使用它的：data1.Recordset.Fields(“字段名”)，就可以返回获得你说的内容了。

第一步：添加列头

可在form_load里边添加，如下：

'初始化

ListView1.FullRowSelect

=

True

'（允许整行选择）

listview1.gridlines=true

'(显示网格)

listview1.checkboxs=true

'显示checkboxs框

listview1.view=3

'以报表形式显示

ListView1.ColumnHeaders.Clear

ListView1.ColumnHeaders.Add

1,

,

"姓名",

1000

ListView1.ColumnHeaders.Add

2,

,

"性别",

500

ListView1.ColumnHeaders.Add

3,

,

"职称",

1500

ListView1.ColumnHeaders.Add

4,

,

"电话",

1000

第二步，添加数据

Dim

itmX

As

ListItem

Set

itmX

=

lvw.ListItems.Add(参数，参数，参数，……)

'这些参数都可以为空，具体你可以看看msdn

itmX.text="李四"

itmX.SubItems(1)

=

"雄性"

itmX.SubItems(2)

=

"大将军"

itmX.SubItems(3)

=

"10086"

第三步，取得行数据

Private

Sub

ListView1_ItemClick(ByVal

Item

As

MSComctlLib.ListItem)

Text1

=

Item.Text

Text2

=

Item.SubItems(1)

Text3

=

Item.SubItems(2)

Text4

=

Item.SubItems(3)

End

Sub

试一试就能知道怎么用了，快去试试吧

---