Acceder à des bases Access en VBS

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Acceder à des bases Access en VBS

_xme_

Bonjour,
Merci d'avance pour votre lecture
Voila j'ai déjà posté dans une autre section sur mon projet. lien
Mais ayant changé de strategie, je poste de manière plus à proprié ici.
Je souhaite faire une interface pour des bases de données :sweat: . Ces bases de données ont toutes le même schéma relationnel ouf .
Suite à la discussion cité précédemment, j'ai décidé de me lancer dans le VB que je ne connaissais alors que de nom.
J'ai une série de question provenant de tout les lectures que j'ai pu faire sur le web ( merci google )
La première qui risque de sembler bizarre mais qui pourtant me dérange pas mal est :
J'ai lu qu'entre autre il était plus simple de passer par des "interfaces" objet prédéfini pour accéder à la base
Je dis peut être une bétise mais je crois devoir utiliser ADO
J'ai lu que pour pouvoir l'utiliser il fallait entre autre la paramétrer lien
Seulement voila aucun détail sur ce point :lol:
Donc savez comment accede-t-on au "Projets - Références, Microsoft AtiveX Data Objects 2.x Library"
J'ai de nombreuse fois trouvé cette remarque comme quoi il fallait avoir ajouter la dll mais jamais comment le faire? :pt1cable:
Ou ai-je mal interpréter ?
Je précise que suite à mes lectures, j'ai découvert, le hta que j'ai choisi car le fait d'utiliser le html pour faire une interface m'a beaucoup enthousiasmer
Merci de votre aide

Message édité par _xme_ le 29-06-2009 à 10:23:04

Publicité

pataluc

euh... pourquoi t'as posté dans XML/XSL?

_xme_

car j'ai selectionné vbs/vba et que j'ai du tourner la roulette -_-
I'm a boulet
y a moyen de déplacer le post?

edit trouvé suffit d'edit le 1er message :lol:
edit 2 j'ai oublié de précisé que j'avais trouvé ce lien
mais que je ne l'ai pas compris :sweat:

edit je precise que je travaille avec Access 2002

Message édité par _xme_ le 29-06-2009 à 10:50:56

olivthill

Citation :

comment accede-t-on au "Projets - Références, Microsoft AtiveX Data Objects 2.x Library"

1. Il faut ouvrir une fenêtre VBA dans Access. Donc, il faut créer un module, ou bien éditer le code d'un formulaire en appuyant sur Alt F11.

2. Aller dans la barre de menu, et cliquer sur "Outils".
Normalement, la première option est "Références..."
Parfois on n'a pas de chance et cette option est grisée. Mais habituellement, elle est accessible.

3. Ensuite, on a une boite de dialogue contenant une liste de "références" avec ce qu'il faut pour en enlever, en ajouter, ou changer l'ordre des références.

_xme_

Merci pour la réponse bien détaillée
Par contre vu la solution, je me pose d'u coup une nouvelle question ^^
Est-ce que cela va marcher même dans mes codes VBS ?

Bon je ne sais pas si c'est lié mais voila mon code et mon erreur:

Code :

<html>
<HEAD>
<TITLE>Application : Test d'acces</TITLE>
<HTA:APPLICATION ID = 'Test'>
<script language="VBScript">
Sub CreerRequete(Nom As String, SQL As String )
Dim MaCom As New ADODB.Command
Dim MCat As New ADOX.Catalog
Set MCat.ActiveConnection = CurrentProject.Connection
MaCom.CommandText = SQL
MCat.Procedures.Append Nom, MaCom
Set MCat=Nothing
Set MaCom=Nothing
End Sub
</script>
</HEAD>
<BODY>
<p>test</p>
</BODY>
</html>

le code est directement tiré de developpez mais ca marche pas :cry:
et puis faut voir l'erreur :
erreur ligne 6 char 25
)' attendu :sweat:
en même temps je sais qu'il manque quelque chose, car jamais je ne présice le chemin de ma base

Message édité par _xme_ le 29-06-2009 à 13:16:25

olivthill

Il ne faut pas se décourager au premier petit obstacle rencontré.

VBS permet de faire beaucop de choses en utilisant les ActiveX. Access et Excel ont des ActiveX, que l'on nomme aussi parfois "Automation". Mais les produits autres que ceux de M$ n'ont pas toujours des interfaces de type ActiveX.

La méthode que je préfère pour accèder à des bases de données de différents types, est de le faire en PHP avec l'ensemble des fonctions, AdoDB, voir http://fr.wikipedia.org/wiki/ADOdb .

Message cité 1 fois

_xme_

olivthill a écrit :

Je te rassure olivthill, je ne suis pas découragé
Bon par contre je ne pense pas que la synthaxe php va marcher :whistle:
Du coup je repose ma question, est ce que le paramétrage dans Access va marcher pour tout mes scripts VBS ? :??:

edit j'ai edité mon post précédent pour montrer mon soucis

Message cité 1 fois
Message édité par _xme_ le 29-06-2009 à 11:52:32

_xme_

_xme_ a écrit :

Je crois que je viens de trouver mon bonheur
lien

_xme_

erreur
à priori c'est que j'ai des dll manquantes car même en utilisant le script fournit
J'obtiens une erreur.
erreur de synthaxe ligne 10
la ligne en question:

