Incrémentation de BDD Firebird suite impression étiquette

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:

---

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 ? :cry:

Merci beaucoup ! :ccool:

bonjour,

Code:

---

MyDB.Open "PMI"

---

la connectionstring me parait totalement irréelle
si la base FireBird est accessible via un driver ODBC genre IBPhoenix Open Source, il faut définir une connectionstring dans ce genre (pour une base locale) :

Code:

---

DRIVER=Firebird/InterBase(r) driver;UID=SYSDBA;PWD=masterkey;DBNAME=C:\database\myData.fdb;

---

où SYSDBA est le l'ID de l'user, masterkey son mot de passe et "C:\database\myData.fdb" un exemple de fichier avec son chemin complet
plus de détails ici


edit : ou alors PMI est une variable chaine contenant les éléments de connexion et il faut l'écrire

Code:

---

MyDB.Open PMI

---