conexion base access

Question

j'ai vraiment besoin de votre aide  merci
voici mon code

Dim con As Connection
Dim rs As New ADODB.Recordset
'permet de creer l'objet connexion et requete

Set con = New ADODB.Connection
'connection à la base
    con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & "C:\Documents and Settings\sami sahli\Bureau\essaie fichier"
con.Open
 
Set rs = New Recordset

rs.Open "insert into ac (num) values ('" & indice & "') ", con, adOpenDynamic, adLockOptimistic

je recois comme message d'ereur:
le moteur de base de données Jet ne pe ouvrir le cfichier ("chemein")il est deja ouvert en mode exclusif par un autre utilisateur

philippe laschweng 1 · Answer

Essayes voir d'ajouter ces r&#233;f&#233;rences si elles ne sont pas d&#233;j&#224; coch&#233;es dans ton projet:
Microsoft DAO 2.5/3.51 Compatibility Library
Microsoft ActiveX Data Objects 2.0 Library

J'en suis carr&#233;ment pas s&#251;r et ca m'&#233;tonnerais d'ailleurs que ce soit mais essayes toujours ...

Phil

hyrockbass · Answer

moi je ferais comme &#231;a :

'connexion a la base
Dim con As ADODB.Connection
Set con = New ADODB.Connection
con .Provider = "microsoft.jet.oledb.4.0"
con .ConnectionString = CheminBdd
con .Open
           
'utilisation de la requete
Dim rs As New ADODB.Recordset
rs.Open "insert into ac (num) values ('" & indice & "') ", con, adOpenDynamic, adLockOptimistic

'ca je suis sur que &#231;a marche. Dans le cas o&#249; &#231;a ne marche pas, je pense que comme ton message d'erreur l'indique, ton application est d&#233;j&#224; ouverte par un autre utilisateur en mode exclusif. Essai alors d'aller dans "Outil->Option" et dans l'onglet "avanc&#233;" s&#233;l&#233;ctionne "mode partag&#233;" comme mode d'ouverture par d&#233;faut

Zlub · Answer

Salut samisahliess,



Tu peux consulter le tutorial #228  pour te connecter &#224; une Base MS ACCESS.
Tu
verras comment te connecter, les r&#233;f&#233;rences &#224; cocher, comment effectuer
des requ&#234;tes, et manipuler une MSFlexgrid entre autre ...

++

Zlub

samisahliess · Answer

j'ai tout essayé toujours le meme message

Zlub · Answer

Salut,

euh, mais tu as donn&#233; quoi comme nom de fichier ..??



Parce qu'en l'&#233;tat je ne vois pas le nom de ton fichier access ...








con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "
& "C:\Documents and Settings\sami sahli\Bureau\essaie fichier\base.mdb"


<hr size="2" width="100%">



D'autre part, tu ne dois pasouvrir la base sous Access en mode exclusif si tu veux pouvoir bosser dessus correctement depuis VB.




++

Zlub

samisahliess · Answer

je vous remercie  beaucoup ça marche enfin vous etes tres gentil merci merci merci beaucoup

samisahliess · Answer

j'ai une autre question svp
je ve inserrer plusieurs valeurs dans la meme ligne en meme temps 
   voila la ligne
rs.Open "insert into table1 (priorite,att_date) values ('" & indice, dat & "') ", con, adOpenDynamic, adLockOptimistic

je ve ajouter les valeurs indice et dat dans les colonnes priorite et att_date

merci

Zlub · Answer

Salut Sami Sahliess,

Tu peux essayer comme ceci :








rs.Open "insert into table1 (priorite,att_date) values ('" & indice & "',#" & dat & "#) ", con, adOpenDynamic, adLockOptimistic






NB: Pour les dates, il faut encadrer par # et faire attention au format am&#233;ricain mm/jj/aaa ...


++

Zlub

Zlub · Answer

Salut,


Tu peux utliser par exemple, cette fonction pour passer les date mm/jj/aaa => jj/mm/aaaa



 Public Function DateSQL(ByVal datej As String) As String


 Dim jour() As String


 Dim poSp As Integer


   ' suppression de l'heure si existe


   poSp = InStr(1, datej, " ")


   If poSp > 0 Then datej = Mid(datej, 1, poSp - 1)


   


   'Mise en forme


   jour = Split(datej, "/")


   Dim nbVal As Single


   


   nbVal = UBound(jour)


   If nbVal = 2 Then


     DateSQL = Chr(35) & jour(1) & Chr(47) & jour(0) & Chr(47) & jour(2) & Chr(35)


   ElseIf nbVal = 1 Then


     DateSQL = Chr(35) & jour(0) & "/01/" & jour(1) & Chr(35)


   Else


     DateSQL = Chr(35) & "01/01/" & datej & Chr(35)


   End If


 End Function


<hr size="2" width="100%">




++

Zlub

samisahliess · Answer

merci bien je vais l'essayer

samisahliess · Answer

sa ne marche pas 

je ve le faire pur plusieurs variables

rs.Open "insert into table1 (priorite,numero,adresse) values ('" & indice, dat,adr & "') ", con, adOpenDynamic, adLockOptimistic

meme votre solution jlé essayé

Zlub · Answer

Salut,




Mais tu peux pas marquer ainsi ... c'est   ..." & tavariabel & "," & autreVariable & "...





rs.Open "insert into table1 (priorite,numero,adresse) values ('" &
indice & "',#" &  dat & "#,'" & adr & "') ", con, adOpenDynamic, adLockOptimistic


<hr size="2" width="100%">


++

Zlub

Zlub · Answer

Salut,

 
 rs.Open "insert into table1 (priorite,numero,adresse) values ('" & indice & "','" &  dat & "','" & adr & "') ", con, adOpenDynamic, adLockOptimistic
  
<hr size="2" width="100%">
 si dat est une cha&#238;ne ...


++

Zlub

Zlub · Answer

Salut,

Tu as des messages je crois : voir Mon Compte > Messagerie > Boite de Reception

++

Zlub

Conexion base access

14 réponses

Discussions similaires