[R] Problème de connexion a une base de données access .accdb
Posté : ven. 23 déc. 2016 17:26
Bonjour et bonne fête de noël à tous,
Je souhaite faire l'inventaire du parc informatique de ma boite, une partie à déjà été réalisée par un collegue dans un fichier excel en .xlsx mais moi je trouve ca fatiguant de remplir tous les paramètres dans un gros fichier excel c'est horrible.J'ai donc créé une application sur autoit qui va récupérer toutes les informations nécessaires du PC grâce aux commandes wmi.
Comme je ne sais pas du tout comment fonctionne l'UDF d'excel j'ai importé mes données de mon fichier excel dans access 2013 afin de faire des requêtes a chaque fois pour ajouter facilement les nouvelles informations.
J'ai vu dans les différents forums que l'UDF access existe mais je ne la trouve nulle part. J'ai donc copié et modifié un code sur internet pour tester la connexion entre autoit et mon fichier accesss. Le script suivant devait normalement me retourner une valeur ( Je cherche le nom de l'ordinateur qui a pour numero d'inventaire 88)
$dbname = "C:\Users\user\Desktop\inventaire.accdb"
$tblname = "Ordinateurs"
$query = "SELECT NOM FROM " & $tblname & " WHERE Numero_inventaire = 88"
Local $title
$adoCon = ObjCreate("ADODB.Connection")
$adoCon.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&$dbname)
$adoRs = ObjCreate ("ADODB.Recordset")
$adoRs.CursorType = 1
$adoRs.LockType = 3
$adoRs.Open ($query, $adoCon)
$title = $adoRs.Fields("title").value
;$title = $adoRs.Fields(2).value
$adoCon.Close
MsgBox(0,"testing",$title)
$tblname = "Ordinateurs"
$query = "SELECT NOM FROM " & $tblname & " WHERE Numero_inventaire = 88"
Local $title
$adoCon = ObjCreate("ADODB.Connection")
$adoCon.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&$dbname)
$adoRs = ObjCreate ("ADODB.Recordset")
$adoRs.CursorType = 1
$adoRs.LockType = 3
$adoRs.Open ($query, $adoCon)
$title = $adoRs.Fields("title").value
;$title = $adoRs.Fields(2).value
$adoCon.Close
MsgBox(0,"testing",$title)
"C:\Projet Autoit\inventaire\test1.au3" (10) : ==> The requested action with this object has failed.:
$adoCon.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&$dbname)
$adoCon^ ERROR
$adoCon.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&$dbname)
$adoCon^ ERROR