老文章 收藏
<br />uses<br />comobj;<br />{以下程序,1.mdb为主数据库,2.mdb为需要进行链接的数据库,含有一个表Table2}<br />procedure TForm1.Button1Click(Sender: TObject);<br />var<br />l_cat, l_tbl: OleVariant;<br />begin<br />{打开链接的要连接到的数据库,即主数据库}<br />l_cat := CreateOleObject('ADOX.Catalog');<br
原创
2011-02-23 16:55:00 ·
502 阅读 ·
0 评论