Excel的VBA連線資料庫方法

sub getdata()     

dim strconn as string, strsql as string

dim conn as adodb.connection

dim ds as adodb.recordset

dim col as integer

'清空電子**的所有資料

cells.clear

'連線資料庫的字串

strconn = "provider=sqloledb.1;persist security info=true;user id=name;password=pwd;initial catalog=dataname;data source=servername"

'查詢語句

strsql = "select * from table1"

set conn = new adodb.connection

set ds = new adodb.recordset

'開啟資料庫連線

conn.open strconn

with ds

'根據查詢語句獲得資料

.open strsql, conn

'自動控制加入所有列標題

for col = 0 to ds.fields.count - 1

'請注意offset(0, col)中的引數一定要正確噢

range("a1").offset(0, col).value = ds.fields(col).name

next

'加入所有行資料

range("a1").offset(1, 0).copyfromrecordset ds

end with

'以下是關閉資料庫連線和清空資源

set ds = nothing

conn.close

set conn = nothing

end sub

做完上面的模組後,要呼叫它就要加入乙個事件:

'我這個是加入乙個工作薄開啟時就執行getdata方法,也就是自動載入資料

private sub workbook_open()

end sub

Excel的VBA連線資料庫方法

sub getdata dim strconn as string,strsql as string dim conn as adodb.connection dim ds as adodb.recordset dim col as integer 清空電子 的所有資料 cells.clear 連線...

用連線資料庫的方式讀取excel

之前喜歡用 hssfworkbook直接將excel讀取到workbook中，這樣直接對sheet進行解析。可是當資料量很大，資料檔案到5m以後c 的記憶體占用很大，就會很卡了。所以改用這種方法讀取到dataset中，再對資料進行解析。直接上 public static dataset getexc...

連線資料庫

2 documents 目錄就是我們可以用來寫入並儲存檔案得地方，一般可通過 nsarray paths nssearchpathfordirectoriesindomains nsdocumentdirectory,nsuserdomainmask,yes nsstring documentsdi...