Delphi 5＆Crystal XI Rel。 2（RDC）の方法は？

Question

私はclass from JosephStyonsで作業しようとしていますが、「ユーザーID」が設定される行に「無効なインデックス」エラーが表示されます。

のWinXP Sp3を、Crystal Reportsの開発者XI Rel.2 SP4、デルファイ5アップデートパック1

任意のヘルプやアイデアは大歓迎：

FRpt.Database.Tables[i].ConnectionProperties.Item['User ID'] := edUserName.Text; 

ここに私の環境です！

Thxを、 ラインハルト

Answer 1

[i]が犯人である可能性が...私は確かに覚えていないことが、私は最初のテーブルにはなると信じためのあなたの価値表[1]の代わりに、表の[0]予想通り。私はループを変更して使用しました：

CrTables：= CrDatabase.Tables; crTablesでcrTableObjため

が

を行うあなたは上または1ではなく0

で始まるによって示されるように、私はこのことができます願っていforループを使用してテーブルをステップ実行してみてください可能性があります。

Answer 2

その行にブレークポイントを置き、評価/変更を使用します。
無効なものを試してみると、エラーが返されます。

1. FRpt.Database.Tables[i]を調べ、それはあなたが私のための最小値と最大値があると思います何のために有効なのですかどうかを確認します。
   Tablesが配列である場合は、それを避けるための一つの方法は、あなたが、あなたの表は、[OK]を取得FRpt.Database.Tables[i].ConnectionProperties.Item['User ID']を調べ、それが有効なのですかどうかを確認した場合...Low(Tables) to High(Tables)

2. を使用することです。
   Itemゲッターが「ユーザーID」に埋め込まれたスペースを好まない場合があります。一部の製品には、「USER_ID」

Answer 3

あなたはまた、パスワード、サーバ名とデータベース名を設定しているようなアンダースコアで交換する他、「[ユーザーID]」などの特殊文字で囲むのいずれかが必要ですか？

 
procedure TReports.LogonToDBTables(cReport: 
    CrystalDecisions.CrystalReports.Engine.ReportDocument; 
    ConnInfo: ConnectionInfo); 
var 
    CrDataBase: Database; 
    CrTables: Tables; 
    CrTableObj: TObject; 
    CrTable: Table; 
    CrTableLogonInfo: TableLogonInfo; 
    iSubReportIndex: smallint; 
begin 
    CrDataBase := CReport.Database; 
    CrTables := CrDatabase.Tables; 
    cReport.DataSourceConnections[0].IntegratedSecurity := False; 

    for crTableObj in crTables do 
    begin 
     crTable := CrystalDecisions.CrystalReports.Engine.Table(crTableObj); 
     crTableLogonInfo := crTable.LogOnInfo; 
     crTableLogonInfo.ConnectionInfo := ConnInfo; 
     crTable.ApplyLogOnInfo(crTableLogonInfo); 
    end; 
end; 

function TReports.GetConnectionInfo(): ConnectionInfo; 
var 
    cTemp: ConnectionInfo; 
begin 
    cTemp := ConnectionInfo.Create(); 
    cTemp.AllowCustomConnection := True; 
    cTemp.ServerName := GetServerName(); 
    cTemp.DatabaseName := GetDBName(); 
    cTemp.UserID := GetDBUserID(); 
    cTemp.Password := GetDBPassword(); 
    Result := cTemp; 
end;