nanard
-
8 juil. 2001 à 22:33
cs_EBArtSoft
Messages postés4525Date d'inscriptiondimanche 29 septembre 2002StatutModérateurDernière intervention22 avril 2019
-
21 août 2007 à 09:51
« Aide dans la réalisation finale sur Cdrom d’un projet de base de données aquariophile. »
-plus d’infos-
Je viens de réaliser une base de données sous VB5 qui fonctionne très bien sur le disque dur.
Je voudrai pouvoir lire les données directement du Cdrom, mais je
rencontre des problèmes de lien concernant la lecture des vidéos,
Ainsi que l’erreur ci-dessous :
« Le moteur de la base de données Microsoft Jet ne peut ouvrir le
Fichier ‘G :mon fichier.mdb ‘. Il est déjà ouvert en mode exclusif par un autre utilisateur, ou vous devez avoir l’autorisation de visualiser ses données. »
Il se peut que la version du moteur jet ne soit pas compatible,
Je suis obligé d’utiliser la version Access 97, la version 2000
N’étant pas reconnue par VB5.
Un formulaire comprend plusieurs boutons qui ouvre chacun
un formulaire qui affiche actuellement les données d’une
table créée sous Access (images, Vidéos et textes sont copier dans la table).
qui comprent :
Un OLE pour les images
Un OLE pour les Vidéos
Un Texbox pour les informations
Un Dbgrid pour lister les enregistrements
Ci-joint les codes.
‘ci-dessous le formulaire qui comprend tous les boutons.’
Private Sub cmdAccueil_Click()
Dim frmX As New FrmAccueil
'
' Affiche le formulaire Accueil.
'
frmX.Show vbModal
Set frmX = Nothing
End Sub
Private Sub anabantides_Click(Index As Integer)
Dim frmX As New frmAnab
'
' Affiche le formulaire Anabantides.
'
frmX.Show vbModal
Set frmX = Nothing
End Sub
Private Sub CmdFamilles_Click()
Dim frmX As New Frmlesfamilles
'
' Affiche le formulaire Diaporama.
'
frmX.Show vbModal
Set frmX = Nothing
End Sub
Private Sub cobitiides_Click(Index As Integer)
Dim frmX As New frmCobit
'
' Affiche le formulaire cobitiides.
'
frmX.Show vbModal
Set frmX = Nothing
End Sub
Private Sub ChargerProg(CheminProgramme, CheminFichier)
Shell CheminProgramme & " " & CheminFichier, vbNormalFocus
End Sub
‘cette application est charger sur le disque dur’
Private Sub Command1_Click()
ChargerProg "Ppview32", "c:\Aqua2001\diaporamas\initiation.pps"
End Sub
Private Sub cyprinides_Click(Index As Integer)
Dim frmX As New frmCyprin
'
' Affiche le formulaire Cyprinides.
'
frmX.Show vbModal
Set frmX = Nothing
End Sub
Private Sub Form_Load()
'met l'icône a un endroit choisi
Dim Retour As Long
Retour = SetCursorPos(580, 500)
End Sub
Private Sub maladies_Click(Index As Integer)
Dim frmX As New frmMala
'
' Affiche le formulaire maladies.
'
frmX.Show vbModal
Set frmX = Nothing
End Sub
Private Sub nourriture_Click(Index As Integer)
Dim frmX As New frmNourri
'
' Affiche le formulaire nourriture.
'
frmX.Show vbModal
Set frmX = Nothing
End Sub
Private Sub plantes_Click(Index As Integer)
Dim frmX As New frmPlant
'
' Affiche le formulaire plantes.
'
frmX.Show vbModal
Set frmX = Nothing
End Sub
________
‘Ci-dessous le formulaire qui affiche
les données d’une des tables’
Public SwitchVal As Boolean
Private Sub cmdAccueil_Click()
Dim frmX As New FrmAccueil
'
' Affiche le formulaire Accueil.
'
frmX.Show vbModal
Set frmX = Nothing
End Sub
Private Sub cmdGlos_Click()
Dim frmX As New frmGlos
'
' Affiche le formulaire Glossaire
'
frmX.Show vbModal
Set frmX = Nothing
End Sub
Private Sub cmdinfor_Click()
Dim frmX As New frmInform
'
' Affiche la boîte de dialogue information.
'
frmX.Show vbModal
Set frmX = Nothing
End Sub
Private Sub retFamilles_Click()
Dim frmX As New frmfamil
'
' Affiche le formulaire familles’
'
frmX.Show vbModal
Set frmX = Nothing
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
' data défilement de la liste DBGrid.
End Sub
Private Sub DBGrid1_Click()
' liste de défilement de la table genre et espèce.
End Sub
Private Sub Form_Load()
' Recherche du premier répertoire
chemin$ = App.Path
If Right$(chemin$, 1) <> "" Then
chemin$ = chemin$ + ""
End If
Private Sub Imprime_Click()
' Initialisation de AutoRedraw
frmAcan.AutoRedraw = False
' Construction de la feuille
frmAcan.Print "Essai sur le formulaire"
frmAcan.Print
frmAcan.Print "c'est écrit"
' Impression du formulaire
frmAcan.AutoRedraw = True
frmAcan.PrintForm
frmAcan.AutoRedraw = False
End Sub
Private Sub OLE1_Updated(Code As Integer)
'à cette endroit je devrai pouvoir afficher la vidéo en cliquant dessus'
' mais j'ai un message d'erreur concernant microsolt jet'
'ou l 'objet OLE demande l'emplacement des fichiers Vidéos la première fois pour créer la liaison'
End Sub
Private Sub OLE2_Updated(Code As Integer)
' affiche l'image de la table.
End Sub
' Ajoutez KeyAscii = 0 dans l'évenement KeyPress' de la Textbox
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
'Empéche la correction du texte.
End Sub
Si besoin plus d’infos, je suis à votre disposition.
Merci
