Utiliser un champ photo dans une base access

Version imprimable

22/12/2008, 18h48
mapoupou

besoin d'aide sur application

bonjour
je tente de realiser une petite application pour permettre a ma fille de saisir sa collection de petshops

(je me suis servi d'une table access déja existante)
mais je bute sur 2 points

je voudrais qu'elle puisse ajouter la photo de l'annimal a chaque enregistrement,puis mettre des boutons pour chaque categorie qui en cliquant dessus ouvrirais la categorie correspondante avec toutes les photo de chaque annimal correspondant a la categorie choisis.
j'ai essayé avec recordsource mais apparament je me suis planté

pouvez vous m'aider ?
j'ai joints la base de donnée ainsi que le projet

merci
Suis je obliger de passer par une table access pour realiser ce petit projet?
22/12/2008, 19h37
Bilxadim

Salut,

Citation:

(je me suis servi d'une table access déja existante)

Vous avez oublié d'insérer la base de données dans fichier attaché (Projet.rar)
Comme vous avez avez eu le goût de le faire avec VB, pourquoi utiliser autre chose.
Bon courage
Cordialement
30/12/2008, 19h52
mapoupou

Utiliser un champ photo dans une base access

bonjour
je souhaite pour ma fille realiser un petit prog qui lui permetra de saisir des info sur sa collection de petshops

ce programme est baser sur une base de donnee acces

j'ai ouver vb6,j'ai connecter ma base avec access
creer un formulaire avec 3 champs.

1 champ ref
1 champ categorie
1 champ photo

c'est sur 3 que je coince (quel objet dois je choisir et quel propriete)
merci de m'aiguiller
merci
31/12/2008, 11h32
hugoclo

Bonjour,
Dans access pour une photo il faut mettre un champs OLE.
Attention un base access c'est 2 giga max.
Le mieux c'est de mettre un champs texte dans lequelle vous mettez le chemin de l'image.
Dans votre prog VB6 il vous suffira juste de mettre un objet image et de le faire pointer sur votre textbox contenant le chemin de l'image.

Code:

Image1.Picture = LoadPicture(txtphoto.text)
31/12/2008, 13h20
mapoupou

merci
je vais essayé ça
si je comprends bien
je creer un champ texte
je clique dessus
je marque en code: Image1.Picture = LoadPicture(txtphoto.text)

mais ou je dois mettre le chemin des photos ?
en fait chaque enregistrement a sa photo

merci
31/12/2008, 17h16
hugoclo

1 pièce(s) jointe(s)

Je me suis permis de modifier quelques petites choses dans ton projet.
Cela peut te servir comme base de départ.
Attention tu n'as pas mis de cléf primaire dans ta base.
01/01/2009, 11h59
mapoupou

merci
c'est déja une tres bonne base de depart
mais je n'arrive pas a l'ouvrir
vb me met impossible de trouver le fournisseur il n''est peut etre pas installer
peux tu m'aider

encore merci

Petite précision, lorsque tu cliques sur le bouton "Insertion image" et que tu selectionnes une image le prog la copie dans le dossier image.
Donc il ne faut pas choisir une image qui est deja dans le dossier image.(Ou alors il faut un peu modifier le code.)

Code:

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
26
27
28
29
30
31
32
33
34
35
36
Private Sub Command1_Click()
Dim FicDest As String
Dim ficSource As String
 
 'Attribue à CancelError la valeur True
  CommonDialog1.CancelError = True
  On Error GoTo errhandler
  ' Définit la propriété Flags
  CommonDialog1.Flags = cdlOFNHideReadOnly
  ' Définit les filtres
  CommonDialog1.Filter = "Tous les fichiers (*.*)|*.*|Fichiers image" & _
  "(*.jpg)|*.jpg|Fichiers batch (*.bat)|*.bat"
  ' Définit le filtre par défaut
  CommonDialog1.FilterIndex = 2
  ' Affiche la boîte de dialogue Ouverture
  CommonDialog1.ShowOpen
  ' Affiche le nom du fichier sélectionné
  Me.Label4.Caption = CommonDialog1.FileTitle
  FicDest = App.Path & "\images\"
  ficSource = CommonDialog1.FileName
      If FSO.FileExists(FicDest & CommonDialog1.FileTitle) = False Then
  FSO.CopyFile ficSource, FicDest
     Else
        reponse = MsgBox("le fichier existe déjà, voulez vous l'écraser?", vbYesNo, "Attention")
        If reponse = vbYes Then
            FSO.CopyFile ficSource, FicDest, True
            Else
            Exit Sub
        End If
      End If
    Exit Sub
errhandler:
  'L'utilisateur a cliqué sur Annuler
 
  Exit Sub
End Sub

merci
mais je ne comprends rien j'ai un prb de fournisseur qui empeche l'ouverture
avec le debogueur
j'ai cette erreur
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Form_Load() Adodc1.CommandType = adCmdTable Adodc1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\pets.mdb" Adodc1.RecordSource = "saisis" adodc1.Refresh 'Text1.Text = Adodc1.Recordset!ref 'Text2.Text = Adodc1.Recordset!categorie 'Label4.Caption = Adodc1.Recordset!photo End Sub
je vais voir en me servant de ton exemple si cela marche en creant un nouveau projet,car j'ai un prob de fourniseur,lequel as tu choisit et comment l'installer.

merci desolé de mon ignorance

02/01/2009, 13h10
hugoclo
Le probleme vient de ta version de access.
Dans l'exemple c'est avec access 2007.
Pour les autres versions access remplace:
Code:

1 2 Adodc1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\pets.mdb"
par:

Code:

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\pets.mdb"

Normalement cela devrait resoudre ton probléme
02/01/2009, 13h26
mapoupou

merci
je viens d'installer office 2007
ca marche
il demarre

encore merci pour ton aide

je vais etudier tas procedure et comprendre les etapes pas a pas
comment ajouter des enregistrement ou me deplacer dans les enregistrement adoc est grisé

mais ne te tracasse pas pour moi
je vais essayer de creer des boutons
si ca merche pas tu pourras m'aider a corriger le code

au fait a quoi sert le 2) adoc qui est en false ?

merci
02/01/2009, 16h15
hugoclo

1 pièce(s) jointe(s)

Voila une version qui fonctionne mieux.
02/01/2009, 22h04
mapoupou

merci a toi !!!!!!!!!!!!!!!!