Using lazrus 2.2 ORC1-fpc-3.2.2-win64
error message: Project MyAccessPractice raised exception class EODBCException with message
'Could not connect with connection string'DRIVER=[Microsoft Access Driver(*.mdb,*.accdb)];
DBQ=C:\Lazarus_MSAccess\MyAccess.accdb;' ODBC error details: LastReturnCode:SQL-ERROR;Record1:SqlState:IM4002;NativeError 0; Message:[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified;
Here is the code, copied from internet
unit AccessUnit;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, odbcconn, SQLDB, DB, Forms, Controls, Graphics,
Dialogs,
DBGrids, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Label1: TLabel;
ODBCConnection1: TODBCConnection;
SQLQuery1: TSQLQuery;
SQLTransaction1: TSQLTransaction;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
ODBCConnection1.Driver:='Microsoft Access Driver (*.mdb,*.accdb)';
ODBCCOnnection1.params.add('DBQ='+ExtractFilePath(Application.ExeName)+'MyAccess.accdb');
ODBCConnection1.Connected:=TRUE;
ODBCConnection1.KeepConnection:=TRUE;
SqlTransaction1.DataBase:=OdbcConnection1;
SqlQuery1.DataBase:=ODBCConnection1;
SQLQuery1.UsePrimaryKeyAsKey:=False;
SqlQuery1.SQL.Text:='Select * FROM Student';
Datasource1.DataSet:=Sqlquery1;
DBGrid1.DataSource:=DataSource1;
If ODBCConnection1.Connected then
begin
label1.Caption:='Connected';
end;
SqlQuery1.Open;
end;
end.Current MS Access Driver
Microsoft Access Driver (*.mdb,*,accdb) Version 16:00 15928020006 -------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20230206/74d75a92/attachment.htm>