首先開啟excel，然後右鍵點選「sheet1」，選擇選單最下方的「檢視**」，複製下邊的指令碼到vbscript編輯器內，之後 點「工具-引用」再找到microsoft activex date objects 2.8勾選一下，點選確定，之後執行**就行了。
public function daadfa()
'首先引用ado --------- 點「工具-引用」再找到microsoft activex date objects x.x library
dim conn as new adodb.connection, connstr as string, db as string, rs as new adodb.recordset, i as long, rows as long
db = "c:\1\db.mdb"
connstr = "provider=microsoft.jet.oledb.4.0;data source=" & db
on error resume next
conn.open connstr
rs.open "select * from userinfo", conn, 1, 3
if rs.eof or rs.bof then
msgbox "it is nothing."
else
'如果access中username的值等於seven，那麼就把當前記錄的userid值放入excel表的第10行第10列內
'if rs("username") = "seven" then
'worksheets("sheet1").cells(10, 10).value = rs("userid")
'end if
'將access中沒一列的標題用迴圈抓取過來，並將其存放到excel的sheet1工作表的第一行內
rows = 1
for i = 0 to rs.fields.count - 1
worksheets("sheet1").cells(1, rows).value = rs.fields(i).name
next i
'將access中每一列對應的資料用迴圈抓取過來
do until rs.eof
for i = 0 to rs.fields.count - 1
worksheets("sheet1").cells(i + 2, rows).value = rs(i)
next i
rows = rows + 1
rs.movenext
loop
end if
end function
PB 通過ODBC或OLEDB連線ACCESS
pb 通過odbc或oledb連線access 1.odbc 1.1 建立odbc資料來源 1.2 profile sqlca.dbms odbc sqlca.autocommit false sqlca.dbparm connectstring dsn xtktv uid admin pwd 00...
通過Url抓取網頁內容
近來想學習一下網頁抓取技術,監於之前沒有這方面的基礎，都只是在socke方面的程式設計，對http方面了解很少，現在到個較好的入門例子，共享學習一下，如果大家以前看過的話，就當是複習吧。還希望高手可以指導一下如何學習這方面的內容，給點指引。using system using system.text...
LINUX SHELL 抓取錯誤日誌指令碼
任何程式執行起來免不了產生很多日誌，其中錯誤日誌需要最為關心的。在某些時候會將錯誤日誌和正常日誌分開，但我們的系統卻沒有這麼做。更麻煩的是，每個小時儲存乙個日誌檔案，所以每次為了查詢當天是否有錯誤資訊需要開啟n個檔案，而且不能用grep因為需要把整個堆疊抓取下來。本人對shell完全是初學，磕磕碰碰...