1

ADO 接続を使用してデータを転送し、TDBGrid から Excel ファイルにコンテンツをコピーしようとしています。これは 255 文字以下の値では機能しますが、より長い文字列では失敗します。255 文字を超える文字列をコピーするにはどうすればよいですか?

DataType を adLongVarWChar tbl.Columns.Append に変更しても機能しません。ADOQuery は、テーブルの作成時に使用するものに関係なく、サイズ 255 の varchar フィールドを取得します。

procedure DBGridToExcelADO(DBGrid: TDBGrid; FileName: string; SheetName: string);
var
  cat               : _Catalog;
  tbl               : _Table;
  col               : _Column;
  i                 : integer;
  ADOConnection     : TADOConnection;
  ADOConnectionExcel: TADOConnection;
  ADOQuery          : TADOQuery;
  ScrollEvents      : TScrollEvents;
  SavePlace         : TBookmark;
begin
  //exporting
  ADOConnectionExcel := TADOConnection.Create(nil);
  try
    ADOConnectionExcel.LoginPrompt      := False;
    ADOConnectionExcel.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0; Data Source=' + FileName + ';Extended Properties=Excel 8.0';

    ADOConnectionExcel.Open;
    //WorkBook creation (database)
    cat := CoCatalog.Create;
    cat._Set_ActiveConnection(ADOConnectionExcel.ConnectionObject);
    //WorkSheet creation (table)
    tbl := CoTable.Create;
    tbl.Set_Name(SheetName);
    //Columns creation (fields)
    DBGrid.DataSource.DataSet.First;

    with DBGrid.Columns do
    begin
      for i := 0 to Count - 1 do
        if Items[i].Visible then
        begin
          col := nil;
          col := CoColumn.Create;
          with col do
          begin
            Set_Name(Items[i].Title.Caption);
            Set_Type_(adVarWChar);
          end;
          //add column to table
          tbl.Columns.Append(col, adVarWChar, 20);
        end;
    end;
    //add table to database
    cat.Tables.Append(tbl);

    col := nil;
    tbl := nil;
    cat := nil;

    //exporting
    ADOConnection                  := TADOConnection.Create(nil);
    ADOConnection.LoginPrompt      := False;
    ADOConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0; Data Source=' + FileName + ';Extended Properties=Excel 8.0';
    ADOQuery            := TADOQuery.Create(nil);
    ADOQuery.Connection := ADOConnection;
    ADOQuery.SQL.Text   := 'Select * from [' + SheetName + '$]';
    ADOQuery.Open;

    DisableDependencies(DBGrid.DataSource.DataSet, ScrollEvents);
    SavePlace := DBGrid.DataSource.DataSet.GetBookmark;
    try
      with DBGrid.DataSource.DataSet do
      begin
        First;
        while not Eof do
        begin
          ADOQuery.Append;
          with DBGrid.Columns do
          begin
            ADOQuery.Edit;
            for i := 0 to Count - 1 do
              if Items[i].Visible then
              begin
                //Fails if Length > 255
                ADOQuery.FieldByName(Items[i].Title.Caption).AsString := FieldByName(Items[i].FieldName).AsString;
              end;
            ADOQuery.Post;
          end;
          Next;
        end;
      end;

    finally
      DBGrid.DataSource.DataSet.GotoBookmark(SavePlace);
      DBGrid.DataSource.DataSet.FreeBookmark(SavePlace);
      EnableDependencies(DBGrid.DataSource.DataSet, ScrollEvents);

      ADOQuery.Close;
      ADOConnection.Close;

      ADOQuery.Free;
      ADOConnection.Free;
    end;
  finally
    if Assigned(ADOConnection) and ADOConnection.Connected then ADOConnectionExcel.Close;
    ADOConnectionExcel.Free;
  end;
end;
4

1 に答える 1

1

Jedi (www.delphi-jedi.org/) で提供される TJvDBGridExcelExport JVCL を使用できます。私はこれを使用して良い結果を得ました。これはオープンソースです。

于 2012-12-03T13:00:07.807 に答える