|
|
|
|
 |
|
이승익 / 2000-04-27 / 오후 5:47:24 / 164.124.1.43
조회수 : 128
|
| [질문] 테이블 중복검사..는..yl |
안녕하세요, 이승익입니다.
다음과 같이 하면 됩니다.
물론 정상적인 방법이 아니기에 채영님께서 언급을 하지 않으신 것 같은데요. 워낙 꽁수를 좋아하는 저이기에... -,.-
<%
Set DBConn = Server.CreateObject("ADODB.Connection")
DBConn.Open(Application("CONNECTION_STRING"))
'중복된 테이블일때는 에러 메세지를 뿌려준다.
On Error Resume Next
DBConn.Execute "CREATE TABLE DuplicatedTables (Num Counter)"
If Err.Number <> 0 Then
If InStr(Err.Description, "테이블이 이미 있습니다") > 0 Then
Response.Write "지정하신 테이블이 이미 존재합니다."
Err.Clear
On Error Goto 0
Else
number = Err.Number
description = Err.Description
source = Err.Source
helpfile = Err.HelpFile
helpcontext = Err.HelpContext
Err.Clear
On Error Goto 0
Err.Description = description
Err.Source = source
Err.HelpFile = helpfile
Err.HelpContext = helpcontext
Err.Raise number
End If
End If
'syntax 가 틀리는 에러, 즉 일반적인 에러이면 그대로 에러를 발생한다.
On Error Resume Next
DBConn.Execute "CREATE TABLE NotDuplicatedTables IncorrectSyntax (Num Counter)"
If Err.Number <> 0 Then
If InStr(Err.Description, "테이블이 이미 있습니다") > 0 Then
Response.Write "지정하신 테이블이 이미 존재합니다."
Err.Clear
On Error Goto 0
Else
number = Err.Number
description = Err.Description
source = Err.Source
helpfile = Err.HelpFile
helpcontext = Err.HelpContext
Err.Clear
On Error Goto 0
Err.Description = description
Err.Source = source
Err.HelpFile = helpfile
Err.HelpContext = helpcontext
Err.Raise number
End If
End If
%>
한번 해보세요.
감사합니다.
> 채영님 테이블 중복검사하는 방법은 없나요?
> 제가 생각한 바로는..
> 테이블 중복검사하는 방법을 거쳐서
> 테이블이 있으면...
> 해당테이블이 존재한다는 메세지를 뿌려주고.
> 없으면 테이블이 만들어지게 해주고 싶은데...요...
> 만약 만들어 지는 테이블의 이름을 또하나의 테이블에...
> 저장해준다면 문제는 깨끗이 해결되지만..
> 그러지 못할..형편이라서요..
> 방법이 없을까요?
>
-----------------------------------------------------------
|
|
|
|