ifix

連接

SQL

和讀寫

EXCEL

的方法

1228

人閱讀

|?0

條評論

發布于：

2008-9-1?10:04:00

連

SQLSERVER

Dim?rsADO?As?ADODB.Recordset

Dim?cnADO?As?ADODB.Connection

Dim?Sql?As?String

Sql?=?'SELECT?*?FROM

數據庫

where

日期

=?’'?&?Date?&?'’'

Set?cnADO?=?New?ADODB.Connection

Set?rsADO?=?New?ADODB.Record

set?cnADO.ConnectionString?=?'Provider?=?Microsoft?OLE?DB?Provider?for?ODBC?Drivers;driver=sql

server;server=

服務器

;UID=sa;PWD=;database=

數據庫

;'

cnADO.Open?rsADO.CursorLocation?=?adUseClient?’

寫

SQL?server

rsADO.Open?Sql,?cnADO,?adOpenStatic,?adLockOptimistic

If?rsADO.RecordCount?=?0?Then

rsado.addnew

End?If

With?rsADO?!

數據項

=...?...

end?with

rsADO.Update

rsADO.Close

Set?cnADO?=?Nothing

Set?rsADO?=?Nothing

’

讀

SQL?SERVER?’

改一個地方：

rsADO.Open?Sql,?cnADO,?adOpenDynamic,?adLockUnspecified,?-1

寫到

EXCEL

Dim?objExcel?As?Object

Dim?xlBook?As?Object

Dim?xlSheet?As?Object

Dim?Filename1?As?String

Dim?Filename2?As?String

Dim?FSO?As?Object

《新程序員》：云原生和全面數字化實踐50位技術專家共同創作，文字、視頻、音頻交互閱讀

總結

以上是生活随笔為你收集整理的ifix从sqlserver里读数据_ifix连接SQL和读写EXCEL的方法的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。