Bonjour à tous,

Voilà je présente mon problème :

J'ai un ERP qui s'appelle "PMI" et qui travaille avec une base de données Firebird.
J'ai également un logiciel "Bartender" qui imprime des étiquettes, et qui se connecte en ODBC sur cette même bas de données Firebird "PMI", pour récupérer des infos à imprimer.

Tout fonctionne très bien en lecture, là ou les choses se compliquent : je souhaite travailler en écriture :

A chaque étiquette imprimer, j'ai un champ "incrément : ARKTINCRE" qui s'incrémente sur le produit en question...
Exemple : j'imprime une étiquette pour la référence produit ( champ ARKTCODART ) "VoitureRouge", j'incrémente le champ incrément pour cette même référence.

Voici mon code, mais cela ne fonctionne pas, il ne fait rien :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
              Dim SQLString
	      ReferenceField("UARTICLE.ARKTINCRE")
              set MyDB = CreateObject("ADODB.Connection")
              MyDB.Open "PMI"
 
              SQLString = "select * from UARTICLE where ARKTCODART = '" & Field("UARTICLE.ARKTCODART") & "'"
              set rsIncrement = MyDB.Execute(SQLString)
 
              If Not rsIncrement.EOF then
                  ARKTINCRE = Field("UARTICLE.ARKTINCRE") + 1
              Else
 
              End if
 
              MyDB.Close
Auriez vous un idée ?

Merci beaucoup !