Code :

Option Compare Binary

difficile de faire une erreur de synthaxe dessus du coup peut être le contexte mais voilà, y a rien autour

Code :

<html>
<HEAD>
<TITLE>Application : Test d'un enregistrement excel</TITLE>
<HTA:APPLICATION ID = 'test'>
<script language="VBScript">
' ===========
' Module SQL
' ===========
Option Explicit
Option Compare Binary
Public cnx As New ADODB.Connection
[...]

du coup là je seche :??:
est ce que le HTA peut poser problème?

merci de votre aide

_xme_

personne n'a d'idée :??:
Est ce quelqu'un a déjà fait du VBS pour acceder à une base Access?
Je prend n'importe quel bout de code, même sans explication.
Mais là ca fait plus d'une journée que je teste plein de chose. Mais à chaque fois ca foire...
Je pense que ca vient du fait qu'a chaque fois je pars de code VBA
J'ai pas trouvé un seul code VBS qui se connecte à Access qui marche

Publicité

_xme_

bon je persiste et signe :bounce:
voici mon code actuel

Code :

<html>
<HEAD>
<TITLE>Application : Test d'un acces access</TITLE>
<!-- <HTA:APPLICATION ID = 'Test'>--!>
<script language="VBScript">
Set appAccess = CreateObject("Access.Application" )
'Déclare le nom de la base de données et l'ouvre
nombase1 = "C:\TEMP\Copie de base.mdb"
appAccess.OpenCurrentDatabase nombase1
appAccess.Application.Visible = True
set cnx =CreateObject("ADODB.Connection" )
cnx.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+"\..\..\..\TEMP\Copie de base.mdb" )
Public Sub Testrequete()
set sql = "SELECT champ FROM table"
set rs= CreateObject("ADODB.Recordset" )
rs = cnx.Execute(sql)
' rs.Open sql, cnx, adOpenStatic, adLockReadOnly ' Execution de la requête
End sub
</script>
</HEAD>
<BODY>
<INPUT TYPE="button" NAME="bouton3" VALUE="Test" onClick="Testrequete()"><BR>
</BODY>
</html>

J'ai déjà des progrès j'arrive à lancer une base access :lol:
mais bon je doute que ca serve, mais ca fait tjs plaisir de voir un truc s'afficher :pt1cable:
mais voila des que je clique sur le bouton, j'ai l'erreur suivante :
Objet requis : '[string "Select champ "]'
donc je remarque que la chaine est plus courte que prévu...
est ce que l'erreur vient de là ?
Je cherche toujours
Si quelqu'un a une idée, je suis preneur
Comme vous pouvez voir j'ai essayer 2 méthose pour lancer la requete, les deux donne le même résultat -_-

Message édité par _xme_ le 30-06-2009 à 11:33:38

olivthill

Citation :

Objet requis : '[string "Select champ "]'

C'est à cause du set dans la ligne set sql = "SELECT champ FROM table"

Mais, une fois corrigé ce problème, beaucoup d'autres choses causent des erreurs (la première erreur étant le commentaire qui doit être entre  et non pas entre <!-- et --!> ). Finalement, je suis parvenu à ceci qui marche chez moi :

<html>
<HEAD>
<TITLE>Application : Test d'un acces access</TITLE>

<script language="VBScript">

nombase1 = "C:\...........\......mdb" ' $$ mettre le bon chemin
set cnx =CreateObject("ADODB.Connection" )
cnx.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & nombase1 & ";Persist Security Info=False" )

Public Sub Testrequete()
sql = "SELECT mon_champ FROM ma_table" ' $$ remplacer mon_champ et ma_table
set rs = CreateObject("ADODB.Recordset" )
rs.Open sql, cnx
i = 1
Do While (Not rs.EOF)
MsgBox i & " ) Champ = " & rs("mon_champ" ) ' $$ remplacer mon_champ
rs.MoveNext 'suivant
i = i + 1
Loop
rs.Close 'Fermer le recordset
Set rs = Nothing 'Libération de la mémoire allouée
cnx.Close 'Fermer la connexion à la base
End sub
</script>
</HEAD>
<BODY>
<INPUT TYPE="button" NAME="bouton3" VALUE="Test" onClick="Testrequete()"><BR>
</BODY>
</html>

Message cité 1 fois

_xme_

olivthill a écrit :

Citation :

Objet requis : '[string "Select champ "]'

aarrrgh mon dieu vivant :ouch:
enfin un code simple qui marche chez moi :love:
bon ben merci pour tout
je vais me débrouiller avec ca

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Acceder à des bases Access en VBS

Sujets relatifs
[VBA Access] Problème de requête	[VBS] Supprimer des espaces dans un fichier texte
[VBS][Résolu] Supprimer une ligne dans Excel	Export Excel vers Access à l'aide de VBA
[T-SQL] "Aliaser" les bases liées avec SQL Server 2k8	[VBS] Convertir VBS en un éxécutable, est-ce possible ?
[VBS][RESOLU][SCRIPT]Script de suppression de fichiers temporaires	[VBS] Récuperer contenu fichier texte dans une variable:
Problème Libraires VBA Access	Erreur de compilation VBA Access
Plus de sujets relatifs à : Acceder à des bases Access en VBS

Page générée en 0.051 secondes