Comment executer une requête Access 2000 sans que Access soit installé?Résolu

Question

Tout est dit dant le titre. 
Pour info j'utilise ce code trouv&#233; sur ce site, mais il ne fonctionne que si access est install&#233;:
Dim Db As New Access.Application
'Ouvrir la base de donn&#233;es
Db.OpenCurrentDatabase ("C:\base.mdb")
'Ex&#233;cuter une macro
Db.DoCmd.RunMacro ("Macro1")
'Fermer la base de donn&#233;es
Db.CloseCurrentDatabase
'Lib&#233;rer les ressources
Db.Quit
Set Db = Nothing 
J-L

PCPT · Accepted Answer

bah il n'en a pas l'air en tout cas 

tu demandes de faire un acces base, une requ&#234;te, sur une base access2000, sur un poste n'ayant pas access, &#224; partir d'une application VB6.

c'est exactement ce que mon morceau de code fait.
PCPT

cs_Tipo · Answer

Hello, 

C'est possible mais pas avec la m&#233;thode utilis&#233;e dans ce code :

Dim Db As New Access.Application

cs_69chris · Answer

Salut,



Je pense pas que &#231;a soit possible, d&#233;j&#224; ton code commence mal :

Dim Db As New Access.Application = Cr&#233;ation d'une nouvelle instance d'access....



Si tu veux utiliser une base access (pas les macro), c'est faisable
avec un langage de prog (VB6, VB.NET, ...) qui exploite le moteur jet
inclu dans le MDAC 2.7. Ca te permet de faire des requ&#234;tes sur la base
de donn&#233;es.

Par contre, pour les macro, je suis quasi certain qu'il faut access.



Chris

N'oubliez pas de cloturer votre post.

JLV1975 · Answer

Pour l'instant, on reste sur cette r&#233;ponse : CE N'EST PAS POSSIBLE!!

J-L

PCPT · Answer

salut,
message &#224; tous, &#231;&#224; vous dirait pas de dire en quel language?

bref, sous VB6, voici une partie de code :

dim db As Database
Const PassBD As String = "MDP"



Dim rs As Recordset
Dim sql As String
dim NbUsers as integer


Set db = OpenDatabase(App.Path & "\bd1.mdb", True, False, ";pwd=" & PassBD)


'compte le nombre d'occurences et formate le tableau users
    sql = "SELECT Count(users.USER) AS CompteDeUSER " & _
          "FROM users"
    Set rs = db.OpenRecordset(sql, dbOpenDynaset)
    NbUsers = rs("CompteDeUSER")
    Set rs = Nothing

fonctionne sur un poste n'ayant pas le PackOffice.....

PCPT

PCPT · Answer

woups :
r&#233;f&#233;rence : Microsoft DAO 3.6 Object Library

PCPT

JLV1975 · Answer

Prog en VB6.
Ton code, pcpt, ne parle pas des macros?

J-L

PCPT · Answer

si tu veux executer une macro, c'est le VBA de access qui le g&#232;re. en l'occurrence, en effet, tu ne peux pas ouvrir un document .xls si tu n'a pas excel. pareil pour les macro donc...

JLV1975 · Answer

OK, tu as raison.
Alors, peux t-on executer une macro sans que access soit install&#233;?

J-L

PCPT · Answer

logiquement, non. pas plus que d'ouvrir n'importe que fichier propri&#233;taire sans son logiciel...

