сохранение содержимого Excel в базу данных через ASP - PullRequest
Новая
       7

сохранение содержимого Excel в базу данных через ASP

2 голосов
/ 07 апреля 2010

Я использовал приведенный ниже код для загрузки файла Excel на сервер.Теперь мне нужно сохранить его в базе данных.Кто-нибудь может направить меня, как это сделать?

 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

1 Ответ

1 голос
/ 20 июля 2011

Чтение из Excel

Приведенная выше ссылка говорит о том, что на сервере должен быть установлен Excel, и для чтения из него должны быть установлены соответствующие разрешения для файла Excel. Вне этого процесса я не уверен, как бы вы это сделали.

...