[VB6] code barre (code 39)

**Corben** · 09/05/2006, 17h49

Bonjour je developpe une petite application en VB6 avec une douchette à code à barre j'arrive à generer un code à barre selon une valeur et à le lire avec la douchette mais je me demande comment puis je faire pour excecuter une requete SQL aprés la reception de la valeur du code à barre.

Cordialement,
Corben

**jmfmarques** · 09/05/2006, 17h54

Tu dis le lire .
Donc tu le "reçois" dans une variable ou dans un contrôle (label ou textbox) ?
Dès lors, tu possèdes une valeur à utiliser dans ta SQL, exactement de la même façon que si tu l'avais obtenue autrement que via ta "douchette" !

**Corben** · 09/05/2006, 18h13

Oui j arrive à le mettre dans une textbox ou un label mais comment lancer la requete sql dès kon à recu la valeur.
Je crois que la douchette envoie un retour chariot aprés le code à barre.
dans quel cas comment savoir si un retour chariot est saisi ?

Merci bcp

**jmfmarques** · 09/05/2006, 19h40

Evénement Change d'une textbox !

**AlainTech** · 09/05/2006, 23h23

Ou un bouton (sur la form) dont la propriété Default est à True.

**jmfmarques** · 09/05/2006, 23h44

Tu peux enfin, entre autres, déclarer une variable globale toto et utiliser un timer, mais les 2 solutions qui t'ont été proposées sont plus "légères" et elles sont éfficaces.

**edam** · 10/05/2006, 02h18

Envoyé par jmfmarques

Evénement Change d'une textbox !

mieu keypresse et detecte si keyasscii=13
comment tu insére le code dans un labels???

**Corben** · 10/05/2006, 15h50

Merci pour vos réponses j'ai utilisé cette méthode .

Code :

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

1
2
3
4
5
6
7
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Label1.Caption = "*" & Text1.Text & "*"
Text1.Text = ""
End If
End Sub

**jmfmarques** · 10/05/2006, 18h57

ou comment faire intervenir 2 fois text1.text au lieu d'une seule (suffisante) !

[VB6] code barre (code 39)

VB 6 et antérieur

Discussions similaires

Partager

Partager