ماهي طريقة اتصال قواعد البيانات Access بـ Lazarus

طبعا يمكنك ذلك عن طريق المكون TODBCConnection

إليك مثال على ذلك

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, odbcconn, sqldb, DB, FileUtil, Forms, Controls, Graphics,
  Dialogs, StdCtrls, DBGrids, ZConnection, ZDataset;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    conn: TODBCConnection;
    Datasource1: TDatasource;
    DBGrid1: TDBGrid;
    Q: TSQLQuery;
    tran: TSQLTransaction;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
    CurDir: string;
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin

  conn.Open;
  q.open;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  conn.Driver := 'Microsoft Access Driver (*.mdb, *.accdb)';
  conn.Params.Add('DBQ=C:\Users\ahmed\Desktop\data.mdb');
  Q.UsePrimaryKeyAsKey := False;
  Q.PacketRecords := -1;

end;

end.

جربت ولم يعمل معي هل يحتاج الى مكون ؟

واذا امكن السورس كود

هل هناك مكون يختصر :)

جزيت خيراً

هل قمت ب copy - past ؟

إن فعلت  فذلك خطأ كبير

وإلا فما هي الخطوات التي قمت بها وما هو الكود الذي كتبته ثم ما هي رسالة الخطأ

هل تأكدت أن Driver مثبت عندك

كيف اتأكد

تجربة ربط القاعدة برمجياً

السورس

http://www.gulfup.com/?vTNRNC

نجحت في ربط القاعدة لكن واجهتني مشكلة في ربط الداتا سورس

http://www.gulfup.com/?Nwhxvo