ado如何存取excel?

问题点数：20、回复次数：2Top

1 楼dhwan（大海湾）回复于 2001-02-14 10:08:00 得分 0

建立一个指向excel的数据源，其他的与数据库一样。Top

2 楼playyuer（退休干部 卧鼠藏虫）回复于 2001-02-14 10:40:00 得分 20

Dim   adoConnection   As   New   ADODB.Connection  
  Dim   adoRecordset   As   New   ADODB.Recordset  
  'OLE   DB   +   ODBC   Driver   方式,(不建议)  
  'adoConnection.Open   "Data   Provider=MSDASQL.1;driver=Microsoft   Excel   Driver   (*.xls);DBQ=e:\temp\book2.xls"  
  'Microsoft.Jet.OLEDB.4.0   方式,(建议)  
  adoConnection.Open   "Provider=Microsoft.Jet.OLEDB.4.0;Persist   Security   Info=False;Data   Source=e:\temp\book2.xls;Extended   Properties='Excel   8.0;HDR=Yes'"  
   
   
  adoRecordset.Open   "select   *   from   [sheet1$]",   adoConnection,   adOpenKeyset,   adLockOptimistic  
  Debug.Print   adoRecordset.RecordCount  
  Dim   i   As   Integer  
  Do   Until   adoRecordset.EOF  
        For   i   =   0   To   adoRecordset.Fields.Count   -   1  
                Debug.Print   adoRecordset.Fields.Item(0).Name  
                Debug.Print   adoRecordset.Fields.Item(0).Value  
        Next   i  
        adoRecordset.MoveNext  
  Loop  
   
  '注:   OLE   DB   +   ODBC   Driver   方式不支持以下语句,但   Microsoft.Jet.OLEDB.4.0   方式支持!  
   
  adoConnection.Execute   "insert   into   [sheet1$](F1)   values(3)"  
  adoRecordset.AddNew   Array("f1",   "f2",   "f3",   "f4"),   Array(1,   2,   3,   4)  
  Top

相关问题

• excel
• microsoft
• adorecordset
• adoconnection
• oledb.4.0
• jet
• xls
• driver
• 方式
• fields

• 帖主：fb
• playyuer

• Visual Basic类图书
• Visual Basic类源码下载