Discussion :

[botbot]

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 !

[omen999]

bonjour,

Code :

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

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 :

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

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 :

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

MyDB.Open PMI