Delphi Access

[Посланник]

Пишу программку на Delphi консольную (CGI-Bin) возникла проблема при подключение к Access БД. В конструкторе подключиться то могу а Run-time че то возникают проблемы. пробовал через ADOConnection но не хочет...

conn:=TADOConnection.Create(nil);

компилится но при запуске критует.

Пошел по другому пути... почитал вот это http://www.delphisources.ru/pages/fa...cgi_kylix.html там предлагают юзать библиотечку odbc32, но она какая то кривая, ни чего толком нет... добавить данные в базу не могу, некоторые запросы на select ни чего не выдают. копирую этот запрос прямо в Access - там работает. Иногда выдает по несколько раз одну и ту же запись... в общем или я криворукий или библиотека не правильная)))

Помогите плиз.... посоветуйте как в Run-Time работать с БД Access

[Посланник]

нашел сейчас http://www.delphisources.ru/pages/faq/data_bases.html но тут ололо как много всего. ни кто не может приветсти простой примерчик... как че то прочитать из БД и че то записать???? Run-Time

[Serge_Bliznykov]

не понимаю, что сложного то?!

пример в архиве.
суть:

  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }

  public
    { Public declarations }
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;

...
procedure TForm1.FormCreate(Sender: TObject);
const BaseFName = 'test4.mdb';
begin
  ADOConnection1 := TADOConnection.Create(Self);
  with ADOConnection1 do
  begin
    Name := 'ADOConnection1';
    Connected := false;
    Provider := 'Microsoft.Jet.OLEDB.4.0';
    ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+BaseFName+';Persist Security Info=False';
    LoginPrompt := False;
    Mode := cmShareDenyNone;
  end;


  ADOQuery1 := TADOQuery.Create(Self);
  with ADOQuery1 do
  begin
    Name := 'ADOQuery1';
    SQL.Clear;
    SQL.Add('select * from BadTable');
    Connection := ADOConnection1;
  end;

  DataSource1.DataSet := AdoQuery1;

  ADOConnection1.Connected := true;
  ADOQuery1.Open;

end;

[Посланник]

спасибо большое. проблема была в том что

ADOConnection1 := TADOConnection.Create(Self);

а я писал

ADOConnection1 := TADOConnection.Create(nil);

так как не знал че туда передать. на форме если бы располагался то форму передать... а если нет то вот и возникло затруднение

[Посланник]

блин! не хочет работать без формы! у меня консольное приложение. Self не хочет принимать

[Sparkman]

Сообщение от Посланник

блин! не хочет работать без формы! у меня консольное приложение. Self не хочет принимать

uses ComObj;
...
BEGIN
       CoInitializeEx(nil,0);
       ADOConnection1 := TADOConnection.Create(nil);
  ...
END.

PS: эту вещь также необходимо использовать для Excel, Word и т.п.

[Посланник]

вот гадость то) ни когда не любил ее (((