listview的问题(在线等候)

Question

如何加载listview
再问一个小问题
    Dim connstring As String
    Dim conn As New ADODB.Connection
    connstring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=kyoa;Data Source=127.0.0.1"
    conn.Open connstring
    Dim rs As New ADODB.Recordset
    Dim sql As String
    sql = "select * from jb_ry "
    rs.Open sql, conn, 1, 3
我想把前面3行写成一共用文件，别的程序掉用他就行了，如何实现（调用）

Answer 1

老板要我做个数据查看程序，没搞过VB,你没是用listview显示数据吗？还是用datagrid,给点例子也行

Answer 2

在模块里定义public 变量Public conn As New ADODB.Connection       '定义数据库的连接

Answer 3

用datagrid显示数据工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
   Set DataGrid1.DataSource = Rs

Answer 4

不太明白你的意思，是动态加载吗，如果不是的话，按下ctrl-t，选择microsoft window common
controls 6.0(在前面打上对号，选择“应用”），其中就有listview控件

Answer 5

Dim Item As ListItem
    ListView1.View = lvwReport
    ListView1.ColumnHeaders.Add , , "代码", ListView1.Width / 2
    ListView1.ColumnHeaders.Add , , "真实值", ListView1.Width / 2
    
    Dim CN As New ADODB.Connection
    Dim Rs As New ADODB.Recordset    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=Report;User Id=sa;Password=sa;"
    CN.Open    Rs.CursorLocation = adUseClient
    Rs.Open "select * from table1", CN, adOpenDynamic, adLockBatchOptimistic
    Rs.MoveFirst
    Do While Not Rs.EOF
        Combo1.AddItem Rs.Fields
        Set Item = ListView1.ListItems.Add(, , Trim(Rs.Fields("lno")))
        
        Item.ListSubItems.Add , , Trim(Rs.Fields("lname"))
        Rs.MoveNext
    Loop
    Rs.Close
    CN.Close