besoin daide sur visual basic Fermé

Question

Bonjour
il faut que j'etablissse la relation entre une base de données access et un lecteur code barre en établisssant un code en visual basic me pemettant de lire les données géneré par le lecteur code barres et en les adaptant a la base de données existante.
Je vous remercie par avance

choubaka · Answer

Salutles données envoyées par le lecteur sont de quel type ???ChoubaCasque Bleu forumique

kalamit · Answer

Salut,C'est quoi le probleme ? Lire ce qui vient du lecteur ou taper la base Access ?Kalamit,R.A.S.

bbakeroo · Answer

bonjour,

suis un peu perdu mais bon...

objectif = intégrer le resultat de la lecture code barre dans access

methode = un code vb qui aurait pour mission d'interpreter le resultat de lecture pour le rendre compatible avec des contraintes existantes ?

j'ai bien compris ?

111 111 111 x 111 111 111 = 12345678987654321

choubaka · Answer

mais il a tout compris, c'est bien 8)ChoubaCasque Bleu forumique

bbakeroo · Answer

et ho c'est facile hein !!!lolalors en gros quelles sont les contraintes access ?111 111 111 x 111 111 111 = 12345678987654321

maria · Answer

oui calamit  je sais pas comment faire pour  le code en visual basic

bbakeroo · Answer

maria, qu'est-ce qui bloque ?as-tu commencé à écrire un bout de code ?à partir de quel moment tu coince ?111 111 111 x 111 111 111 = 12345678987654321

kalamit · Answer

Ah OK.
Choubaka t'a deja donné quelques elements de réponses.
Il faut que tu cherches un tutorial sur:
- Comment lire un fichier texte.
- Comment connecter une base Access.

Avec ca normalement t'es paré.

Un petit exemple: http://www.vbfrance.com/article.aspx?Val=8296

A+ !

Kalamit,
R.A.S.

choubaka · Answer

Voilà un petit exemple de récupération de données à partir d'un fichier dat. Bon ça va pas fonctionner comme ça, passke ça vient d'un programme complet mais le principe reste le même.

Public Sub getRoutes()
'

'Ouvre le fichier "/destination.dat", s'il est présent, et copie les données dans
'la "routingTable".

On Error GoTo Handler:

Dim i As Integer 'Compteur de boucle.
Dim fileId 'Identification VB du fichier;
Dim dataFile As String 'Nom du fichier.

dataFile = App.Path & "/destination.dat" 'Initialisation du chemin et du nom du fichier.
'--------------------------------------------------------------------------------------------
'Format du fichier: c'est le contenu du fichier
'
'1
' '"",17,"","/annuaire.dat"
'--------------------------------------------------------------------------------------------
If (Dir(dataFile) = "") Then
'
'Si le fichier n'existe pas, il est créé avec les données suivantes.
'
'Initialisation de "RoutingTable" avec les paramètres par défaut.
routingTable(0).selfNua = ""
routingTable(0).port = 17
routingTable(0).portState = NOTWORKING
routingTable(0).selfCUD = ""
routingTable(0).currentAnnuaire = "/annuaire.dat"

routingTableEntries = 1 'Initialisation du nombre d'entrées du fichier.

Else

fileId = FreeFile 'Identification du fichier.
Open dataFile For Input As fileId 'Ouverture du fichier.
Input #fileId, routingTableEntries 'Lecture et stockage du nombre d'entrées.

If routingTableEntries > 0 Then 'Lecture des données et stockage dans le "routingTable".

For i = 0 To routingTableEntries - 1
Input #fileId, routingTable(i).selfNua, _
routingTable(i).port, _
routingTable(i).portState, _
routingTable(i).selfCUD, _
routingTable(i).currentAnnuaire
Next i

End If

Close fileId 'Fermeture du fichier.

End If

Exit Sub

Handler:
MsgBox "Impossible to open " & dataFile
Resume Next

End Sub

voilà

Chouba
Casque Bleu forumique

choubaka · Answer

Ci dessus on parle de routingTable( le type c'est Type routingInfoT ), c'est un type qui a été crée pour le besoin de l'application

le voilà

Type routingInfoT 'Paramètres liés au terminal et au modem X25.

selfNua As String 'Le nua (adresse) du terminal.
port As Integer 'Quel port utiliser pour les communications (via X25Modem).
portState As Integer 'NotWorking, Working, InUse.
selfCUD As String 'Call User Data associé au terminal.
currentAnnuaire As String 'Nom du fichier annuaire associé au terminal (path).

End Type

Chouba
Casque Bleu forumique

choubaka · Answer

de rien 8)ChoubaCasque Bleu forumique

maria · Answer

excuse moi de te déranger choubaka mais je voudrai si c'est possible avoir lexplication de de ce petit bout de programme
public commande As New ADODB.connection
en realite c'est adodb qui me pose problème je ne sais pas ce que ca veut dire
je te remercie par avcnce

Besoin daide sur visual basic

12 réponses

Discussions similaires

Newsletters