'oledb'에 해당되는 글 1건

  1. 2009.10.08 ASP에서 엑셀파일 업로드후 데이터베이스에 입력을 할려고 하는데! 2

ASP에서 엑셀파일 업로드후 데이터베이스에 입력을 할려고 하는데!

|

그런데 그만!

특정 행만 입력이 안되는 겁니다. 엉엉...

그래서 자주찾는 태오사이트에 질문을 하려고 하는데 파일첨부가 안되네요.

그래서 여기 파일 첨부를 하고 태오에 등록을 할려고 이러고 있네요.

 

day_auction.pig_xls는 어떤 사이트에서 다운받은 파일 그대로이고, test2.xls는 원본 파일을 공백을 다 제거해주고 서식을 일반으로 바꿔준 파일이다.

임시로 결과를 출력하는 코드를 작성했는데.

excelConn="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & excelFile & "; Mode=ReadWrite|Share Deny None; Extended Properties='Excel 8.0;HDR=YES;';Persist Security Info=False"

Set excelDB = Server.CreateObject("ADODB.Connection")
excelDB.Open excelConn

sql = "SELECT * FROM [Sheet1$]"
Set excelRS = excelDB.Execute(sql)

response.write "<table border=""1""><tr><td>작업장명</td><td>돈피(성별)</td><td>등급</td><td>경락두수</td><td>비율(%)</td><td>지율증량</td><td>최고가(원)</td><td>최저가(원)</td><td>평균(원)</td></tr>"
DO UNTIL excelRS.EOF
    title = Trim(excelRs(0))
    Select Case title
        Case "농협서울"
            For i = 0 To 8
                If i = 0 Then response.write "<tr>"
                If excelRs(i) = "" Then
                    response.write "<td>빈칸</td>"
                else
                    response.write "<td>"& excelRs(i) & "</td>"
                End if
                If i = 8 Then response.write "</tr>"
            Next
        End Select
    excelRs.movenext
Loop

Set excelRs = Nothing
response.write "</table>"

이렇게 하고 출력을 하면...

이렇게 나온다.

비율과 평균의 값이 안 나오는 것이다.

 

이 문제를 좀 해결해주실분 ㅜㅜ...(반말,높임말 맘대로군요;)

'커뮤니티 > 자유게시판' 카테고리의 다른 글

우리집 햄스터  (2) 2009.10.22
남자와 여자의 대화  (2) 2009.10.22
초대장 나눠드려요~ 2장  (14) 2009.10.08
전문대학에서 취업이란...  (2) 2009.10.08
KT, 아이폰 도입이 끝이 아니다  (0) 2009.10.06
And
prev | 1 | next