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...