ifix从sqlserver里读数据_ifix连接SQL和读写EXCEL的方法

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

r