douchette + connexion AS/400 + PDF =Infos DVD ou article

Réponse acceptée !
Salut
Ca fait beaucoup de questions tout ça.

Douchette :
La douchette, tu comptes la connecter à ton PC ou à l'AS400 ?
Si c'est sur le PC, une fois connectée au port USB (Boule de cristal V2.0), la communication s'opère sur le port COM généré par cette connexion. A toi de chercher le numéro de port COM.
Donc, ensuite, ce n'est qu'une histoire de port série et de protocole d'échange.
Pour le port COM, il doit y avoir des codes .Net et/ou des questions du forum qui te répondront.
Protocole d'échange : Soit c'est un standard (voir éventuelle RFC), soit c'est un protocole 'maison' et dans ce cas, les infos techniques te seront fournies par le fabricant de la douchette.

DB sur AS400 :
Si ta DB accepte des connexions externes, il te suffit d'avoir le driver ODBC qui va bien.
Là aussi, voir les dizaines de questions sur le forum + [ Lien ]

Fichier INI :
Voir les codes sur le site

Afficher un PDF :
Voir les codes et les questions forum

Conclusion : Tout est là, à toi de fouiner en utlisant les bons mots clés ET en ne traitant qu'un problème ç la fois

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

---

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Réponse acceptée !
Voilà où j'en suis:

Imports

System

Imports

System.Data

Imports

System.Data.SqlClient

Imports

System.Data.OleDb

Public

Class Form1

Private connAS As OleDbConnection 'Déclarer la connexion AS400

Private CmdAS As OleDbCommand

Private CmdAS2 As OleDbCommand

Private daAS As OleDbDataAdapter

Private dsAS AsNew DataSet()

Private dtAS As DataTable

Private strConnAS AsString

PrivateSub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

EndSub

PrivateSub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbEAN.TextChanged

EndSub

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim INI AsNew INIReader(CurDir() + "\Test.ini")

Dim Chemin AsString = INI.ReadString("GENERAL", "Chemin", "")

strConnAS =

"PROVIDER=IBMDA400;DATA SOURCE=NOM_PC_AS400"

'Instanciation d'un Objet Connexion

connAS =

New OleDbConnection(strConnAS)

'Ouvrir la connexion

connAS.Open()

'Instancer un objet Commande

CmdAS =

New OleDbCommand("SELECT NomFichierPDF FROM BIBLIOTHEQUE_AS400.TABLE_AS400 WHERE CodeEAN=" & TbEAN.Text)

'Instancier un objet Adapter

daAS =

New OleDbDataAdapter(CmdAS)

'initialiser l'objet Command

CmdAS.Connection() = connAS

CmdAS2 = CmdAS

Process.Start(CmdAS2)

J'ai pas mal avancé par contre je ne maîtrise pas la base AS400 et je ne sais pas encore comment récupérer le nom du fichier dans un format texte pour l'appeler dans le process.start. En + je n'ai pas pu tester la connexion à la base encore.
Qu'en pensez vous pourrez vous m'aider à résoudre les problèmes de connexion et de manipulation de requête svp.
Après pour la douchette j'ai ce bout de code:
Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

End Sub
Mais à tester aussi.
Merci d'avance pour votre aide.@+

Réponse acceptée !
En fait ce que j'aimerai maîtriser c'est ça:
Je flash mon DVD et j'arrive direct sur mon traitement qui est...
Me connecter à la base de données AS400, générer un message d'erreur si je n'y arrive pas.
Faire une requête genre SELECT NOMFICHIERPDF FROM TABDVD WHERE CodeEAN=TbEAN.text
Générer un message d'erreur si je n'arrive pas à faire cette requête.
Ensuite ouvrir le pdf ou générer un message d'erreur si je n'y arrive pas.
Pour finir je flash un code que j'aurai choisi pour sortir de l'application.

Voilà. Si vous pouvez m'aider avec des exemples concrets ça serait super.
J'espère que vous pouvez m'aider. @+