procedure TForm1.Button1Click(Sender: TObject);
var
ObjBL, ObjConn: OleVariant;
begin
ObjBL := CoSQLXMLBulkLoad.Create;
ObjConn := CoConnection.Create;
ObjConn.Provider := 'SQLOLEDB';
ObjConn.Open('server=(local); database=AccountantMIS; uid=sa;');
// ObjConn.Execute('DELETE FROM letters');
ObjBL.ConnectionString := 'provider=SQLOLEDB.1;data source=oops;database=DFW;uid=sa;pwd=';
ObjBL.ErrorLogFile := 'Error.xml';
objBL.Execute('letters.xsd', 'letters.xml');
ObjConn := NULL;
ObjBL := NULL;
end;
var
ObjBL, ObjConn: OleVariant;
begin
ObjBL := CoSQLXMLBulkLoad.Create;
ObjConn := CoConnection.Create;
ObjConn.Provider := 'SQLOLEDB';
ObjConn.Open('server=(local); database=AccountantMIS; uid=sa;');
// ObjConn.Execute('DELETE FROM letters');
ObjBL.ConnectionString := 'provider=SQLOLEDB.1;data source=oops;database=DFW;uid=sa;pwd=';
ObjBL.ErrorLogFile := 'Error.xml';
objBL.Execute('letters.xsd', 'letters.xml');
ObjConn := NULL;
ObjBL := NULL;
end;
本文介绍了一种使用Delphi中的SQLXMLBulkLoad组件进行数据批量导入的方法。通过创建SQLXMLBulkLoad和Connection对象,并设置连接字符串及错误日志文件路径,执行xsd和xml文件的加载操作,实现数据快速导入到指定数据库。

691

被折叠的 条评论
为什么被折叠?



