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>
|
댓글을 작성하시려면 로그인이 필요합니다.
댓글 1개