listview填充数据.docVIP

listview填充数据 Private Sub command1_click() Dim MyConStr As String 连数据库字符串 Dim sqlstr As String 查询语句 Dim OutStr As String 输出结果 Dim a As String 对应表中的字段a b c d Dim b As String Dim c As String Dim d As String Dim conn2 As New ADODB.Connection 连接对象 MyConStr = rovider=SQLOLEDB.1ersist Security Info=True;User ID=saassword=gr;Initial Catalog=GR;Data Source=10.10.6.168 conn2.Open MyConStr 建立数据库连接 Dim rs As New ADODB.Recordset 创建数据集对象 sqlstr = select * from TJXT rs.Open sqlstr, conn2, 1, 1 读取数据到记录集 a = RTrim(LTrim(rs(姓名))) b = RTrim(LTrim(rs(部门))) c = RTrim(LTrim(rs(品牌))) d = RTrim(LTrim(rs(配置))) OutStr = a + b + c + d ListView1 ------------------------------此处如何用listview rs.Close Set rs = Nothing Set conn2 = Nothing MsgBox 成功读取数据，请查看！ End Sub 用 DataGrid， 直接 Set DataGrid1.DataSource = rs 即可，简单：Private Sub Command1_Click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.Open ………… rs.CursorLocation = adUseClient rs.Open select 姓名,部门,品牌,配置 from TJXT, cn, adOpenKeyset, adLockOptimistic Set DataGrid1.DataSource = rs End Sub Private Sub Form_Load() On Error GoTo ErrProceed Dim ObjConnTmp As New ADODB.Connection, DataSource As String DataSource = 数据库名 ObjConnTmp.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0; Data Source= DataSource ; ObjConnTmp.Open Dim ObjTmpRs As New ADODB.Recordset Set ObjTmpRs.ActiveConnection = ObjConnTmp ObjTmpRs.CursorType = adOpenDynamic ObjTmpRs.LockType = adLockOptimistic 设置游标类型 StrTmpSQL = Select * from 数据库表名 ObjTmpRs.Open StrTmpSQL FrmMain.ListView1.View = lvwReport FrmMain.ListView1.ColumnHeaders.Clear Call ModListView.SubListViewHeader(FrmMain.ListView1, ObjRsTmp) 加标题 FrmMain.ListView1.ListItems.Clear Call ModListView.SubListViewListItem(FrmMain.ListView1, ObjRsTmp, End) 加内容 ObjRsTmp.Close: Set ObjRsTmp = Nothing ObjConnTmp.Close: Set ObjConnTmp = Nothing Exit Sub ErrProceed: MsgBox 程序发生错误，原因如下: vbCrLf Err.Description End Sub Public Sub SubListViewHeader(ByVal ListViewName A