erreur inconnue

erreur inconnue - VB/VBA/VBS - Programmation

Marsh Posté le 30-10-2003 à 14:18:36    

qu est ce que ca veut dire ca svp ?
 
"the application requested an operation on an object with a reference to a closed or invalid Connection object"
 
c est contenu dans  
 
 
Public Const Fournisseur = "Microsoft.Jet.OLEDB.3.51  "
Public Maconnexion As Connection
 
 
Public Sub Connexion()
  Set Maconnexion = New Connection
    Maconnexion.Provider = Fournisseur
    Maconnexion.Open App.Path & "\dvd.mdb "
End Sub
 
 
MERCI
 
Private Sub RadTitre_Click()
Dim reponse As String
 
reponse = InputBox("Saisir le titre du DVD recherché", "recherche" )
 
Dim rsTitre As Recordset
Set rsTitre = New Recordset
rsTitre.ActiveConnection = Maconnexion
rsTitre.Open "select NumDVD, Titre from DVD where NumDVD = '" & reponse & "';"
 
Do While rsTitre.EOF = False
      List3.AddItem rsTitre.Fields("Titre" )
      rsTitre.MoveNext
Loop
 
End Sub

Reply

Marsh Posté le 30-10-2003 à 14:18:36   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed