테스트 사이트 - 개발 중인 베타 버전입니다
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>

댓글 작성

댓글을 작성하시려면 로그인이 필요합니다.

로그인하기

댓글 1개

게시판 목록

프로그램

글쓰기