id&#233;e comme &#231;&#224;, mais me semblant irr&#233;alisable :
essayer de trouver en binaire cette macro (&#224; partir de VB, dans la bd), la convertir en VBS, l'enregistrer et l'executer (ce vbs).
(aucune id&#233;e si un VBS con&#231;ernant access peut fonctionner sans access....)

PCPT

lefoimpeur · Answer

Moi j'ai un peu le m&#234;me soucis.

Dans mon programme j'ai fais une fonction d'exportation et lorsque je
l'installe sur un poste qui ne poss&#232;de pas access, j'ai le droit &#224;
l'erreur suivante "erreur d'ex&#233;cution '429' : Le composant ActiveX ne
peut cr&#233;er l'objet".


Apr&#232;s analyse, j'ai trouv&#233; que ca venait de la fonction OpenCurrentDatabase  dans le code suivant:




Public Sub exporter()

  Dim chemin As String

  Dim cheminExport As String

  Dim nom As String

  Dim catalogBdd As ADOX.Catalog

  Dim tblList As ADOX.Table

  Dim ouvert As Boolean

  Dim vide As Boolean

  Dim exportation As Boolean

  Dim db As Access.Application

  

  'Initialisations

  exportation = False

  Set db = New Application

  Set catalogBdd = New ADOX.Catalog

  

  'Si la base de donn&#233;e est ferm&#233;e on l'ouvre

  If cnxBdd.State = adStateOpen Then

    ouvert = True

  Else

    If ouvrirBdd Then

      ouvert = True

    Else

      ouvert = False

    End If

  End If

    

  If ouvert Then

    'R&#233;cuperation du chemin et du nom de la base

    chemin = lireChemin

    nom = Mid(chemin, 1, Len(chemin) - 4)

    'Ouverture pour l'exportation

    db.OpenCurrentDatabase (chemin)

    'Ouverture de la boite de dialogue pour choisir le chemin d'ou seront stock&#233;es

    'les tables export&#233;es

    cheminExport = SelectFolder("S&#233;lectionnez un
r&#233;pertoire de destination pour exporter la base de donn&#233;es :",
frmPrincipal.hwnd)

    If cheminExport <> "" Then

      'On liste le nom de toutes les tables dans la base de donn&#233;es

      'afin de voir si le nom pass&#233; en param&#232;tre ne correspond pas &#224; une table d&#233;j&#224; existante

      catalogBdd.ActiveConnection =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & chemin &
";Jet OLEDB:Database Password=;"

      For Each tblList In catalogBdd.Tables

        If tblList.type = "TABLE" Then

          exportation = True

          'Si le port com est ouvert, on le ferme

          PortSerie.fermerCom frmPrincipal.MSComm

          frmPrincipal.Toolbar1.Buttons("btnEnregistrer").Enabled = False

          'Exportation de la base

          db.Visible = False

          DoCmd.TransferText acExportDelim, , tblList.Name, _

         
IIf(Right(cheminExport, 1) = "", cheminExport & tblList.Name &
".csv", _

          cheminExport & "" & tblList.Name & ".csv"), True

        End If

      Next

      Set catalogBdd = Nothing

      db.CloseCurrentDatabase

      Set db = Nothing

      frmPrincipal.Toolbar1.Buttons("btnEnregistrer").Enabled = True

      If exportation Then

        MsgBox "Exportation de la
base termin&#233;e.", vbOKOnly + vbInformation, "Logiciel Environnement"

      Else

        MsgBox "La base de donn&#233;es
est vide.", vbOKOnly + vbInformation, "Logiciel Environnement"

      End If

    Else

      CloseCurrentDatabase

    End If

  End If

End Sub



Ta m&#233;thode PCPT parait pas mal mais pourrai-s-je ensuite faire une exportation au format csv de ma base? Si oui comment?



Merci d'avance &#224; tous ceux qui pourront m'aider ;)

PCPT · Answer

arf, c'est une id&#233;e, je ne connais ni VBA, ni VBS.
donc comment proc&#233;der, peut-&#234;tre en analysant une base avec un &#233;diteur Hexa tel que WinHex, mais aucune id&#233;e. ni m&#234;me si cela est r&#233;alisable...

PCPT

lefoimpeur · Answer

snif... :(

J'ai beau faire plein de recherches mais rien y fait.



Merci de m'avoir r&#233;pondu m&#234;me si tu ne sais comment faire.

PCPT · Answer

d&#233;sol&#233;
bon courage
PCPT

Comment executer une requête Access 2000 sans que Access soit installé?

14 réponses

Discussions similaires