Connection à la base de données - VB/VBA/VBS - Programmation
MarshPosté le 22-08-2006 à 16:25:59
Bonjour,
Je n'arrive pas à me connecter à la base de données que j'ai créé sur access 2000
Mon code tout simple :
Private Sub Ajout_Livre_Click() Set connect = New Connection connect.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = C:\Program Files\EasyPHP1-7\www\access\bd.mdb;" Dim rs As Recordset Set rs = New Recordset
rs.Open "livre", connect, adOpenKeyset, adLockOptimistic With rs .AddNew rs("titre_livre" ) = t1.Value rs("nom_livre" ) = t2.Value rs("prenom_livre" ) = t3.Value rs("nom_collection" ) = t4.Value .Update End With rs.Close Set rs = Nothing
End Sub
Quand je clique sur le bouton ca me marque ceci :
Erreur d'exécution 2147467259 (80004005) La base de données à été placé par l'utilisateur Admin sur GRIMORG-I61TYTE dans un état l'empéchant d'etre ouverte ou verouillé.
En meme temps je vois qu'il y a un fichier Access.Lockfile.9 dans le meme dossier que ma base que je ne peut supprimmer.
Message édité par guerre de troy le 22-08-2006 à 16:26:49
Marsh Posté le 22-08-2006 à 16:25:59
Bonjour,
Je n'arrive pas à me connecter à la base de données que j'ai créé sur access 2000
Mon code tout simple :
Private Sub Ajout_Livre_Click()
Set connect = New Connection
connect.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = C:\Program Files\EasyPHP1-7\www\access\bd.mdb;"
Dim rs As Recordset
Set rs = New Recordset
rs.Open "livre", connect, adOpenKeyset, adLockOptimistic
With rs
.AddNew
rs("titre_livre" ) = t1.Value
rs("nom_livre" ) = t2.Value
rs("prenom_livre" ) = t3.Value
rs("nom_collection" ) = t4.Value
.Update
End With
rs.Close
Set rs = Nothing
End Sub
Quand je clique sur le bouton ca me marque ceci :
Erreur d'exécution 2147467259 (80004005)
La base de données à été placé par l'utilisateur Admin sur GRIMORG-I61TYTE dans un état l'empéchant d'etre ouverte ou verouillé.
En meme temps je vois qu'il y a un fichier Access.Lockfile.9 dans le meme dossier que ma base que je ne peut supprimmer.
Message édité par guerre de troy le 22-08-2006 à 16:26:49
---------------
www.guerre-de-troy.com jeu de rôle en ligne