Connection à la base de données

Connection à la base de données - VB/VBA/VBS - Programmation

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
Reply

Marsh Posté le 22-08-2006 à 16:25:59   

Reply

Sujets relatifs:

Leave a Replay

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