ADODatabase1.DatabaseName

Комментарии

• gpi

  April 2006 отредактировано 13:37

  В какой части скрипта выполняется присвоение?
  DatabaseName должно быть такого вида
  Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Мои документы\db1.mdb;Persist Security Info=False
• igrik

  April 2006 отредактировано 13:37

  это понятно...
  
  а выполняю на событии..
  
  
  procedure Page1OnBeforePrint(Sender: TfrxComponent);
  begin
  MAsterData1.DataSet := nil;
  
  ADODatabase1.Connected := False;
  ADODatabase1.DatabaseName := ConnString;
  ADODatabase1.Connected := True;
  
  AdoQuery1.Database := ADODatabase1;
  AdoQuery1.Open;
  
  MAsterData1.DataSet := AdoQuery1;
  
  
  end;
  
  
  ConnString создаёться в программе и регистрируется в скрипте.
• gpi

  April 2006 отредактировано 13:37

  Попробуйте перенести код в главную процедуру скрипта отчёта
• igrik

  April 2006 отредактировано 13:37

  хмм... интересный эффект..
  
  1. не заработало.
  2. Стало появлятся сообсщение Unregistered version of FastScript при запуске отчёта.
• gpi

  April 2006 отредактировано April 2006

  Специально проверил - в главной процедуре работает FR Studio 3.19
• igrik

  April 2006 отредактировано 13:37

  ошибка по моему заключаеться в том когда заполняеш это свойство значением
  AdoDAtabase1.DatabaseName := '' ;
  
  это присвоение не работает.
  
  
• igrik

  April 2006 отредактировано 13:37

  по ходу я понял суть проблемы, а суть такова:
  
  когда делаю
  FastReport.AddVariable("еее", "ConnString", Connection.ConnectionString);
  
  то при след открытии приложения у отчёта этот ConnString уже есть..
  (проверил закоментировав эту строку, отчёт всё равно открылся.)
  
  в смысле он где то зависает в памяти и сидит там, возможно это связано с COM объектами.
• igrik

  April 2006 отредактировано 13:37

  ответьте хоть что нибудь, уж сильно надо..
• igrik

  April 2006 отредактировано 13:37

  да на самом деле и AddVariable как то вяло работает..
  
  
• gpi

  April 2006 отредактировано 13:37

  Попробуйте использовать скриптовую переменную
  FastReport.Script.Variables:=Connection.ConnectionString;
  Не знаю, получится ли в FR Studio, я в основном работаю с FR
• alman космополит

  April 2006 отредактировано 13:37

  igrik написал:

  в смысле он где то зависает в памяти и сидит там, возможно это связано с COM объектами.

  Возможно что ConnString сохраняется в отчёте, т.е. в fr3 файле.
• igrik

  May 2006 отредактировано 13:37

  и что тогда делать??
  я же в коде всегда присваиваю новый..
  
• LexXP Новокузнецк

  May 2006 отредактировано 13:37

  А ты перед тем как добавить новый, попробуй найти старый. Если нашел пиши в него, если нет создавай новый.
  Примерно так:

    i:=frxReport1.Variables.IndexOf('ConnString');
    if i <> -1 then
      frxReport1.Variables.Items[i]:=Connection.ConnectionString
    else
    frxReport1.Variables.AddVariable('eee', 'ConnString', Connection.ConnectionString);
  

  хотя и вариант

  frxReport1.Variables['ConnString']:=Connection.ConnectionString;
  

  тоже должен нормально сработать.