tengo este codigo:
Código Delphi
[-]procedure TForm1.Button2Click(Sender: TObject);
var
oPackage:TPackage;
vHost: OleVariant;
begin
try
CoInitialize(nil);
oPackage:=TPackage.Create(nil);
oPackage.LoadFromSQLServer(
Edit1.Text, Edit2.Text, Edit3.Text, 256,'', '', '',
Edit4.Text, vHost);
oPackage.UnInitialize;
oPackage.Execute;
winexec(PChar('dtsrun /S '+Edit1.Text+' /U '+Edit2.Text+' /P '+Edit3.Text+' /N '+Edit4.Text),SW_HIDE);
MessageDlg('Ejecución correcta.', mtInformation, [mbOK], 0);
except
raise;
end;
end;
pero al ejecutarlo me marca error de inicio de sesion del usuario '(null)' Motivo No esta asociado a una conexion de SQL server de confianza