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

[Jazz77]

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

Merci Michel

J'ai integer ton code dans mon programme et cela fonctionne de façon impeccable

Merci à tous

[mtournay]

De rien, c'est un plaisir d'aider quand je peux

[mtournay]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TDM.QueryAfterOpen(DataSet: TDataSet);
var
    count: longint;
begin
  count := 0;
  while count<DataSet.FieldDefs.Count do begin
    DataSet.Fields[count].OnGetText:=@QueryGetText;
    inc(count);
  end;
end;

Correction, la boucle se fait sur DataSet.FieldDefs.Count, par sur le dataset.recordcount, sinon dès que le nombre de ligne dépasse le nombre de colonne, patatra

[tintinux]

Bonjour

C'est un détail, mais pour parcourir le tableau DataSet.Fields, il me semble qu'il faut mieux tester DataSet.Fields.Count, plutôt que DataSet.FieldDefs.Count qui pourrait être différent dans certains cas.

Mais surtout, pour le nom du champ, il faut je pense modifier la propriété Fields[count].DisplayName et non pas Name qui doit être un identificateur valide et ne supporte pas encore les caractères accentués.

[Jazz77]

Bonjour

C'est un détail, mais pour parcourir le tableau DataSet.Fields, il me semble qu'il faut mieux tester DataSet.Fields.Count, plutôt que DataSet.FieldDefs.Count qui pourrait être différent dans certains cas.

Mais surtout, pour le nom du champ, il faut je pense modifier la propriété Fields[count].DisplayName et non pas Name qui doit être un identificateur valide et ne supporte pas encore les caractères accentués.
__________________
Cordialement,
Tintinux

Merci Tintinux

Cependant j'ai toujours un problème d'accents mais dans l'autre sens cette fois

Quand je lis ma table Access tout va pour le mieux ...
Quand je modifie un champ en ajoutant des caractères accentués, c'est patatra.
Les caractères accentués qui viennent d'être ajoutés sont remplacés par des codes divers et variés.
par exemple les é sont remplacés par des affreux é

Le champs de la table en question s'appelle "Adresse"
J'ai essayé le code suivant .... haaaaa .... pas bien

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
procedure TDM.SQLQuery1AdresseSetText(Sender: TField; const aText: string);
Var
  MaChaine : String;
begin
   MaChaine := DM.SQLQuery1.FieldByName('Adresse').AsString ;
   DM.SQLQuery1.FieldByName('Adresse').AsString:= UTF8ToAnsi(MaChaine);
 
end;

Je cherche mais la je sèche un peu...

merci d'avance

jazz

[tintinux]

Bonjour

Oui, il faut faire l'encodage réciproque, en appelant UTF8ToAnsi dans un événement OnSetText.

Mais il faut donner à UTF8ToAnsi la valeur saisie (Editxxx.text), pas celle du champ qui a déjà été altérée par OnGetText.

[Jazz77]

Bonjour

Oui, il faut faire l'encodage réciproque, en appelant UTF8ToAnsi dans un événement OnSetText.

Mais il faut donner à UTF8ToAnsi la valeur saisie (Editxxx.text), pas celle du champ qui a déjà été altérée par OnGetText.

Merci tintinux, mais j'ai essayé avec OnSetText mais cela ne fonctionne pas.

J'ai donc essayé le code suivant, mais sans résultat

Code :

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

1
2
3
4
5
6
7
8
 
 
procedure TFormComptes.DBMemo1Exit(Sender: TObject);
begin
 
  If DBMemo1.Modified then
       DM.SQLQuery1.FieldByName('Adresse').AsString:=UTF8ToAnsi(Dbmemo1.Text);
end;

[mtournay]

Ce code fonctionne très bien de mon coté, merci

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
18
19
20
21
22
23
24
25
 
procedure TDM.QueryGetText(Sender: TField; var aText: string; DisplayText: Boolean);
begin
  atext := AnsiToUTF8(Sender.AsString);
end;
 
procedure TDM.QuerySetText(Sender: TField; const aText: string);
begin
  Sender.AsString:=UTF8ToAnsi(aText);
end;
 
procedure TDM.QueryAfterOpen(DataSet: TDataSet);
var
    count: longint;
begin
  count := 0;
  while count<DataSet.Fields.Count do begin
//    ShowMessage(DataSet.FieldDefs[count].Name);
//    DataSet.Fields[count].DisplayName : =AnsiToUTF8(DataSet.Fields[count].DisplayName);
//    ShowMessage(DataSet.FieldDefs.Items[count].Name);
    DataSet.Fields[count].OnGetText:=@QueryGetText;
    DataSet.Fields[count].OnSetText:=@QuerySetText;
    inc(count);
  end;
end;

@tintinux : très bonne idée sur laquelle je me suis jetée ... malheureusement la property DataSet.Fields[count].DisplayName n'a pas de write, juste un read, alors que DataSet.FieldDefs[count].DisplayName est write-able
Par contre cela ne change pas mes entêtes de colonnes dans un DBGrid

[tintinux]

Merci tintinux, mais j'ai essayé avec OnSetText mais cela ne fonctionne pas.

Qu'est-ce qui ne fonctionne pas ?

J'ai donc essayé le code suivant, mais sans résultat

Code :

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

1
2
3
4
5
6
7
8
 
 
procedure TFormComptes.DBMemo1Exit(Sender: TObject);
begin
 
  If DBMemo1.Modified then
       DM.SQLQuery1.FieldByName('Adresse').AsString:=UTF8ToAnsi(Dbmemo1.Text);
end;

Ca c'est sûr que ça ne peut pas marcher.
Si tu utilises un TDbMemo lié à une Query via un DataSet il ne faut pas assigner son contenu au champ. Lazarus le fait tout seul, en passant d'ailleurs par OnSetText. Si tu as gardé le OnSetText avec encodage, cela fait un double encodage.

[Jazz77]

J'ai remarqué une chose intéressante.

Que je visualise ma Fenêtre en mode conception, les caractères accentués du champs, donc les caractères "é" s'affichent correctement.

Quand je désactive les méthodes onGetText et OnSetText du champs "Adresse", les caractères accentués s'affiche normalement.

Bizarre .... Bizarre

[Jazz77]

J'ai trouvé

J'ai affecté par erreur un string access à un TDBMemo sous lazarus.
L'affichage ne fonctionne pas bien du tout dans ce cas

Mélange de crayon assuré avec les problématiques utf-8

J'ai redéfini dans Access mon Champs Adresse en champs Memo.

Et la ca va bien mieux