2010-04-07 4 views
1

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

<% 
if (Request("FileName") <> "") Then 
Dim objUpload, lngLoop 
Response.Write(server.MapPath(".")) 
If Request.TotalBytes > 0 Then 
Set objUpload = New vbsUpload 

    For lngLoop = 0 to objUpload.Files.Count - 1 
    'If accessing this page annonymously, 
    'the internet guest account must have 
    'write permission to the path below. 
    objUpload.Files.Item(lngLoop).Save "D:\PrismUpdated\prism_latest\Prism\uploadxl\" 

Response.Write "File Uploaded" 
Next 

Dim FSYSObj, folderObj, process_folder 
process_folder = server.MapPath(".") & "\uploadxl" 
set FSYSObj = server.CreateObject("Scripting.FileSystemObject") 
set folderObj = FSYSObj.GetFolder(process_folder) 

set filCollection = folderObj.Files 

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 

плз скажите мне, как сохранить следующие данные первенствовать на оракул databse.any помощь будет оценена

ответ

0

Основная идея о том, что вы хотите сделать, это:

Извлеките данные из своей таблицы по строкам и для каждой строки, выполните оператор insert в базе данных. Вы, вероятно, можете обойтись без синтаксиса insert all, который вы сейчас пытаетесь использовать.

Ваш SQL должен быть в формате:
insert into <tablename> (<column_name1>, <column_name2>) values (<value1>, <value2>)

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

Вот пример выполнения вставки в базу данных Oracle в классическом ASP:
http://home.wlv.ac.uk/~cm1958/TextVersion/OracleASP/InsertingData.html

Он ссылается на getDBConnection функции, что вам придется изменить, чтобы быть кодом, который использует строку подключения для базы данных и создает объект соединения.

+0

Thnks for the help dud ... Я очень новичок в asp. Мой код - все chaos.its nt workin at all nw .... Все, что я хочу, это Я разрабатываю вариант для клиента (пользователя) для загрузите файл excel из инструмента на сервер (сам) .nw этот код asp shud проверяет поля файла excel и shud сохраняет данные в базе данных oracle. Я искал Google столько раз, но не мог найти то, что я ищу. надеюсь, что u поможет мне с этим кодом – vicky

Смежные вопросы