sql导入DBF程序

DTS的设计器功能强核毕消大，改知支持多任务，也是可视化界面，易于 *** 作，但熟悉的人一般不多，如果只是进行SQL Server数据库中部分表的移动，用这种方法最好，当然，也可以进行全部表的移动。在SQL Server Enterprise Manager中，展开服务器数激左边的＋，选择数据库，右击，选择All tasks/Import Data...(或All tasks/Export Data...)，进入向导模式，然后按照提示一步一步进行就可以了，里面分得非常详细，可以灵活的在不同数据源之间复制数据，非常的方便，而且还可以另存成DTS包 .

如下代码来自我自编的测试程序

procedure TForm1.Button1Click(Sender: TObject)

begin

try

ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0Data Source='+ExtractFilePath(Application.EXEName)+

'empty.mdbJet OLEDB:Database Password='

ADOConnection1.Connected:=true

except

showmessage('无法打开数据库,请：1.确认文件''zzglxt.mdb'缓灶'在'+'下2.运行该目录下的mdac_typ25.exe安装MDAC数据库驱动!!')

exit

end

// ADOConnection1.Execute('insert into szbmk select * from 6001szbmk in ''D:\dbf和acess相互转换'' ''dbase 5.0'' order by bmh')

ADOConnection1.Execute('select * into szbmk from 6001szbmk in ''D:\dbf和acess相互转换'' ''dbase 5.0'' order by bmh')

end

procedure TForm1.Button2Click(Sender: TObject)

var

sql:string

begin

try

ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0Data Source='+ExtractFilePath(Application.EXEName)+

'empty.mdbJet OLEDB:Database Password='

ADOConnection1.Connected:=true

except

showmessage('无法打开数据库,请运行该目桥哪裂录下的mdac_typ25.exe安装MDAC数敏闭据库驱动!!')

exit

end

sql := 'SELECT * INTO szbmk in ''D:\dbf和acess相互转换'' ''dbase 5.0'' FROM szbmk'

ADOConnection1.Execute(sql)

end

或是试试这个：

直接用BATCHMOVE控件,在BDE控件里的.

---