OVH Cloud OVH Cloud

Imprimante + SQL

3 réponses
Avatar
Nicolas Poirier
Je rencontre un bogue plutot inhabituel. Dès que j'utilise "Printer.***"
comme
dans le court exemple ci-dessous, la fonction "RecEnr.Fields(***)" qui suit
immédiatement après bloque en me donnant le message d'erreur suivant:

Run-time error '6':
Overflow

Si ce n'est pas la première fonction "RecEnr.Fields(***)", se sera toujours
la première,
deuxième ou troisième qui suit immédiatement un appel de "Printer.***" qui
plantera.
Le bogue se produit systématiquement au démarrage de l'ordinateur, et se
dissipe
lorsqu'une une impression a réussie.

Je suspecte que ce soit une incompatibilité reliée au pilote d'imprimante,
ce qui est surprenant car il est récent.

Est-ce que quelqu'un aurait déjà rencontré une situation semblable?
Comment pourraît-elle être résolue?

Merci
Nicolas Poirier
_______________________

Dim RecEnr As New ADODB.Recordset
Dim SQLStr As String
Dim iABC as Integer

Printer.FontTransparent = True
Printer.ScaleMode = vbTwips

SQLStr = "SELECT abc FROM tbl_abcWHERE id = 1"
RecEnr.Open SQLStr, Cnn_Connexion, adOpenStatic
iABC = CInt(RecEnr.Fields("abc").Value)
RecEnr.Close

3 réponses

Avatar
Jean-Marc
"Nicolas Poirier" a écrit dans le message de
news:kbKod.32420$
Je rencontre un bogue plutot inhabituel. Dès que j'utilise "Printer.***"
comme
dans le court exemple ci-dessous, la fonction "RecEnr.Fields(***)" qui


suit
immédiatement après bloque en me donnant le message d'erreur suivant:

Run-time error '6':
Overflow

Si ce n'est pas la première fonction "RecEnr.Fields(***)", se sera


toujours
la première,
deuxième ou troisième qui suit immédiatement un appel de "Printer.***" qui
plantera.
Le bogue se produit systématiquement au démarrage de l'ordinateur, et se
dissipe
lorsqu'une une impression a réussie.

Je suspecte que ce soit une incompatibilité reliée au pilote d'imprimante,
ce qui est surprenant car il est récent.

Est-ce que quelqu'un aurait déjà rencontré une situation semblable?
Comment pourraît-elle être résolue?

Merci
Nicolas Poirier
_______________________

Dim RecEnr As New ADODB.Recordset
Dim SQLStr As String
Dim iABC as Integer

Printer.FontTransparent = True
Printer.ScaleMode = vbTwips

SQLStr = "SELECT abc FROM tbl_abcWHERE id = 1"
RecEnr.Open SQLStr, Cnn_Connexion, adOpenStatic
iABC = CInt(RecEnr.Fields("abc").Value)
RecEnr.Close




Hello,

je suppose que l'espace manquant juste avant le WHERE dans le SQL
statement est une erreur de typo. Ceci dit, pour avoir une certitude
pour le driver d'imprimante, peux tu essayer le même code en enlevant
successivement le Printer.Fonttransparent, le Printer.ScaleMode, les 2.
AU moins, tu localiseras à coup sur l'erreur. QUestion subsidiaire:
quelle imprimante? J'ai eu des soucis avec le driver d'une imprimante
(en fait une photocopieuse couleur réseau Xerox).

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
Avatar
Nicolas Poirier
C'est justement en enlevant les "Printer.#" et en les plaçant ailleurs que
j'ai
constaté un déplacement du problème sur d'autres appels SQL différents,
d'où le lien avec l'objet Printer. Il semble également que le problème ne
soit pas
spécifique à aucune des instructions "Printer.#" mais à la présence d'au
moins une.
Mon imprimante est une HP LaserJet 1100.

Merci.
Nicolas Poirier
_______________________

"Jean-Marc" a écrit dans le message de
news:41a395df$0$30688$
"Nicolas Poirier" a écrit dans le message de
news:kbKod.32420$
> Je rencontre un bogue plutot inhabituel. Dès que j'utilise "Printer.***"
> comme
> dans le court exemple ci-dessous, la fonction "RecEnr.Fields(***)" qui
suit
> immédiatement après bloque en me donnant le message d'erreur suivant:
>
> Run-time error '6':
> Overflow
>
> Si ce n'est pas la première fonction "RecEnr.Fields(***)", se sera
toujours
> la première,
> deuxième ou troisième qui suit immédiatement un appel de "Printer.***"


