Besoin daide sur visual basic

Salut

les données envoyées par le lecteur sont de quel type ???

Chouba
Casque Bleu forumique

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

Kalamit,
R.A.S.

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

mais il a tout compris, c'est bien 8)

Chouba
Casque Bleu forumique

et ho c'est facile hein !!!

lol

alors en gros quelles sont les contraintes access ?

111 111 111 x 111 111 111 = 12345678987654321

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

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

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.

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

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

de rien 8)

Chouba
Casque Bleu forumique

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