给你看看这个就应该知道了 Sub Explistv(ll As ListView, rr As ADODB.Recordset, bt As Boolean) '将ADO记录集直接输出到LISTVIEW Dim r As New ADODB.Recordset Dim i As Integer Dim itmx As ListItem Set r = rr ll.ListItems.Clear'添加标题 If bt = True Then ll.ColumnHeaders.Clear For i = 0 To r.Fields.Count - 1 ll.ColumnHeaders.Add , , Trim(r.Fields(i).Name) Next End If '添加内容 Do While Not r.EOF Set itmx = ll.ListItems.Add(, , Trim(r.Fields(0).Value)) For i = 1 To r.Fields.Count - 1 '字符型 If r.Fields(i).Type = adChar Or adLongVarChar Or adVarChar Then itmx.SubItems(i) = IIf(IsNull(r.Fields(i).Value), " ", r.Fields(i).Value) End If '数字型 If r.Fields(i).Type = adDouble Or adNumeric Then itmx.SubItems(i) = IIf(IsNull(r.Fields(i).Value), 0, r.Fields(i).Value) End If '日期型 If r.Fields(i).Type = adDate Then itmx.SubItems(i) = Format(r.Fields(i).Value, "yyyy-MM-dd") End If Next r.MoveNext Loop 'r.Close End Sub
public cn as New ADODB.Connection 在开始的时候 先 cn.open "数据库连接字符"之后 再 在查询的时候dim r as new adodb.recodeset r.open "select * from xxxx ....",cndo hile not r.eof '加入显示记录的代码 r.movenext loopr.close
还有 要更新你不会update 或者 insert into 呀你想的 listview不能实现的 也就只有DBGRID或者datagaid可以实现了 如果你不怕速度慢的话,那你就去用绑定好了
listview不是数据感应控件
数据必须手动写程序来添加
而grid空件可以直接设置数据源来达到数据显示
那listviewG 一般用什么传值呀?
比DBGRID方便在那里?
Sub Explistv(ll As ListView, rr As ADODB.Recordset, bt As Boolean)
'将ADO记录集直接输出到LISTVIEW
Dim r As New ADODB.Recordset
Dim i As Integer
Dim itmx As ListItem
Set r = rr
ll.ListItems.Clear'添加标题
If bt = True Then
ll.ColumnHeaders.Clear
For i = 0 To r.Fields.Count - 1
ll.ColumnHeaders.Add , , Trim(r.Fields(i).Name)
Next
End If
'添加内容
Do While Not r.EOF
Set itmx = ll.ListItems.Add(, , Trim(r.Fields(0).Value))
For i = 1 To r.Fields.Count - 1
'字符型
If r.Fields(i).Type = adChar Or adLongVarChar Or adVarChar Then
itmx.SubItems(i) = IIf(IsNull(r.Fields(i).Value), " ", r.Fields(i).Value)
End If
'数字型
If r.Fields(i).Type = adDouble Or adNumeric Then
itmx.SubItems(i) = IIf(IsNull(r.Fields(i).Value), 0, r.Fields(i).Value)
End If
'日期型
If r.Fields(i).Type = adDate Then
itmx.SubItems(i) = Format(r.Fields(i).Value, "yyyy-MM-dd")
End If
Next
r.MoveNext
Loop
'r.Close
End Sub
详细查查MSDN
smallicon
list
report
就是您修改资源管理器的显示模式的四种
就用form1.text="1111" 就可以了呀
如果用UNLOAD查询结果是不是就消失了
而recordset可以根据您自己要求多定义
connection在程序结束时关闭
recordset在不使用时候关闭
LISTVIEW是不是不能实现对DB的更新?
在开始的时候 先
cn.open "数据库连接字符"之后 再 在查询的时候dim r as new adodb.recodeset r.open "select * from xxxx ....",cndo hile not r.eof
'加入显示记录的代码
r.movenext
loopr.close