Précédent   Forum des professionnels en informatique > Autres langages > Pascal > Lazarus
Lazarus Forum d'entraide sur Lazarus, l'EDI RAD multiplateforme basé sur Free Pascal
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
Vieux 19/01/2012, 12h55   #1
Membre Expert
 
Avatar de Jon Shannow
 
Homme
Responsable de service informatique
Inscription : avril 2011
Messages : 692
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Ille et Vilaine (Bretagne)

Informations professionnelles :
Activité : Responsable de service informatique
Secteur : High Tech - Électronique et micro-électronique

Informations forums :
Inscription : avril 2011
Messages : 692
Points : 1 053
Points : 1 053
Par défaut ZEOS et Memo via ZTable et FieldByName

Bonjour,

J'ai une base de données SQLite3 et j'utilise les composants ZEOS.

J'ai placé un ZTable, je fais un locate et j'alimente des champs TLabelEdit et un TMemo !

Pour tous les champs pas de problème, sauf avec le TMemo !

Je fais
Code :
MonMemo.Text := MaTable.FieldByName('monmemo').AsString
Et là... rien !

J'ai essayé Text mais ça m'écris "BLOB"

Bref je tourne en rond...
Quelqu'un à une idée ?

Merci d'avance
JS
Jon Shannow est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 21/01/2012, 21h25   #2
Futur Membre du Club
 
Inscription : février 2008
Messages : 11
Détails du profil
Informations personnelles :
Localisation : Autriche

Informations professionnelles :
Secteur : Arts - Culture

Informations forums :
Inscription : février 2008
Messages : 11
Points : 19
Points : 19
Bonsoir,

J'ai testé ce petit bout de code vite fait sur une petite base SQlite3 qui traine au fond d'un dossier, ma foi ça fonctionne.

Code :
1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
begin
 
  if not ZTable1.Locate('Num',Edit1.caption,[loCaseInsensitive, loPartialKey])
   then
      MessageDlg('Suchrecord nicht gefunden.', mtInformation, [mbOK], 0);
 
      DBMemo1.Text := ZTable1.FieldByName('notes').AsString ;
 
end;

Cordialement,
Michel
michel_Vbg est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 23/01/2012, 12h41   #3
Membre éprouvé
 
Avatar de Gouyon
 
Homme Rémi Gouyon
Développeur informatique
Inscription : novembre 2003
Messages : 495
Détails du profil
Informations personnelles :
Nom : Homme Rémi Gouyon
Âge : 48
Localisation : France, Loiret (Centre)

Informations professionnelles :
Activité : Développeur informatique
Secteur : Aéronautique - Marine - Espace - Armement

Informations forums :
Inscription : novembre 2003
Messages : 495
Points : 452
Points : 452
C'est très bête ce que je vais dire mais as tu vérifié qu'il y a bien du texte dans le champs concerné.
Je dis ça car j'ai constaté qu'entre ce qu'on fait sur les tables zeos et l'effet sur la base il y a des fois des écarts. Sans doute des problèmes de mise à jour. Je sais que lorsque je lance une requête du type UPDATE j'ai intérêt à faire un Refresh sur ma TZTable. Sinon lorsque je regarde directement dans la base j'ai des différences.
__________________
Il y a des jours où j'éprouve une haine profonde envers microsoft
Venez vous défouler ici ou c'est amusant
Mon modeste site et mes modestes oeuvres sont
Rémi
Gouyon est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 23/01/2012, 14h13   #4
Membre Expert
 
Avatar de Jon Shannow
 
Homme
Responsable de service informatique
Inscription : avril 2011
Messages : 692
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Ille et Vilaine (Bretagne)

Informations professionnelles :
Activité : Responsable de service informatique
Secteur : High Tech - Électronique et micro-électronique

Informations forums :
Inscription : avril 2011
Messages : 692
Points : 1 053
Points : 1 053
Merci de vos réponses,

en fait ça marche très bien, c'est juste que je suis un GMT (Gros Museau de Tanche) et que je me suis trompé de champ !

Le pire, c'est qu'en attendant, je me suis fait des procédures GetMemo et SetMemo en utilisant les LoadFromFile et SaveToFile !

Par contre, là où je suis embêté, c'est sur les accents ! J'ai utilisé SQLite Expert Personnal pour créer mon jeu de test, et les accents ne sont pas bien géré entre Lazarus et SQLite expert !
J'arrive pas à comprendre pourquoi !
C'est pas trop grave, puisque ma base ne sera accessible que via l'appli Lazarus, mais j'aime bien comprendre !

A+

JS
Jon Shannow est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 24/01/2012, 15h43   #5
Membre éprouvé
 
Avatar de Gouyon
 
Homme Rémi Gouyon
Développeur informatique
Inscription : novembre 2003
Messages : 495
Détails du profil
Informations personnelles :
Nom : Homme Rémi Gouyon
Âge : 48
Localisation : France, Loiret (Centre)

Informations professionnelles :
Activité : Développeur informatique
Secteur : Aéronautique - Marine - Espace - Armement

Informations forums :
Inscription : novembre 2003
Messages : 495
Points : 452
Points : 452
Citation:
Envoyé par Jon Shannow Voir le message
Par contre, là où je suis embêté, c'est sur les accents
C'est un problème courant regarde ce topic http://www.developpez.net/forums/d11...eme-utf8-zeos/
__________________
Il y a des jours où j'éprouve une haine profonde envers microsoft
Venez vous défouler ici ou c'est amusant
Mon modeste site et mes modestes oeuvres sont
Rémi
Gouyon est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 25/01/2012, 08h26   #6
Membre Expert
 
Avatar de Jon Shannow
 
Homme
Responsable de service informatique
Inscription : avril 2011
Messages : 692
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Ille et Vilaine (Bretagne)

Informations professionnelles :
Activité : Responsable de service informatique
Secteur : High Tech - Électronique et micro-électronique

Informations forums :
Inscription : avril 2011
Messages : 692
Points : 1 053
Points : 1 053
OK, merci pour tout
Je clos le sujet
Jon Shannow est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +1. Il est actuellement 23h14.


 
 
 
 
Partenaires

Hébergement Web