sub new_load()
dim dbconnection as new adodb.connection
dim rsado as new adodb.recordset
dim cat as object
dim tbl as object
dim lrow as long
dim szbookname, myccmd as string
dim szconnect as string
dim sztablename as string
szbookname = thisworkbook.path & "/data.xls"
szconnect = "provider=microsoft.jet.oledb.4.0;" & _
"data source=" & szbookname & ";" & _
"extended properties=excel 8.0;"
set dbconnection = new adodb.connection
dbconnection.open szconnect
mycmd = "select master,sub,sales from [sheet1$] "
rsado.open mycmd, dbconnection, adopenstatic
dim i as integer
' i = rsado.recordcount
rsado.movefirst
for i = 1 to rsado.recordcount
if not rsado.eof then
cells(i, 1) = rsado.fields(0)
cells(i, 2) = rsado.fields(1)
cells(i, 3) = rsado.fields(2)
rsado.movenext
end if
next
dbconnection.close
set cat = nothing
set dbconnection = nothing
end sub
winform做的excel與資料庫的匯入匯出
閒來無事，就來做一個常用的demo，也方便以後查閱 先看效果圖 中間遇到的主要問題是獲取當前連線下的所有的資料庫以及資料庫下所有的表 在網上查了查，找到如下的方法 首先是要先建立一個連線 connmaster new sqlconnection string.format data source i...
把DBGRID資料直接匯入EXCEL中的過程
忙了一天就忙了個excel匯出，以為很好了，雖然慢點，沒想到臨了還真整出一個更好的匯入方法。可喜可賀。只可惜一天就這麼點收穫啊。大家看看把。直接從excel表顯示資料。要uses comobj private procedure copydbdatatoexcel target tdbgrid 定義...
把資料庫中的資料匯出到excel
exec sp configure ad hoc distributed queries 0 reconfigure exec sp configure show advanced options 0 reconfigure to allow advanced options to be chang...
把Excel表中的資料匯入資料庫
需求 在實現競價 時，需要把excel表中的資料週期地有條件地匯入到 位表中。這裡結合資料庫作業實現。步驟 1 生成一個excel表 工作表名稱 website 包含的列 spid,spname,spiniprice,spincextent,spnowprice,spimage,spbidnum,s...
把Excel的資料匯入到資料庫
將excel作為資料來源，將資料匯入資料庫，是ssis的一個簡單的應用，下圖是示例excel，資料列是code和name 第一部分，excel中的資料型別是數值型別 1，使用ssdt建立一個package，建立excel data source component，ssdt會在connection ...