会python真的可以为所欲为0(回)
352天前
这里还有人吗1(回)
537天前这里还有人吗0(回)
537天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
762天前到处都是羊，不想上班0(回)
842天前
鸽子
0(回)
846天前Public Sub LinkTable(strDB As String, strRoDB As String, strCn As String, strTdf As String, linkTdfName As String) |
Dim linkTdf As New TableDef |
Set dbs = OpenDatabase(strDB) |
linkTdf.Name = linkTdfName 100 |
tempTable = UCase(linkTdf.Name) |
For i = 0 To dbs.TableDefs.Count - 1 |
If UCase(dbs.TableDefs(i).Name) |
= tempTable Then |
If MsgBox(linkTdfName + |
" 已存在，是否删除 ？", _ |
VBQuestion + VBYesNo) = VBYes Then |
dbs.TableDefs.Delete linkTdf.Name |
Exit For |
Else: MsgBox "重新输入新表名" |
linkTdfName = InputBox(" 新表名") |
GoTo 100 |
End If |
End If |
Next i |
Set linkTdf = dbs.CreateTableDef(linkTdfName) |
''链接远程表 linkTdf.Connect = ";database=" + strCn |
linkTdf.SourceTableName = strTdf |
dbs.TableDefs.Append linkTdf |
End Sub |
