www.softwaredevelopmentdeveloper.com
옥션 아이폰/아이팟 집에서 즐기기 롯데마트 11번가 주민등록번호 도용사실이 있는지 확인해 보세요! CJmall 회원가입 도메인 NO.1-호스팅 NO.1 든든한 웹파트너 가비아 ! 건담 전문몰 건담샵 No.1 중고차 쇼핑몰! SK엔카
아래출처는 http://ad.web2r.net/r.php?c=shop 입니다.'Dcount를 이용한 검색Private Sub Command0_Click() Dim TableExists As Boolean TableExists = (DCount( "ID", "MSysObjects", "Name='" & "T0030" & "' AND Type=1") > 0)If TableExists Then Me.Text1 = "테이블이 존재합니다!!"Else Me.Text1 = "테이블이 없습니다!!"End If End Sub 'TableDef를 이용한 검색Private Sub Command3_Click() Dim db As Database Dim i As Integer Set db = DBEngine.Workspaces(0).Databases(0) TableExists = False db.TableDefs.Refresh For i = 0 To db.TableDefs.Count - 1 If "T0030" = db.TableDefs(i).Name Then 'Table exists TableExists = True Exit For End If Next i Set db = Nothing If TableExists Then Me.Text2 = "테이블이 존재합니다!!"Else Me.Text2 = "테이블이 없습니다!!"End If End Sub
