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