Discussion :

[ekmule]

voilà j'ai une erreur du type : Extension file unknown ...toto.vbs

Cette erreur vient du logiciel ou bien d'une erreur dans le code vb ?

[RDM]

peux-tu donner un peu plus d'informations sur la manière dont tu arrives à cette erreur ?

[ekmule]

J'ai réalisé un projet classique avec une bbd access. Dans la bdd il y a ID,nom,type
Une page index qui affiche les noms de ma bdd avec des liens sur chacun.
Le lien va sur une autre page nommé formupdate qui affiche un tableau 2x2.

Dans le tableau il y a nom et type avec deux datatextbox , le tout dans un form avec un bouton envoyer.

Si on clique sur le bouton envoyé, il envoie les données vers une page update.
La page update est de type buisness et il n'a que un schéma XMLgram.
Dans le xmlgram j'ai ajouter après params un invoke instruction du nom de vbinstruction.

Dans vbinstruction, dans l'event manager , j'ai mis mon code vbs dans la partie AfterInstruction.

Lorsque je lance le projet il me dis l'erreur énoncé ci-dessus.

Bien entendu, j'ai testé avant de mettre mon vb et les pages marchaient sans problèmes.

j'espère que c'est plus claire.

bonne journée à tous.

[RDM]

un peu mieux
peux-tu copier ici le contenu de ton fichier xmlgram
ainsi que le code du vbs ?

[ekmule]

Le xmlgram

<?xml version="1.0"?>
<xmlgram name="update"><Assign Name="Params"/><Invoke Name="vbinstruction"><Events><Event><Name>AfterInstruction</Name><MethodName>update_vbinstruction_AfterInstruction</MethodName><Language>VB.NET</Language><Module>update</Module><FileName>update.vbs</FileName></Event></Events><XMLService>tetsuo</XMLService><OutputDestination>OUTPUTDOC</OutputDestination><OutputFieldName></OutputFieldName><Async></Async><Trace><BeforeInstruction></BeforeInstruction><AfterInstruction></AfterInstruction></Trace></Invoke></xmlgram>

Le code vbs :

Import System.Xml

Sub update_vbinstruction_AfterInstruction(XMLInstruction, InputDoc, OutputDoc, Input, Output)
Dim XMLobj As System.Xml.XmlTextWriter
Dim ue As New System.text.UnicodeEncoding
XMLobj = New System.Xml.XmlTextWriter("C:\Inetpub\wwwroot\test fredo\Site1\tetsuo.xml", ue)

'indentation du fichier'
XMLobj.Formatting = System.Xml.Formatting.Indented
XMLobj.Indentation = 3
XMLobj.WriteStartDocument()

XMLobj.WriteStartElement("root")
XMLobj.WriteStartElement("Produits")
XMLobj.WriteElementString("Taxe", "Miaouhhhh")

XMLobj.Close()
End Sub

Cependant j'ai essayé de rien mettre dans le vbs et ça marche pas aussi. C'est seulement quand j'enlève complètement le lien avec le fichier que les pages fonctionnent.

Il y a sûrement une chose que j'ai pas compris. Le but c'est que la page update écrit le résultat d'un calcul dans le xml de ma page principal pour pouvoir afficher ce résultat dans le xsl de cette page.

[RDM]

vbinstruction c'est un autre XMLService ?
il fait quoi ?

pour que ton code il marche il faut que ton projet soit VB.NET VSA !

[ekmule]

arf tu as déjà répondu !!
bon oui je l'ai mis en .vb j'ai tout suprimer les liens avec le vbs.

ça tourne mieux mais la paf encore un problème il comprend pas la ligne Imports System.Xml
edit : l erreur c'est namespace or type not found


j'ai testé mon code sous visual studio ça marche mais pas sur XMLrad.
Pourquoi ?

Si il propose VB.net c'ets qu'il doit le comprendre pourquoi ça marche pas ???

[RDM]

en VSA tu es un peu plus limité qu'en VB.NET pur avec Visual.
je te conseille de faire une appli VisualStudio VB.NET
comme en C# (cf http://xmlrad.developpez.com/Articles/Application.NET/)

[ekmule]

J'ai suivi le tutorial mais un problème est survenu. Après avoir ouvert mon projet sous visual studio et j'ai ouvert le module monprojetBM.

J'ai ajouté comme c'est marqué à ma toolbox le dll XMLCLX.dll qui est dans le bin de mon projet.

Ensuite j'ai ajouté un BusinessService et j'ai ouvert ces propriétés. Manque de bol, il en manque la moitié de ce qu'il y a dans le tutorial et je n'ai pas BeforeXMLGram.

Et quand je rentre dans le code pour ajouter ce qui est marqué dans le tutorial, la aussi un autre problème survient. Le code suivant n'est pas accepté :

monprojetBM.BeforeXMLGram

Parc que BeforeXMLGram n'existe pas dans le dll.

Comment je peux m'en sortir ?

[RDM]

ce ne sont pas des propriétés mais des événements !

[ekmule]

Alors pourquoi dans le tutorial, il ne le définit pas ? Car dans le tutorial comme c'est présenté c'est faux.

Il faut donc que je déclare BeforeXMLGram comme étant un évènement ?(si oui peux tu me donner un exemple j'ai essayé à partir de mon bouquin de vb et ça marche pas :/

[RDM]

tout est bon dan sle tutoriel, mais en VB.NET les événements ne sont pas au même endroit qu'en C#
ils sont juste au dessus de la fenêtre de code, dans la ComboBox a droite

dans l'image ci dessous:



c'est dans la combo ou y a le SayHello

[ekmule]

Mmmhh en effet, j'avais pas vu que c'était du C , faut que je dorme ça me réussit pas :/

En effet j'ai trouvé l'évènement BeforXMLgram et j'ai fait un petit code tout bête dedans pour voir si ça marche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub bsvb_BeforeXMLGram(ByVal XMLGram As XMLCLX.IXMLGram, ByVal e As XMLComponent.TBeforeXMLGramEventArgs) Handles bsvb.BeforeXMLGram
        MsgBox("toto")
End Sub

Mais aucun message :/ , j'ai encore oublié quelque chose ? (que j'ai sûrement encore une fois pas compris dans le tutorial)

Je signale quand même qu'il y a aucun message d'erreur quand je lance mon projet sous Xmlrad.

[RDM]

bsvb est bien un XMLService au niveau de ton projet ?

[ekmule]

bon dsl j'avais oublié de compiler.

ça marche maintenant, il utilise bien mon vb et j'ai juste pas compris une chose.

Dans mon vb, j'utilise des fonctions qui me donne des résultats comme un chiffre cependant quand j'ai écris mon code pour écrire(je détails pas plus) dans le xml de ma page index (index.xml) . L'accés n'est pas autorisé.

Faut-il passé par un outil de xml rad pour récupérer els résultat de mon vb ?

[RDM]

j'avoue ne pas avoir compris ce que tu as fait, peux-tu détailler un peu plus ?

[ekmule]

bah j'ai fait une page webform avec un lien vers une page buisness. Sur ma page buisness j'ai mis un code VB à partir de visual studio dont le but est de renvoyer une valeur à la première page.

voilà.

La j'ai un autre problème étrange mais j'en parlerai dans un autre post car le sujet est différent.

[RDM]

un BusinessService n'a pas de XSL donc n'affiche rien.
si tu appelles un BusinessService, il faut faire un NextAction vers un WebForm pour afficher quelque chose.

si tu veux rafficher la même page avec une nouvelle valeur il faut plutot mettre dans le lien ta webform courante, pour qu'elle soit rappeler.

regarde comment c'est fait pour une SearchForm