|
|
|
|
 |
|
채영이 / 2000-04-27 / 오후 7:19:01 / 203.255.3.190
조회수 : 130
|
| [질문] 테이블 중복검사..는..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
> %>
>
> 한번 해보세요.
>
> 감사합니다.
>
우와... 승익님... 정말 멋집니다...
박수 짝짝짝~~~
역시 홈런왕답습니다... 앗... 홈런왕은 승엽이군.. ^^;
|
|
|
|