Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.04.2023, 05:56   #1
Liite
позитиффф
Пользователь
 
Регистрация: 14.11.2008
Сообщений: 34
По умолчанию Вопрос по adoConnection

Всем здрасти.
При попытке подключить базу получаю "Невозможно найти устанавливаемый ISAM"
Вот код:
Код:
procedure TForm2.FormCreate(Sender: TObject);

begin
  //form1.ADOConnection1.Connected := false;
  if FileExists (ExtractFilePath(ParamStr(0))+'sets.ini') then
  begin
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'\sets.ini');
  waybase := ini.Readstring('waydb','way',waybase);
  //form1.Show; - если раскомментировать, получаю экзепшен, и форма по итогу не отрисовывается
  button1.Caption := waybase;
  ini.Free;

  //form2.Hide; 
  end
  else
  begin

ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'sets.ini');
 ini.Writestring('waydb','way',waybase);
 button1.Caption := waybase;
 ini.Free;
opendialog1.Execute;

end;
Код:
program Project2;

uses
  Vcl.Forms,
  Unit2 in 'Unit2.pas' {Form2},
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm1, Form1);
  Application.Run;
И собсно сама строка подключения
Код:
procedure TForm1.FormCreate(Sender: TObject);
  begin
   wayb := form2.waybase;
   ADOConnection1.Connected := false;
   ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source='+wayb+';Persist Security Info=False LoginPrompt = False Mode = cmShareDenyNone ;';
   ADOConnection1.Open;
      end;
Liite вне форума Ответить с цитированием
Старый 24.04.2023, 05:58   #2
Liite
позитиффф
Пользователь
 
Регистрация: 14.11.2008
Сообщений: 34
По умолчанию

waybase - указан в разделе паблик Unit2
Liite вне форума Ответить с цитированием
Старый 24.04.2023, 09:59   #3
Liite
позитиффф
Пользователь
 
Регистрация: 14.11.2008
Сообщений: 34
По умолчанию

Теперь ругается - формат строки инициализации не соответствует спецификации ole db. Вот шо ему надо
Код:
ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'sets.ini');
  wayb := ini.Readstring('waydb','way',wayb);
   ADOConnection1.Connected := false;

         ADOConnection1.ConnectionString :=
         'Provider=Microsoft.Jet.OLEDB.4.0;'+
         'Password="";User ID=Admin;'+
         'Data Source='+wayb+';'+
         'LoginPrompt = False;' +
          'Mode = cmShareDenyNone ;';
                 ADOConnection1.Connected := true;
                 ADOConnection1.Open;
                 adoTable1.Active := true;
                 adoTable2.Active := true;
                 adoTable3.Active := true;

     Label2.Caption := adoconnection1.ConnectionString;
если поставить Label2.Caption := adoconnection1.ConnectionString;
до подключения базы, то видно что путь там есть. Кстати путь там берётся целиком вместе и именем файла из опен диалога
Liite вне форума Ответить с цитированием
Старый 25.04.2023, 02:59   #4
Liite
позитиффф
Пользователь
 
Регистрация: 14.11.2008
Сообщений: 34
По умолчанию

Вобщем ларчик просто открывался.
Код:
ADOConnection1.Connected := false;
          ADOConnection1.ConnectionString :=
         'Provider=Microsoft.Jet.OLEDB.4.0;'+
         'Password="";User ID=Admin;'+
         'Data Source= '+wayb;
По всей видимости дата сорс должно быть в конце. Но тогда вопрос, епсли надо указать больше параметров, куда писать их? По скольку при очень длинной строке оно тоже ругается
Liite вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ADOConnection B_izo_n C/C++ Базы данных 0 25.07.2022 17:31
вопрос про ADOConnection Janger Общие вопросы Delphi 1 15.02.2016 10:04
ADOCONNECTION T@tali Общие вопросы Delphi 17 27.05.2010 18:07
ADOConnection Optigood БД в Delphi 18 18.05.2010 09:26
ADOConnection Explosion БД в Delphi 7 16.04.2010 15:54