[Delphi] comprendre cette erreur ODBC

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Delphi] comprendre cette erreur ODBC

altus

garder le sang froid

Bonjour,

je recois cette erreur de façon aléatoire, et je voudrais comprendre d'où elle vient ?
De l'application Delphi, du driver ODBC, du BD Engine ?

Code :

---------------------------
Debugger Exception Notification
---------------------------
Project asinco.exe raised exception class EDBEngineError with message 'General SQL error.
[Microsoft][Pilote ODBC Microsoft Access]Chaîne de donnée, tronquée à droite (null)'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Cela le fait sous Delphi5 ou 6, sous WinXP comme sous Win2000.
Si vous avez besoin de plus d'infos, vous n'avez qu'à demander

Publicité

antp

Super Administrateur
Champion des excuses bidons

Je dirais que ça vient du BDE, et qu'y a une erreur dans ta requête SQL.
Donc faudrait voir ce que contient ladite requête.

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

altus

garder le sang froid

ok, je vais tenter d'expliquer ça clairement :

En gros la manip c'est l'enregistrement le contenu de plusieurs objets dans une base de données Access (texte pour la plupart)

Je part d'objets TMemo, TEdit, TComboBox...
J'affecte leur valeur à une requête dédiée à l'insertion, qui contient du SQL avec variables :

Code :

INSERT INTO devis (
numdevis, numclient, [Date Devis], objet, [Montant HT], [Taux TVA], [Montant TTC], [Montant HT Eur], [Montant TTC Eur], [Montant TVA Eur], DateAcompte, MontantAcompte, Texte )
VALUES ( :numdevis, :numclient, :DateDevis, :objet, :MontantHT, :TauxTVA, :MontantTTC, :MontantHTEur, :MontantTTCEur, :MontantTVAEur, :DateAccompte, :MontantAccompte, :Texte );

le code de l'affectation :

Code :

QueryEcritureDevis.active := false;
QueryEcritureDevis.Params[0].AsString := numdevisfacture.text; // numdevis
QueryEcritureDevis.Params[1].AsString := DBText6.field.asstring; // numclient
QueryEcritureDevis.Params[2].AsString := edate.text; // DateDevis
QueryEcritureDevis.Params[3].AsString := objet.lines.text; // objet
QueryEcritureDevis.Params[4].AsString := montantFHT.text; // MontantHT
QueryEcritureDevis.Params[5].AsString := TTVA.text; // TauxTVA
QueryEcritureDevis.Params[6].AsString := montantFTTC.text; // MontantTTC
QueryEcritureDevis.Params[7].AsString := montantEHT.text; // MontantHTEur
QueryEcritureDevis.Params[8].AsString := montantETTC.text; // MontantTTCEur
QueryEcritureDevis.Params[9].AsString := montantETVA; // MontantTVAEur
QueryEcritureDevis.Params[10].AsDateTime := dateAccompte.DateTime; // DateAccompte
QueryEcritureDevis.Params[11].AsString := montantAccompte.Text; // MontantAccompte
StrPCopy(tempPchar, texteFactDevis.Lines.Text);
QueryEcritureDevis.Params[12].Asmemo := tempPchar; // texte
QueryEcritureDevis.ExecSQL;

Et c'est dans cette dernière partie que ça plante

Message édité par altus le 13-10-2002 à 18:23:41

altus

garder le sang froid

en fait je soupçonne les lignes avec le TMemo :

Code :

StrPCopy(tempPchar, texteFactDevis.Lines.Text);
QueryEcritureDevis.Params[12].Asmemo := tempPchar; // texte

Message édité par altus le 13-10-2002 à 18:23:29

antp

Super Administrateur
Champion des excuses bidons

Pour le memo, il est stocké comment dans la BD ?
Ton tempPChar tu l'initialisse comment ?

c'est pas plus facile de faire
QueryEcritureDevis.Params[12].AsString := texteFactDevis.Lines.Text
?

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

altus

garder le sang froid

antp a écrit a écrit :

Pour le memo, il est stocké comment dans la BD ?
Ton tempPChar tu l'initialisse comment ?

c'est pas plus facile de faire
QueryEcritureDevis.Params[12].AsString := texteFactDevis.Lines.Text
?

1. C'est stocké dans une base Access 2000, le type de champs est "Mémo"

2.

Code :

GetMem(tempPchar, 2048);
for i := 0 to 2047 do tempPchar[i] := #0;

3. C'est ce que je faisais au début, mais je ne me rappelle plus pourquoi j'ai changé mon code.

antp

Super Administrateur
Champion des excuses bidons

altus a écrit a écrit :

for i := 0 to 2047 do tempPchar[i] := #0;

pour ça y a la fonction FillChar

sinon je sais pas d'où pourrait venir le problème

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

altus

garder le sang froid

Ouais je me disais aussi que quelqu'un allait faire la remarque
OK FillChar alors

Sinon pour info j'ai essayé plusieurs façons, d'affecter la valeur du TMemo au TParam de la requête, et j'ai des fois le même message d'erreur :??:

Comment est ce que je pourrais contourner le problème ? Utiliser une façon différente d'enregistrer des données dans une base Access ?

FORUM HardWare.fr

Programmation

Delphi/Pascal

[Delphi] comprendre cette erreur ODBC

Sujets relatifs
[C++] Question sur les pointeurs, aidez moi à comprendre svp !	[c++] Erreur incomprehensible a la compilation: help me!
[C] Erreur lecture clavier	delphi: TmaskEdit/controles
[ Delphi ] Je souhaiterais de l?aide pour les transmission de fonction	DELPHI CA SUXX DES OURSSSSS !!!!!
PHP Connection ODBC	Erreur dans les applis graphiques
Erreur toute conne en php -> if...	erreur sql ca doit pas etre grand chose mais trouve pas
Plus de sujets relatifs à : [Delphi] comprendre cette erreur ODBC

Page générée en 0.077 secondes