asp를 db연동에 대해서 질문좀요...내공 최대!!
-
게시물 수정 , 삭제는 로그인 필요
<%
'request 개체를 통해 넘오온 값들을 변수에 저장한다.(추천되는 방법이다)
name =request ("name_Y02")
Lename =request ("Lename_Y02")
Fename =request ("Fname_Y02")
Fjumin =request ("Fjumin_Y02")
Ljumin =request ("Ljumin_Y02")
id =request ("id_Y02")
nick =request ("nick_Y02")
pw =request ("pw_Y02")
email =request ("email_Y02")
phone =request ("phone_Y02")
job =request ("job_Y02")
Set db= Server.CreateObject("ADODB.Connection")
'데이터베이스 연결을 위한 Connection개체의 인스턴스 생성
db.Open("MySiteDB")
'데이터베이스를 DSN을 이용해서 오픈
SQL="Select MAX(num) from MyBoard"
'가져올 데이터의 쿼리문을 작성
Set rs=Server.CreateObject("ADODB.Recordset")
'레코드셋 개체의 인스턴스를 생성
rs.Open SQL, db
'지정한 쿼리로 데이터베이스를 연결해서 레코드셋 개체에 결과 데이터를 저장한다
If IsNull(rs(0)) Then '만일 현재 가져온 데이터가 전혀 없을 경우는
number = 1 '현재 글 번호용 변수에 1을 세팅한다.
Else '만일 현재 가져온 데이터가 있을 경우는
number = rs(0) + 1 '그 번호에 +1을 해서 현재의 글의 넘버를 세팅한다.
End If
SQL = "INSERT INTO MyBoard (name, Lename, Fename, Fjumin, Ljumin, id, nick, email, phone, phoneml, job,"
SQL = SQL & " readnum, writeday, pw) VALUES "
SQL = SQL & " ( ' " & name & " ' "
SQL = SQL & " ( ' " & Lename & " ' "
SQL = SQL & " ( ' " & Fename & " ' "
SQL = SQL & " ( ' " & Fjumin & " ' "
SQL = SQL & " ( ' " & Ljumin & " ' "
SQL = SQL & " ( ' " & id & " ' "
SQL = SQL & " ( ' " & nick & " ' "
SQL = SQL & " ( ' " & email & " ' "
SQL = SQL & " ( ' " & phone & " ' "
SQL = SQL & " ( ' " & phoneml & " ' "
SQL = SQL & " ( ' " & job & " ' "
SQL = SQL & " , " & number
SQL = SQL & " , 0 , ' " & now() & " ' "
SQL = SQL & " , ' " & pw & " ') "
db.Execute SQL '데이터베이스에 insert 쿼리를 보내 새로운 데이터를 입력한다.
rs.Close
db.close
Set rs = Nothing
Set db = Nothing
Response.redirect "list.asp"
%>
글씨 진하게 된 부분에서 오류가 납니다.
오류내용은
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access 드라이버] 매개 변수가 너무 적습니다. 1이(가) 필요합니다.
이런식으로 나오는데..
왜 그러죠....ㅠㅠ
<%
'request 개체를 통해 넘오온 값들을 변수에 저장한다.(추천되는 방법이다)
name =request ("name_Y02")
Lename =request ("Lename_Y02")
Fename =request ("Fname_Y02")
Fjumin =request ("Fjumin_Y02")
Ljumin =request ("Ljumin_Y02")
id =request ("id_Y02")
nick =request ("nick_Y02")
pw =request ("pw_Y02")
email =request ("email_Y02")
phone =request ("phone_Y02")
job =request ("job_Y02")
Set db= Server.CreateObject("ADODB.Connection")
'데이터베이스 연결을 위한 Connection개체의 인스턴스 생성
db.Open("MySiteDB")
'데이터베이스를 DSN을 이용해서 오픈
SQL="Select MAX(num) from MyBoard"
'가져올 데이터의 쿼리문을 작성
Set rs=Server.CreateObject("ADODB.Recordset")
'레코드셋 개체의 인스턴스를 생성
rs.Open SQL, db
'지정한 쿼리로 데이터베이스를 연결해서 레코드셋 개체에 결과 데이터를 저장한다
If IsNull(rs(0)) Then '만일 현재 가져온 데이터가 전혀 없을 경우는
number = 1 '현재 글 번호용 변수에 1을 세팅한다.
Else '만일 현재 가져온 데이터가 있을 경우는
number = rs(0) + 1 '그 번호에 +1을 해서 현재의 글의 넘버를 세팅한다.
End If
SQL = "INSERT INTO MyBoard (name, Lename, Fename, Fjumin, Ljumin, id, nick, email, phone, phoneml, job,"
SQL = SQL & " readnum, writeday, pw) VALUES "
SQL = SQL & " ( ' " & name & " ' "
SQL = SQL & " ( ' " & Lename & " ' "
SQL = SQL & " ( ' " & Fename & " ' "
SQL = SQL & " ( ' " & Fjumin & " ' "
SQL = SQL & " ( ' " & Ljumin & " ' "
SQL = SQL & " ( ' " & id & " ' "
SQL = SQL & " ( ' " & nick & " ' "
SQL = SQL & " ( ' " & email & " ' "
SQL = SQL & " ( ' " & phone & " ' "
SQL = SQL & " ( ' " & phoneml & " ' "
SQL = SQL & " ( ' " & job & " ' "
SQL = SQL & " , " & number
SQL = SQL & " , 0 , ' " & now() & " ' "
SQL = SQL & " , ' " & pw & " ') "
db.Execute SQL '데이터베이스에 insert 쿼리를 보내 새로운 데이터를 입력한다.
rs.Close
db.close
Set rs = Nothing
Set db = Nothing
Response.redirect "list.asp"
%>
글씨 진하게 된 부분에서 오류가 납니다.
오류내용은
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access 드라이버] 매개 변수가 너무 적습니다. 1이(가) 필요합니다.
이런식으로 나오는데..
왜 그러죠....ㅠㅠ