如何在窗体点命令删除别台机子上的表

qixiang　发表于：2011-04-11 15:31:05 　

如何在窗体点命令删除别台机子上的表，谢谢！！！（别台机子在同个域或同组里）

赵文斌发表于：2011-04-11 22:21:48

'请注意一定要引用Microsoft ADO Ext. 2.x for DLL and Security

Private Sub Command0_Click()

strpath = CurrentProject.Path & "\*.mdb" '指定的数据库文件
Dim ConnStr, oCat

ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strpath
Set oCat = CreateObject("ADOX.Catalog")
oCat.ActiveConnection = ConnStr
oCat.Tables.Delete "123" '删除表
Set oCat = Nothing
MsgBox "表已删除"
End Sub

Top

qixiang 发表于：2011-04-12 13:05:46

非常感谢赵文斌老师！！！

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

如何在窗体点命令删除别台机子上的表