ACCESS AVEC TADOTABLE (BASE DE DONNÉES)
elguevel
Messages postés
718
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
22 novembre 2016
-
15 sept. 2005 à 18:34
donkeyz Messages postés 4 Date d'inscription jeudi 21 octobre 2004 Statut Membre Dernière intervention 12 novembre 2009 - 12 nov. 2009 à 09:30
donkeyz Messages postés 4 Date d'inscription jeudi 21 octobre 2004 Statut Membre Dernière intervention 12 novembre 2009 - 12 nov. 2009 à 09:30
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/29348-access-avec-tadotable-base-de-donnees
https://codes-sources.commentcamarche.net/source/29348-access-avec-tadotable-base-de-donnees
12 nov. 2009 à 09:30
comment faites-vous pour insérer une image dans la mdb ?
Si je le fait, sa m'apparait sous forme Package et non Donnée binaire
puis delphi ne peut l'appeler.
Aider-moi s.v.p
29 déc. 2008 à 14:30
J'aimerai savoir si c'est prossible de crée une relation en les tables access avec le compo TADOCommand(SQL), et comment les utliser sous delphi
Merci.
22 déc. 2007 à 10:52
dommage que l'on puisse rechercher que par le code (ici du fournisseur).
merci beaucoup !
21 avril 2006 à 22:34
Mais, je ne suis que débutant et hélas je dois avouer que je n'ai pas trouvé comment appeler cette fonction.
Je l'ai placée dans le code avant la procédure TFich.FormCloseQuery(Sender: TObject; var CanClose: Boolean );
Quelle ligne écrire dans la procédure pour qu'elle utilise la fonction ?
A+
21 avril 2006 à 13:44
Merci pour tes conseils !
Dans le code, on a :
confirmation := MessageDlg('Désirez-vous enregistrer les modifications',
mtConfirmation, [mbYes, mbNo, mbAbort], 0);
Je ne trouve pas ces 3 composants button dans le message de dialogue.
Comment puis-je modifier le texte du bouton mbAbort pour remplacer "Abandonner" par "Ne pas fermer" par exemple ?
Merci !
19 avril 2006 à 11:49
ce que tu veux faire est très simple:
-Tu mets la table en edit mode
-Tu ouvres en ShowModal la 2eme form
-En fermant en cliquant sur un bouton Ok tu fais le Post de la table ou Cancel si l' utilisateur clique sur un bouton annuler.
Remarque: n' utilise pas de TEdit mais les TDBEdit :)
A+
19 avril 2006 à 01:30
Je viens d'avancer dans ma réflexion en étudiant encore davantage ton projet.
Je pense qu'il me suffira d'insérer une requête sur le formulaire
puis de placer des TEdit comme pour N°tel sur ton projet ainsi que la TDBImage.
Je vais étudier ensuite l'utisation de tes procédures pour lire la table ou enregistrer les changements dans la table.
Tu peux me confirmer que je suis "sur la bonne voie ?"
Merci !
19 avril 2006 à 00:55
J'ai beaucoup de plaisir à l'étudier !
Mais je me demande s'il me sera possible d'aboutir à un projet un peu différent dans lequel la modification de champ d'un enregistrement se ferait en cliquant sur cet enregistrement ce qui amène ouverture d'une nouvelle Unit ("formulaire") que l'on complète pour les modifier.
Ensuite, à la fermeture du formulaire, la table est mise à jour.
J'ai déjà fait un projet de ce type qui fonctionne bien, mais sans insertion possible d'un champ image avec un TBDImage.
Je voudrais donc partir de ton projet (avec TDBImage) mais utiliser l'ouverture d'un 2ème Unit ("formulaire") pour enregistrer ou modifier un enregistrement (avec champ Photo visible aussi sur ce formulaire).
Penses-tu que ce soit envisageable ?
Merci et Félicitations pour vos compétences à vous, les "Grands animateurs" de ce site !
3 févr. 2006 à 10:18
Pour la photo tu peux jouer avec la propriété Stretch ou encore redimensionner ton DBImage :
DBImage.Width := DBImg.Picture.Bitmap.Width;
DBImage.Height := DBImg.Picture.Bitmap.Height;
A+
2 févr. 2006 à 20:54
merci
2 févr. 2006 à 20:53
pour le jpeg:
tu met le use "jpeg"
tu met deux Timage avec un: image1 et lautre image2
tu met la valeur visible a false
et tu me le code :
procedure TFrmPrin.SBAssignPhotoClick(Sender: TObject);
begin
If OpenPictureDialog1.Execute
Then
Try
image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
Image2.Picture.Bitmap.Assign(Image1.Picture.Graphic);
DMA.ADOClients.Edit;
DBImg.Picture := image2.Picture;
DMA.ADOClients.Post;
Except
ShowMessage('Registre actuellement en edition !');
End;
end;
voila, moi sa marche... masi pas le recherche :(
2 févr. 2006 à 10:11
Moi aussi j'en aurais besoin si quelqu' un sait comment faire!
A+
2 févr. 2006 à 00:43
merci encore
2 févr. 2006 à 00:41
merci
22 sept. 2005 à 19:30
En gros j'ai çà :
---------- ------------ --------------
| FILM | | FILM_ACT | | ACTEUR |
---------- ------------ --------------
|#ID_FILM|---------------|#ID_FILM | |-------|#ID_ACTEUR |
| | |#ID_ACTEUR|-------| | NOM_ACTEUR |
| ... | | | | |
---------- ------------ --------------
=> Et je voudrai recupérer tous les acteurs d'un film !
Mais bon j'vais essayé de me demerder un peu tout seul car j'doit te saouler là :-)
en tout cas tu ma déja bcp aidé !!!
Merci encore.
Damien
19 sept. 2005 à 11:40
Table1TOTAL.Value := Table1QTD.Value * Table1VALEUR_UNITAIRE.Value;
Les champs lookup sont des champs qui vont chercher leur valeur sur une autre table. C' est très facile à utiliser.
Imagine que tu as une table de produits nommée tabProduits et une table fournisseur de ces produits nommée tabFour avec les champs COD et NOM.
Si tu veux visualiser le fournisseur pour chaque produits tu dois faire new field (dans la table tabProduits). Dans "Name" tu peux écrire ce que tu veux comme par ex. NomFour, c' est le nom que tu donnes au champ. Le type et la taille doivent être les mêmes que ceux dans le champ NOM de ta table tabFour. FieldType est donc de type Lookup.
En ce qui concerne la partie lookup definitions:
"KeyFields" représente la clé étrangère dans tabProduits. Qu 'est ce que ça veux dire? tout simplement que tu dois avoir un champ COD_FOUR dans ta table tabProduits. COD_FOUR possède la valeur du code fournisseur pour chaque produits.
DataSet est donc tabFour, c' est la table dans laquelle obn veut rechercher une valeur.
Lookup keys est tabFourCOD, ce qui veut dire que pour la valeur dans tabProduitsCOD_FOUR on va positionner le curseur de tabFour sur cette valeur pour pouvoir retourner la valeur du champ specifié dans Result field.
Result field est TabFourNOM, c' est la valeur du champ renvoyé.
J' espère que mes explications t' ont aidé.
A+
17 sept. 2005 à 11:49
Cordialement.
Damien
15 sept. 2005 à 19:00
15 sept. 2005 à 18:58
Tient je t'ai mis 10/10 pour avoir eut la patience de repondre,
c'est super sympa merci ;-)
Cordialement.
Damien.
15 sept. 2005 à 18:54
15 sept. 2005 à 18:52
15 sept. 2005 à 18:50
J'ai crée les tables : FILM, ACTEUR, GENRE, FILM_ACTEUR (jointure). C'est qu'un debut pour le moment je pense l'agrandir par la suite.
J'ai meme fait mes relations sous MS Access.
Après je me suis inspiré de ta source pour créer mon projet, tout nikel, pratiquement pas une ligne de code et tout fonctionne niquel, là ou je me retrouve bloqué c'est pour afficher les acteurs correspondant au film via la table de jointure, et aussi pour retrouver le nom du genre via le numero de genre.
Voila .. j'chai pas si j'ai été claire ?
Merci beaucoup.
15 sept. 2005 à 18:45
15 sept. 2005 à 18:42
Et concretement ? car j'ai justement ajouter un autre TADOTable, un autre DataSource, mais voila çà m'avance pas bcp :s
Bon j'vais chercher dans cette direction ... merci !
15 sept. 2005 à 18:37
15 sept. 2005 à 18:34
Mais j'ai une question :
Imaginé que vous ayez les enfants des contacts à gerer : Donc vous avez votre table contact, votre table enfants, et une table de jointure entre les deux (Appartient_A).
Comment gerer les jointures avec ce systeme ? on rajoute un TADOTable ?
Merci.
Damien.