Discussion :

[Jazz77]

Bonjour,

Je débute en Lazarus.

Je voudrais pouvoir connecter une base ACCESS via Lazarus
Je suis sous Seven 64 et Lazarus 1.04
J'ai installé le redistribuable d'access 2010.

Sur une fiche, je dépose le composant ODBC de l'onglet SQLDB.

Quand je veux mettre la propriété de Connected à true, j'ai le message d'erreur suivant : Source de données introuvable et nom de pilote non spécifié.

Que doit on mettre comme nom de pilote pour une base ACCESS ?
Ou doit on mettre le chemin de la base ?

Merci d'avance
Jazz77

[Ph. B.]

Bonjour,

Se connecter à MsAccess

[Jazz77]

Bonjour,

Se connecter à MsAccess

Merci Philippe


En fait dans le composant ODBCConnection il faut uniquement renseigner
le propriété FileDSN avec le chemin et le nom du fichier DSN
et mettre la propriété connected=True

dans mon cas c'est FileDNS = C:\Lazarus\compta.dsn

Le contenu ce mon fichier DSN est le suivant :

[ODBC]
DRIVER=Microsoft Access Driver (*.mdb)
UID=admin
UserCommitSync=Yes
Threads=3
SafeTransactions=0
PageTimeout=5
MaxScanRows=8
MaxBufferSize=2048
FIL=MS Access
DriverId=25
DefaultDir=c:\Lazarus
DBQ=Compta.mdb

Cependant J'ai un problème d'accent
Aucun caractère accentué ne s'affiche...

[tintinux]

Bonjour

C'est sans doute parce que le jeu de caractères utilisé dans le fichier Access n'est pas celui qu'attend Lazarus, qui est UTF-8 par défaut.

Donc, il faut convertir en appelant pour chaque champ chaîne de caractère une fonction de conversion. Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TFormImport.StringOnGetText(Sender: TField; var aText: string;   DisplayText: boolean);  
begin
    aText := ISO_8859_1ToUTF8(Sender.AsString);
end;

Si c'est un MS-ACCESS récent, je suppose que le jeu de caractères est ISO-8859-1, sinon il faut utiliser une autre fonction de la même unité LConvEncoding.

[Jazz77]

Bonjour

C'est sans doute parce que le jeu de caractères utilisé dans le fichier Access n'est pas celui qu'attend Lazarus, qui est UTF-8 par défaut.

Donc, il faut convertir en appelant pour chaque champ chaîne de caractère une fonction de conversion. Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TFormImport.StringOnGetText(Sender: TField; var aText: string;   DisplayText: boolean);  
begin
    aText := ISO_8859_1ToUTF8(Sender.AsString);
end;

Si c'est un MS-ACCESS récent, je suppose que le jeu de caractères est ISO-8859-1, sinon il faut utiliser une autre fonction de la même unité LConvEncoding.

Merci tintinux

[mtournay]

j'ai passé des heures à chercher comment afficher les caractères accentués d'une base ACCESS avant de plonger dans la LCL et de trouver la fonction OnGetText

un petit tour par ici m'aurais permis de gagner pas loin de 6h dans mes dev ...

donc j'ai trouvé comme un grand :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure TDM.QueryGetText(Sender: TField; var aText: string; DisplayText: Boolean);
begin
  atext := AnsiToUTF8(Sender.AsString);
end;
 
procedure TDM.QueryAfterOpen(DataSet: TDataSet);
var
    count: longint;
begin
  count := 0;
  while count<DataSet.RecordCount do begin
//    DataSet.FieldDefs[count].Name :=AnsiToUTF8(DataSet.FieldDefs[count].Name);
    DataSet.Fields[count].OnGetText:=@DM.QueryGetText;
    inc(count);
  end;
end;

(Je réécris afin d'être bien clair pour tout le monde)

Vous remarquerez en commentaire la ligne où j'essaye de transformer les noms de champs ... la manip ne fonctionne pas. Lorsque je connecte via un DataSource la requête à un TDBGrid, les têtes de colonnes ont toujours les accents ACCESS (cad des ?) !

N'ayant rien trouvé dans les recherches google avec les mots clé 'ACCESS charset encoding' et tout un tas d'autre combinaison, ni dans le wiki de lazarus, nous devrions peut-être rajouter cette astuce et dans la faq lazarus de developpez, et dans le wiki officiel ?

@bientôt