My Name is Kay....

DIY , 먹방 , 개발 , 육아 , 여행 좋아합니다.
AdBlock 사용시 화면이 정상적으로 노출되지 않습니다.
포스팅 관련 문의 및 개발 문의는 Email : wkzkfmxksi@gmail.com



kay
조회 수 17327 추천 수 0 댓글 2
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄

직접적으로는 Excel 매크로로 하는것이 편리합니다만..

웹에서 필요한 경우가 있어서..정리해보았습니다.


Excel 파일 읽어서 디비에 넣기 샘플 소스입니다.

업로드 파일을 읽어서 집어 넣고 블라블라 하는 방식으로도 응용가능.


Excel 버전에 따라  Provider 변경할 것

- Provider=Microsoft.ACE.OLEDB.12.0;  ' 2007 이상

- Provider=Microsoft.Jet.OLEDB.4.0;   ' 2003 이하


<%@codepage = "65001"%>
<%session.codepage = "65001"%>
<%
Response.CharSet = "utf-8"
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Expires","0"

Set DbCon                = Server.CreateObject("ADODB.Connection")
Set DbCon2                = Server.CreateObject("ADODB.Connection")

conn = "Provider=SQLOLEDB.1;Password=패스워드;Persist Security Info=True;User ID=아이디;Initial Catalog=디비명;Data Source=아이피"
DbCon.Open conn


conn2 = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=파일경로; Extended Properties=Excel 12.0;"
DbCon2.Open conn2
sql = "Select * FROM [Sheet3$]"
Set Rs = dbcon2.execute(sql)

Do until Rs.EOF
SQL = "INSERT INTO tblMember (id,pw)   VALUES  (  N'" & Rs(0) & "', N'" & Rs(1) & "' )  "
    DBCon.Execute(sql)
    Rs.movenext
Loop

Rs.Close
Set Rs                = Nothing
Set DbCon            = Nothing
Set DbCon2            = Nothing

Response.Write "<SCRIPT LANGUAGE='JavaScript'> alert('등록되었습니다.'); </SCRIPT>"
%>
<%session.codepage = 949%>
?
  • ?
    nono 2014.05.29 10:54

    이거 안되는데..

  • ?
    kay 2014.05.29 11:19

    작성일 기준으로 실제 사용했던 소스입니다. -0-


    개발자시라면 !! 실제 발생한 오류 메시지를 알려주세요~

    문득 다 안되요 하시는 고갱님이 떠오르네요..