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>