|
|
|
|
 |
|
채영이 / 2000-05-31 / 오후 7:34:46 / 203.255.3.190
조회수 : 427
|
| [질문] 인덱스, 기본 키 또는 관계에서 중복된 값으로 인한 에러 |
> 현재 에러메세지에 이런 것이 나왔습니다.
>
> Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
>
> [Microsoft][ODBC Microsoft Access 드라이버] 인덱스, 기본 키 또는 관계에서 중복된 값을 만들었기 때문에 테이블에 요청된 변경 사항이 적용되지 않았습니다. 필드의 데이터 또는 중복 데이터가 있는 필드를 변경하거나 인덱스를 제거하거나 중복이 가능한 인덱스로 다시 정의하여 다시 시도하십시오.
> /offer/write_ok.asp, line 60
>
>
>
> 이에 대한 소스는 다음과 같습니다.....
> <%
> 'request 개체를 통해 넘어온 값들을 변수에 저장한다.
> name = request("name")
> email = request("email")
> url = request("url") '홈페이지
> title = request("title")
> company = request("company")
> country = request("country")
> vdate = request("vdate")
> mcode = request("mcode")
> pregident = request("pregident")
> depart = request("depart")
> addre = request("addre")
> tel = request("tel")
> fax = request("fax")
> pwd = request("pwd")
> content = request("content")
>
>
>
> set db = server.CreateObject("ADODB.Connection")
> '데이터베이스 연결을 위한 Connetion개체의 인스턴스를 생성한다.
> db.Open("offer")
> 'db open(DNS)DNS연결
> SQL = "Select MAX(num) as maxnum from myboard"
> '데이터 쿼리문
> set rs = Server.CreateObject("ADODB.Recordset")
> '레코드셋 인스턴스 생성
> rs.Open SQL,db
> '지정한 쿼리로 db연결....레코드셋 개체 결과 db저장
>
> If rs("maxnum")="" Then
> '만일 현재 가져온 데이터가 전혀 없을 경우
> number = 1 '현재 글 번호용 변수에 1을 세팅
> else '만일 현재 가져온 데이터가 있을 경우는
> number = rs("maxnum") + 1 '그 번호에 +1을 해서 현재의 글의 넘버 세팅
> End If
>
>
>
> SQL = "INSERT INTO myboard(name,email,url,title,company,country,vdate,mcode,pregident,depart,addre,tel,fax,content,"
> SQL = SQL & " readnum,writeday,pwd)VALUES "
> SQL = SQL & "('" & name & "'"
> SQL = SQL & ",'" & email & "'"
> SQL = SQL & ",'" & url & "'"
> SQL = SQL & ",'" & title & "'"
> SQL = SQL & ",'" & company & "'"
> SQL = SQL & ",'" & country & "'"
> SQL = SQL & ",'" & vdate & "'"
> SQL = SQL & ",'" & mcode & "'"
> SQL = SQL & ",'" & pregident & "'"
> SQL = SQL & ",'" & depart & "'"
> SQL = SQL & ",'" & addre & "'"
> SQL = SQL & ",'" & tel & "'"
> SQL = SQL & ",'" & fax & "'"
> SQL = SQL & ",'" & content & "'"
> SQL = SQl & ",0,'" & now() & "'"
> SQL = SQL & ",'" & pwd & "')"
>
> db.execute SQL------------------이부분에서에러
> '데이터베이스에insert쿼리를 보내 새로운 데이터 입력
>
>
> rs.Close
> db.Close
> Set rs = Nothing
> Set db = Nothing
>
> Response.redirect "list.asp"
>
> %>
>
>
-----------------------------------------------------------
경호님이랑 경철님이라 희상님이랑 어떤 사이신가요?
아님 계속 같은 이름으로 물어보기가 그런것 같아
이름을 고쳐가면서 물어보시는건지요?
같은 소스를 가지고 3명씩이나 돌아가면서 물어보는 이유가 뭔지 궁금합니다.
아니면 무슨 학원이나 학교 수업이신가요?
어느 한분도 자기 신분은 밝히시지 않았군요...
님들의 질문에는 별로 답해드리고 싶지 않군요...
죄송합니다...
|
|
|
|