TC官方合作论坛

标题: ACCESS改表名称 [打印本页]

作者: fl75537638 时间: 2016-5-19 16:47
标题: ACCESS改表名称
Access 中很简单：
1、改变表名
//DBName: 数据库名; OldTblName: 原表名; NewTblName: 新表名;
procedure RenameTable(c**t DBName, OldTblName, NewTblName: string);
var
cat: OleVariant;
begin
cat := CreateOleObject('ADOX.Catalog');
cat.ActiveConnection := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DBName;
cat.Tables[OldTblName].Name := NewTblName;
cat := Unassigned;
end;

请问在TC中这些代码如何写，才能实现修改access的表名呢，谢谢各位大大参观指导！

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)