Besoin daide sur visual basic
maria
-
maria -
maria -
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
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
A voir également:
- Besoin daide sur visual basic
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
12 réponses
Salut,
C'est quoi le probleme ? Lire ce qui vient du lecteur ou taper la base Access ?
Kalamit,
R.A.S.
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
et ho c'est facile hein !!!
lol
alors en gros quelles sont les contraintes access ?
111 111 111 x 111 111 111 = 12345678987654321
lol
alors en gros quelles sont les contraintes access ?
111 111 111 x 111 111 111 = 12345678987654321
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
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.
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
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
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
il suffit de récupérer le contenu du fichier, analyser la chaîne de caractères obtenues. Construire une requête (query) contenant cet élément afin de vérifier la concordance avec les entrées de la base access. En gros c'est plus ou moins ton problème?
Chouba
Casque Bleu forumique
On est pas sourd, mais si tu sembles le sous entendre, tu n'a pas parler de fichier .dat en texte...
. .
\_/