Перейти к содержанию
  • Регистрация

Вопрос

Пытаюсь подключиться через адо компоненты к базе аксес

procedure TForm4.ADOConnection1BeforeConnect(Sender: TObject);
begin
ADOQuery1.Active:=true;
s:='D:\logiciel\soft\delphi\dessein\server-client\Server\Win64\Debug\BD\USES.mdb;';
ADOConnection1.Connected:=true;
ADOConnection1.LoginPrompt:=false;
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+'Data Source='+s+'Persist Security Info=False';


 ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM USES');
ADOQuery1.Active:=True;
 form4.DataSource1.DataSet.DataSource.
end;

Ругается вот на это 
 

form4.DataSource1.DataSet.DataSource.IsLinkedTo(form4.StringGrid1);

не получается привязать таблицу как это сделать без визуальных вещей

в итоге должно получиться вот что:

http://www.delphiplus.org/programirovanie-baz-dannih-v-delphi/praktika-raboti-s-bd-ms-access-iz-delphi.html

только без визуальных шняг все должно отражено только в коде

Изменено пользователем виталий Соловьёв

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Рекомендуемые сообщения

  • 1
  1. Закройте Query и Connection
  2. Присвойте все нужные свойства Connection
  3. Откройте его
  4. Присвойте Query.SQL
  5. Откройте его
  6. И главное - вынесите всё это в другое событие, например FormCreate 
Изменено пользователем dnekrasov

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0
  1. Закройте Query и Connection - закрыто
  2. Присвойте все нужные свойства Connection 
    s:='D:\logiciel\soft\delphi\dessein\server-client\Server\Win64\Debug\BD\USES.mdb;';
    ADOConnection1.Connected:=true;
    ADOConnection1.LoginPrompt:=false;
    ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+'Data Source='+s+'Persist Security Info=False';

     

  3. Откройте его 
  4. Присвойте Query.SQL
    s:='D:\logiciel\soft\delphi\dessein\server-client\Server\Win64\Debug\BD\USES.mdb;';
    
     ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('SELECT * FROM USES');
    ADOQuery1.Active:=True;

     

  5. попытка без визуализации связать StringGrid1 и DataSource1

    form4.DataSource1.DataSet.DataSource.IsLinkedTo(form4.StringGrid1);

     

  1. Откройте его
 

И главное - вынесите всё это в другое событие, например FormCreate 

попытка без визуализации связать StringGrid1 и DataSource1 правильно лия связываю

form4.DataSource1.DataSet.DataSource.IsLinkedTo(form4.StringGrid1);

 

Изменено пользователем виталий Соловьёв

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 1
46 минут назад, виталий Соловьёв сказал:

ADOConnection1.Connected:=true;

Это надо делать после присвоения LoginPrompt и ConnectionString.

IsLinkedTo только проверяет привязку  DataSource к DataSet. В Вашем случае - бесполезная строчка (мало того - ещё и вредная).

Насчёт связи StringGrid и DataSource - в FMX, насколько я знаю, кроме LiveBindings стандартных вариантов нет (ну кроме как ручками отрисовывать ячейки). 

Изменено пользователем dnekrasov

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.


  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу

×
×
  • Создать...