F
fjw
Unregistered / Unconfirmed
GUEST, unregistred user!
大家好，我的一段关于ADO的代码出现了错误，请大家帮忙。谢谢！
procedure TForm1.NssADOConnection1AfterConnect(Sender: TObject);
var
cat
levariant;
tdblevariant;
begin
cat:=createoleobject('adox.catalog');
cat.activeconnection:=NssAdoConnection1.ConnectionObject;
tdb:=createoleobject('adox.table');
tdb:=cat.tables('abcdefg'); //本库中的链接表表名
tdb.Properties('jet oledb:link datasource'):='e:/db1.mdb'; //就是运行到此出现的错误，不知为何？
end;
出现错误提示：“找不到成员”，不知怎么回事，请高手指教，不胜感谢！
procedure TForm1.NssADOConnection1AfterConnect(Sender: TObject);
var
cat
levariant;tdb
levariant;begin
cat:=createoleobject('adox.catalog');
cat.activeconnection:=NssAdoConnection1.ConnectionObject;
tdb:=createoleobject('adox.table');
tdb:=cat.tables('abcdefg'); //本库中的链接表表名
tdb.Properties('jet oledb:link datasource'):='e:/db1.mdb'; //就是运行到此出现的错误，不知为何？
end;
出现错误提示：“找不到成员”，不知怎么回事，请高手指教，不胜感谢！