將excel內容保存到數據庫，通過asp

我使用下面的代碼將excel文件上傳到服務器。現在我需要將它保存到數據庫。任何人都可以指導顯式的做到這一點？將excel內容保存到數據庫，通過asp

Dim SQLStr 
SQLStr = "INSERT ALL INTO TABLENAME " 
for each file in filCollection 
    file_name = file.name 
    path = folderObj & "\" & file_name 
    Set objExcel_chk = CreateObject("Excel.Application") 
    Set ws1 = objExcel_chk.Workbooks.Open(path).Sheets(1) 
    row_cnt = 1 


     'for row_cnt = 6 to 7 
     ' if ws1.Cells(row_cnt,col_cnt).Value <> "" then 
     ' col = col_cnt 
     ' end if 
     'next  
     While (ws1.Cells(row_cnt, 1).Value <> "") 
     for col_cnt = 1 to 10  

     SQLStr = SQLStr & "VALUES('" & ws1.Cells(row_cnt, 1).Value & "')" 
     next 
     row_cnt = row_cnt + 1 
     WEnd 


    'objExcel_chk.Quit 
    objExcel_chk.Workbooks.Close() 
    set ws1 = nothing 
    objExcel_chk.Quit 

    Response.Write(SQLStr) 

     'set filobj = FSYSObj.GetFile (sub_fol_path & "\" & file_name) 
     'filobj.Delete 

    next 
End if 
End If

來源

2010-04-07 sushant

是否要將文件另存爲二進制文件，或將值保存在Excel工作表中？ – 2010-04-07 15:07:21

我想將excel文件中的值保存到數據庫中 – sushant 2010-04-08 06:01:30

這段代碼很容易被sql注入 – 2011-12-01 02:31:52

Read From Excel

上面的鏈接說你必須在服務器上安裝Excel，您必須對Excel文件設置從中讀取正確的權限。在這個過程之外，我不確定你會怎麼做。

來源

2011-07-20 19:31:21

這看起來就像去找我的路。將Excel讀入記錄集，然後使用記錄集進行插入。 – mikeY 2011-07-20 21:15:50

將excel內容保存到數據庫，通過asp

回答

相關問題