一个 关于文件导出的问题

Question

我是从sql 服务器上读取得数据 显示在listview 上 我想把现实的内容 以 access 和 Excel的形式保存在本地
  这该如何实现 
  请高手指教 
    过程最好是详细一点
  谢谢

Answer 1

从sql 服务器上读取得数据 显示在listview 上     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

Answer 2

把内容 以 access 和 Excel的形式保存在本地http://www.csdn.net/develop/read_article.asp?id=14952
http://www.csdn.net/develop/read_article.asp?id=18623