应急！！！！！ 找管理软件下载
编程添加链接表。链接表类型是。.txt格式。怎样用access表指向.txt文当。直接对表操作
也就是对。.txt 操作
2楼: 来自: yzhshi, 时间: 2003-05-31 14:55:00, ID: 1912527
摸索了一会，基本找到Ado链接其他类型数据库的方法，以Text为例，写在下面，其他的可以举一反三
uses
comobj;
{以下程序，1.mdb为主数据库，2.mdb为需要进行链接的数据库，含有一个表Table2}
procedure TForm1.Button1Click(Sender: TObject);
var
l_cat, l_tbl: OleVariant;
begin
{打开链接的要连接到的数据库，即主数据库}
l_cat := CreateOleObject(＇＇ADOX.Catalog＇＇);
l_cat.ActiveConnection := ＇＇Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:＼1.MDB＇＇;
l_tbl := CreateOleObject(＇＇ADOX.Table＇＇);
l_tbl.Name := ＇＇Linked_Table2＇＇; //链接后的表的名称
{指出链接表的信息}
l_tbl.ParentCatalog := l_cat;
{注意这一下的字段，这里是连接Text的，也可以连接paradox，其他的就好办了，不过text的还没有完全弄清楚}
l_tbl.Properties(＇＇Jet OLEDB:Remote Table Name＇＇) := ＇＇1.txt＇＇;
l_tbl.Properties(＇＇Jet OLEDB:Link Provider String＇＇) := ＇＇text; HDR=Yes; FMT=Delimited＇＇;
l_tbl.Properties(＇＇Jet OLEDB:Link Datasource＇＇) := ＇＇C:＼aa＼＇＇;
l_tbl.Properties(＇＇Jet OLEDB:Create Link＇＇) := True;
{进行链接操作}
l_cat.Tables.Append(l_tbl);
end; 如管理软件下载
3楼: 高手们在指教一下。
l_tbl.Properties(＇＇Jet OLEDB:Remote Table Name＇＇) := ＇＇1.txt＇＇;
《:=‘.txt’》这怎么用路径表示
怎么添加链接表的字段名：
谢谢了。快点回复。必也重谢
4楼: 难道就没高手了吗？？？？？？？
指教一下小弟！！！！！！
谢谢了
5楼: var
stringlist : Tstringlist;
i : integer;
begin
for i:=0 to stringlist.count-1 do
begin
with data.adoquery1 do//²åÈëhm1±í
begin
data.ADOQuery1.SQL.clear;
showmessage(＇＇insert into hm1 (dianhua) values (＇＇+＇＇＇＇＇＇＇＇+stringlist[i]+＇＇＇＇＇＇＇＇+＇＇)＇＇);
//data.ADOQuery1.SQL.add(＇＇insert into hm1 (dianhua) values (＇＇+＇＇＇＇＇＇＇＇+stringlist[i]+＇＇＇＇＇＇＇＇+＇＇)＇＇);
//data.ADOQuery1.ExecSQL;
n:=n+1;
end;
6楼: 接受答案了.
记账软件版7楼: 呵呵，小妹妹，你很缺分吗？ 用不着这样倒分吧． 哈哈
联系我们
