[已解决]新建了个EXCEL 想用EXCEL LISTVIEW 调用mdb内容，求指点

93974308

Private Sub UserForm_Initialize()
With ListView1 '初始化listview
.ColumnHeaders.Add , , "年龄", 60, lvwColumnLeft
.ColumnHeaders.Add , , "性别", 60, lvwColumnCenter
.ColumnHeaders.Add , , "籍贯", 70, lvwColumnCenter
.View = lvwReport '以报表的格式显示
End With
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection '连接数据库
Set rs = New ADODB.Recordset
cn.Open "provider=microsoft.jet.oledb.4.0;data source=D:/db1.mdb"
rs.Open "student", cn, adOpenKeyset, adLockBatchOptimistic '数据表student
Do While Not rs.EOF
With ListView1.ListItems.Add() '添加记录
.Text = rs.Fields("年龄") '添加第一列内容
.SubItems(1) = rs.Fields("性别") '添加第二列内容
.SubItems(2) = rs.Fields("籍贯") '添加第三列内容
End With
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
cn.Close
End Sub  哪里错了，为什么说用户名未定义

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-18 14:31

传附件吧。

跳转到最佳答案楼层

hwc2ycy

传附件吧。