code sous vb

bonjour,
j'utilise une interface programmé sous vb. mais le problème c'est que je ne maitrise pas bien ce langage.
il y en a un problème que je n'arrive pas à le localiser. lors de l'exécution il n'y a pas d'erreur mais lorsque j'utilise l'interface ca ne marche pas.
je me demande si ce segment est correcte.

Code:

---

1 2 3 4 5 6

Private Sub cmdGo_Click() cmdGo.Caption = "Traitement en cours..." cmdGo.Enabled = False DoEvents lancer End Sub

---

et

TCP.Connect "localhost", 4321
c'est quel port le 4321? est ce que c'est le port par defaut ou quoi? parce que lorsque je le change par le port SQL ca ne marche plus!
merci pour l'aide

Bonjour,

Oublie pas d'utiliser les balises Code ;)

Code:

---

1 2 3 4 5 6 7

Private Sub cmdGo_Click() cmdGo.Caption = "Traitement en cours..." cmdGo.Enabled = False DoEvents lancer End Sub

---

Je vois pas l'interet de cette ligne ?

Code:

---

cmdGo.Enabled = False

---

Sinon le code a l'air correct pour moi
Pour le port je ne sais pas :)

Cdt
Over

Citation:

---

Envoyé par Overcrash3181

Je vois pas l'interet de cette ligne ?

Code:

---

cmdGo.Enabled = False

---

---

Sinon la procédure lancer serait à nouveau implémenté si l'utilisateur clique à nouveau sur le bouton alors qu'elle n'est pas terminée, d'ou risque de perturbation, je suppose qu'en sortie de la dite sub, il y a un

Code:

---

cmdGo.Enabled = True

---

Ha ok je comprend

Bas merci bien ;)


Cdt
Over

j'ai essayé avec

Code:

---

cmdGo.Enabled = True

---

mais ca n'a pas marché.
je doute fort de la partie

Code:

---

TCP.Connect "localhost", 4321

---

dans la fonction lancer() parce que le port qu'utilise SQL est 3306 et ce même port que j'utilise pour accéder à la base sous access. qu'est ce que vous en pensez?

Je vais peut être dire une bêtise mais quand j'ai des soucis avec cette histoire de port c'est souvent qu'il était pas ouvert sur le routeur.

Tu pense que ca peut avoir un rapport?

je l'ai vérifier et je l'ai changé et ca marche.
j'essaie de corriger un code que je ne l'ai pas ecrit!!8O c'est ça mon probleme:cry:!!
svp est ce que ce fragment de code est correcte?

Code:

---

filtre = " c.annee=" & (2000 + annee.Value) & " and "

---

salut
oui sa a l'air de fonctionner sauf si le type de la variable "filtre" ne convient pas à ce que tu nous a montré. c'est quoi son type ?

il s'agit de:

Code:

---

1 2	Public Function getFiltre() filtre = " c.annee= " & (2000 + annee.Value) & " and "

---

...

Syntaxiquement, c'est correct.
Fonctionellemment, une requête sql se terminant par un and, j'ai des doutes, mais le code ajoute peut être quelque chose derrière. Quoique, puritistiquement, j'aurais préféré

Code:

---

filtre = " c.annee= " & Cstr(2000 + annee.Value) & " and "

---