"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
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