qui
> plantera.
> Le bogue se produit systématiquement au démarrage de l'ordinateur, et se
> dissipe
> lorsqu'une une impression a réussie.
>
> Je suspecte que ce soit une incompatibilité reliée au pilote


d'imprimante,
> ce qui est surprenant car il est récent.
>
> Est-ce que quelqu'un aurait déjà rencontré une situation semblable?
> Comment pourraît-elle être résolue?
>
> Merci
> Nicolas Poirier
> _______________________
>
> Dim RecEnr As New ADODB.Recordset
> Dim SQLStr As String
> Dim iABC as Integer
>
> Printer.FontTransparent = True
> Printer.ScaleMode = vbTwips
>
> SQLStr = "SELECT abc FROM tbl_abcWHERE id = 1"
> RecEnr.Open SQLStr, Cnn_Connexion, adOpenStatic
> iABC = CInt(RecEnr.Fields("abc").Value)
> RecEnr.Close


Hello,

je suppose que l'espace manquant juste avant le WHERE dans le SQL
statement est une erreur de typo. Ceci dit, pour avoir une certitude
pour le driver d'imprimante, peux tu essayer le même code en enlevant
successivement le Printer.Fonttransparent, le Printer.ScaleMode, les 2.
AU moins, tu localiseras à coup sur l'erreur. QUestion subsidiaire:
quelle imprimante? J'ai eu des soucis avec le driver d'une imprimante
(en fait une photocopieuse couleur réseau Xerox).

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."




Avatar
Jean-Marc
J'ai une HP 1100 au bureau, je ferais un mini test demain:
une connexion ADO, une requête SQL, récupérer un champ de
type entier dans la DB avec et sans des Printer.# devant.
On verra :-)

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."


"Nicolas Poirier" a écrit dans le message de
news:czNod.34082$
C'est justement en enlevant les "Printer.#" et en les plaçant ailleurs que
j'ai
constaté un déplacement du problème sur d'autres appels SQL différents,
d'où le lien avec l'objet Printer. Il semble également que le problème ne
soit pas
spécifique à aucune des instructions "Printer.#" mais à la présence d'au
moins une.
Mon imprimante est une HP LaserJet 1100.

Merci.
Nicolas Poirier
_______________________

"Jean-Marc" a écrit dans le message de
news:41a395df$0$30688$
> "Nicolas Poirier" a écrit dans le message de
> news:kbKod.32420$
> > Je rencontre un bogue plutot inhabituel. Dès que j'utilise


"Printer.***"
> > comme
> > dans le court exemple ci-dessous, la fonction "RecEnr.Fields(***)" qui
> suit
> > immédiatement après bloque en me donnant le message d'erreur suivant:
> >
> > Run-time error '6':
> > Overflow
> >
> > Si ce n'est pas la première fonction "RecEnr.Fields(***)", se sera
> toujours
> > la première,
> > deuxième ou troisième qui suit immédiatement un appel de "Printer.***"
qui
> > plantera.
> > Le bogue se produit systématiquement au démarrage de l'ordinateur, et


se
> > dissipe
> > lorsqu'une une impression a réussie.
> >
> > Je suspecte que ce soit une incompatibilité reliée au pilote
d'imprimante,
> > ce qui est surprenant car il est récent.
> >
> > Est-ce que quelqu'un aurait déjà rencontré une situation semblable?
> > Comment pourraît-elle être résolue?
> >
> > Merci
> > Nicolas Poirier
> > _______________________
> >
> > Dim RecEnr As New ADODB.Recordset
> > Dim SQLStr As String
> > Dim iABC as Integer
> >
> > Printer.FontTransparent = True
> > Printer.ScaleMode = vbTwips
> >
> > SQLStr = "SELECT abc FROM tbl_abcWHERE id = 1"
> > RecEnr.Open SQLStr, Cnn_Connexion, adOpenStatic
> > iABC = CInt(RecEnr.Fields("abc").Value)
> > RecEnr.Close
>
>
> Hello,
>
> je suppose que l'espace manquant juste avant le WHERE dans le SQL
> statement est une erreur de typo. Ceci dit, pour avoir une certitude
> pour le driver d'imprimante, peux tu essayer le même code en enlevant
> successivement le Printer.Fonttransparent, le Printer.ScaleMode, les 2.
> AU moins, tu localiseras à coup sur l'erreur. QUestion subsidiaire:
> quelle imprimante? J'ai eu des soucis avec le driver d'une imprimante
> (en fait une photocopieuse couleur réseau Xerox).
>
> --
> Jean-marc
> "There are only 10 kind of people
> those who understand binary and those who don't."
>
>