Word ODC Datenquelle OHNE Passwortabfrage einstellen

[omata]

Hier ein neuer Vorschlag, der bei mir keinerlei Fenster öffnet (nur Word und dort stehen dann die Spalten der Abfrage zur Verfügung)

Delphi-Quellcode:

procedure SQL2Word(DSN, Database, SQL:string);
var oSubType, oConnection, oSQL:olevariant;
    Word:TWordApplication;
begin
  Word:=TWordApplication.Create(nil);
  try
    Word.Connect;
    Word.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
    Word.ActiveDocument.MailMerge.MainDocumentType:=wdFormLetters;
    oSQL:=SQL;
    oConnection:=
      'DSN=' + DSN + ';' +
      'UID=' + Username + ';' +
      'APP=Microsoft® Query;' +
      'WSID=' + Computername + ';' +
      'DATABASE=' + Database + ';' +
      'LANGUAGE=Deutsch;' +
      'Trusted_Connection=Yes';
    oSubType := wdMergeSubtypeWord2000;

    Word.ActiveDocument.MailMerge.OpenDataSource(
      '',
      EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
      EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
      oConnection, oSQL,
      EmptyParam, EmptyParam,
      oSubType
    );
    Word.Visible:=true;
    Word.Disconnect;
  finally
    Word.free;
  end;
end;

Aufruf...
SQL2Word('mssql', 'northwind', 'SELECT * FROM tabelle');