MS-SQL 테이블 유무 확인
Public Function isTable(strTbName As String) As Boolean
Dim CheckRS As ADODB.Recordset
Set CheckRS = DB.OpenSchema(adSchemaTables)
CheckRS.Find "table_name like '" & strTbName & "'"
If CheckRS.AbsolutePosition = adPosEOF Then
isTable = False
Else
isTable = True
End If
CheckRS.Close
Set CheckRS = Nothing
End Function
모듈에 이대로 쓰시면 간편하실뜻합니다.
테이블이 있으면 TRUE를 없으면 FALSE를 반환합니다.
if isTable(테이블이름)=False then
테이블 만든다.
end if<div class='small'>[이 게시물은 관리자님에 의해 2011-10-31 16:46:12 기타에서 이동 됨]</div>
Dim CheckRS As ADODB.Recordset
Set CheckRS = DB.OpenSchema(adSchemaTables)
CheckRS.Find "table_name like '" & strTbName & "'"
If CheckRS.AbsolutePosition = adPosEOF Then
isTable = False
Else
isTable = True
End If
CheckRS.Close
Set CheckRS = Nothing
End Function
모듈에 이대로 쓰시면 간편하실뜻합니다.
테이블이 있으면 TRUE를 없으면 FALSE를 반환합니다.
if isTable(테이블이름)=False then
테이블 만든다.
end if<div class='small'>[이 게시물은 관리자님에 의해 2011-10-31 16:46:12 기타에서 이동 됨]</div>
|
댓글을 작성하시려면 로그인이 필요합니다.
프로그램
태그 필터 (최대 3개)
전체
개발자
소스
기타
mysql
팁자료실
javascript
php
linux
flash
정규표현식
jquery
node.js
mobile
웹서버
os
프로그램
강좌
썸네일
이미지관련
도로명주소
그누보드5
기획자
견적서
계약서
기획서
마케팅
제안서
seo
통계
서식
통계자료
퍼블리셔
html
css
반응형
웹접근성
퍼블리싱
표준화
반응형웹
홈페이지기초
부트스트랩
angularjs
포럼
스크린리더
센스리더
개발자톡
개발자팁
퍼블리셔톡
퍼블리셔팁
기획자톡
기획자팁
프로그램강좌
퍼블리싱강좌
댓글 1개