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;