Y yxq1220 Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-14 #1 怎样把二十几个Access表(用ado连接)的内容各自拷到字段结构相同的二十几个Spl表(ado连接)中 有没有比较简单的方法。 救命呀!!要不然。。。难道让我一个个做循环拷贝
N newsweep Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-14 #2 你可用Delphi的DataPump来导? 不然 Access有导出的功能 MsSql有导入的功能嘛
S sword_liu Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-14 #4 用sql的导入工具就可以了。 要不然,用access导出成paradox表用吧。
X xeen Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-15 #14 tadoconnection有gettablenames方法,多少个表一个循环就可以搞丁。
P powerjet Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-15 #15 数据库结构相同吗? 相同就用delphi中的batchmove控件吧,跟datapump差不多
O oceanwave Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-15 #17 千万不要用循环!! 全部用SQL语句实现,速度会快得多。而且只要用一个TADOQUERY就可以实现。
O oceanwave Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-15 #19 比如,你的SQL表是SA、SB、SC……,ACCESS表是AA、AB、AC……,TADOQUERY为Q procedure ClearTable(STableName:string); begin Q.Close; Q.SQL.Clear; Q.SQL.Add('TRUNCATE TABLE '+STableName); Q.ExecSQL; End; procedure InsertTable(ATableName,STableName:string); begin Q.Close; Q.SQL.Clear; Q.SQl.Add('INSERT '+STableName+' SELECT * FROM '+ATableName); Q.ExecSQL; end; ClearTable('SA'); InsertTable('AA','SA'); ... 依此类推。
比如,你的SQL表是SA、SB、SC……,ACCESS表是AA、AB、AC……,TADOQUERY为Q procedure ClearTable(STableName:string); begin Q.Close; Q.SQL.Clear; Q.SQL.Add('TRUNCATE TABLE '+STableName); Q.ExecSQL; End; procedure InsertTable(ATableName,STableName:string); begin Q.Close; Q.SQL.Clear; Q.SQl.Add('INSERT '+STableName+' SELECT * FROM '+ATableName); Q.ExecSQL; end; ClearTable('SA'); InsertTable('AA','SA'); ... 依此类推。