# 我的方法, 提供参考!!

Posted by James on November 20, 1999 at 12:24:24:

In Reply to: Re: 请问vb是否有判断table是否存在的涵数？ posted by 纪文和 on November 19, 1999 at 19:21:33:

For Each td In db.TableDefs '如果存在的话删除资料表再新增
If td.Name = Text1.Text Then
Response = MsgBox("资料表已存在, 是否重写该资料表??", vbYesNo, "资料侦测处理程序", 0, 0)
If Response = vbYes Then ' 若使用者按下 [是]。
db.Execute ("DROP TABLE [" + Text1.Text + "]") '删除原来的资料表
db.Execute ("DROP TABLE [H" + Text1.Text + "]") '删除原来的资料表
DoEvents
Else ' 若使用者按下 [否]。
lblWork.Visible = False
lblShow.Caption = "CANCEL"
Exit Sub '摸摸鼻子离开, 甚么事也不要作
End If
End If
Next

程式讨论网站 http://www.awaytech.com/program.htm

- 亦崴科技程式讨论

Follow Ups: