Question

VB listview 数据库问题

我现在在用VB做一个东西,不想用表格控件 打算用 listview 来显示数据库中的全部字段 使用控件ADODC连接的ACCESS数据库 不知道如何显示全部内容.期待答案.重谢...

Answer 1

顺着昨天的工程模板写了一个例子 添加的方法还是比较多的Private Sub Form_Load()'////////////////////////////////不用添加控件ado，引用了一个库Microsoft activeX Date...来处理access//////////////////////////////////////////On Error Resume Next
Dim xItem As ListItem
ListView1.View = lvwReport
For I = 1 To 2 '添加列数 根据你的数据决定i
ListView1.ColumnHeaders.Add , , "" & I & ""
Next '创建Connection对象cnn，关键New用于创建新对象
Dim cnn As New ADODB.Connection
'创建Recordset对象rs1
Dim rs1 As New ADODB.Recordset
'设置查询记录集的SQL语句，从表data中读取记录
Dim varSource As String
varSource = "select * from bb" '写入条件

If Dir("E:\" + "\data.mdb") <> "" Then
'设置连接字符串ConnectionString属性.mdb的 access文件必须用Microsoft.Jet.OLEDB.4.0 ，Access 97为3.51
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
+ " Data Source=E:\data.mdb; "
'打开到数据库的连接
cnn.Open
'设置rs1的ActiveConnection属性，指定与其关联的数据库连接
Set rs1.ActiveConnection = cnn
'设置游标类型
rs1.CursorType = adOpenStatic
'打开记录集，将从表data中读取的结果集保存到记录集rs1中
rs1.Open varSource '显示记录
If rs1.RecordCount <> 0 Then

rs1.MoveFirst Do While Not rs1.EOF '判断EOF标记属性（Endoffile） Set xItem = ListView1.ListItems.Add(, , rs1!id) ‘第一列
xItem.SubItems(1) = rs1!Name ’第二列 '以此类推。。。。 rs1.MoveNext '将游标指针移到下一条记录

Loop
Else
MsgBox "查询不到结果"
End If
'关闭记录集
rs1.Close
'关闭cnn对象
cnn.Close
Else
MsgBox ("找不到数据库")
End IfEnd Sub结果如下所用测试数据库data表bb结构

Answer 2

Private Sub Form_Load()
Label9.Caption = "文件总数:" & _
Adodc1.Recordset.RecordCount
If Adodc1.Recordset.RecordCount <> 0 Then
Adodc1.Recordset.MoveLast
a = Text1.Text
Else
a = 0
End If
Command6.Visible = False
Command7.Enabled = False
Command8.Visible = True
End Sub

Private Sub Command7_Click()
If Text5.Text = "" Or Text6.Text = "" Then
MsgBox "发文机关或文件标题没有输入", vbOKOnly, "错误提示"
Adodc1.Recordset.CancelUpdate
If Adodc1.Recordset.RecordCount <> 0 Then
Adodc1.Recordset.MoveLast
End If
Command1.Visible = True
Command2.Visible = True
Command3.Visible = True
Command4.Visible = True
Command5.Visible = True
Command6.Visible = False
Command7.Enabled = False
Command5.SetFocus
Else
Adodc1.Recordset.Update
Adodc1.Refresh
Adodc2.Refresh
a = a + 1
Dim b As String
b = DMForm1.today
Adodc1.RecordSource = "select * from 2号 where 收文日期= #" & b & "#"
Adodc1.Refresh
Adodc1.Recordset.MoveLast
Adodc2.RecordSource = "select * from 2号 where 收文日期= #" & b & "#"
Adodc2.Refresh
Label9.Caption = "文件总数:" & _
Adodc1.Recordset.RecordCount
Command1.Visible = True
Command2.Visible = True
Command3.Visible = True
Command4.Visible = True
Command5.Visible = True
Command6.Visible = False
Command7.Enabled = False
Command5.SetFocus
End If
End Sub