Discussion :

[Andry]

Salut à tous.
Je dois realiser une appli d'analyse/Statistique qui se connecte sous SQL Server ou en local avec une base Access.
J'ai du implementer un module de synchro SQL Server/Access avec les compos ADO.
Or, j'ai un message d'erreur :

Type de donnée incompatible dans l'expression du critère

des que je tente d'inserer des données dans la table Access avec les compos ADOTable, ADoQuery.
J'ai déjà parcouru ce forum pour rechercher des pistes, mais aucun n'a pas résolu mon problème.

Merci

[Rayek]

Pourrais tu montrer le code et/ou la requete que tu utilises pour faire l'insertion des données ?

[Andry]

Je m'excuse, j'aurais du le poster avant.

Le voici avec un ADoQuery.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
        Qry_insert.Parameters.ParamByName('DATE_DOC').Value   := DM.Qry_CA.FieldByName('DATE_DOC').AsDateTime;
        Qry_insert.Parameters.ParamByName('DATE_DOC').Value   := DM.Qry_CA.FieldByName('DATE_DOC').AsString;
        Qry_insert.Parameters.ParamByName('ANNEE').Value   := DM.Qry_CA.FieldByName('ANNEE').AsInteger;
        Qry_insert.Parameters.ParamByName('MOIS').Value   := DM.Qry_CA.FieldByName('MOIS').AsInteger;
        Qry_insert.Parameters.ParamByName('FAMILLE').Value   := DM.Qry_CA.FieldByName('FAMILLE').AsString;
        Qry_insert.Parameters.ParamByName('ARTICLE').Value   := DM.Qry_CA.FieldByName('ARTICLE').AsString;
        Qry_insert.Parameters.ParamByName('MONTANT').Value   := DM.Qry_CA.FieldByName('MONTANT').AsFloat;
        Qry_insert.Parameters.ParamByName('QTE').Value      := DM.Qry_CA.FieldByName('QTE').AsFloat;
        Qry_insert.Parameters.ParamByName('MARGE').Value   := DM.Qry_CA.FieldByName('MARGE').AsFloat;
        Qry_insert.Parameters.ParamByName('MARQUE').Value   := DM.Qry_CA.FieldByName('MARQUE').AsString;
        Qry_insert.ExecSQL;

La même avec un ADOTable

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
       Tbl_ca.Append;
        Tbl_ca.FieldByName('DATE_DOC').AsDateTime   := DM.Qry_CA.FieldByName('DATE_DOC').AsDateTime;
        Tbl_ca.FieldByName('CLIENT').AsString       := DM.Qry_CA.FieldByName('CLIENT').AsString;
        Tbl_ca.FieldByName('ANNEE').AsInteger       := DM.Qry_CA.FieldByName('ANNEE').AsInteger;
        Tbl_ca.FieldByName('MOIS').AsInteger        := DM.Qry_CA.FieldByName('MOIS').AsInteger;
        Tbl_ca.FieldByName('FAMILLE').AsString      := DM.Qry_CA.FieldByName('FAMILLE').AsString;
        Tbl_ca.FieldByName('ARTICLE').AsString      := DM.Qry_CA.FieldByName('ARTICLE').AsString;
        Tbl_ca.FieldByName('MONTANT').AsFloat    := DM.Qry_CA.FieldByName('MONTANT').AsFloat;
        Tbl_ca.FieldByName('QTE').AsFloat           := DM.Qry_CA.FieldByName('QTE').AsFloat;
        Tbl_ca.FieldByName('MARGE').AsFloat      := DM.Qry_CA.FieldByName('MARGE').AsFloat;
        Tbl_ca.FieldByName('MARQUE').AsString       := DM.Qry_CA.FieldByName('MARQUE').AsString;
        Tbl_ca.Post;
        DM.Qry_CA.Next;

Merci

[Andry]

Sinon, serait ce possible d'utiliser d'autres techno hormis le BDE pour utiliser Access.
Je sais que c'est lourd, mais je ne peux pas rester comme ça.

Merci

[Rayek]

Souvent le problème vient des dates, Access attend un format bien spécifique

Code :

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

1
2
3
4
 
Qry_insert.Parameters.ParamByName('DATE_DOC').Value   := FormatDateTime('MM/DD/YYYY hh:mm:ss' ,DM.Qry_CA.FieldByName('DATE_DOC').AsDateTime);
// Qry_insert.Parameters.ParamByName('DATE_DOC').Value  := DM.Qry_CA.FieldByName('DATE_DOC').AsString;
// t''en a mis un en trop ;)

ou

Code :

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

1
2
3
4
5
6
7
8
9
 
var
  OldDateFormat : String;
begin
 // ...
  OldDateFormat := ShortDateFormat;
  ShortDateFormat := 'MM/DD/YYYY';
 Tbl_ca.FieldByName('DATE_DOC').AsDateTime := DM.Qry_CA.FieldByName('DATE_DOC').AsDateTime;
  ShortDateFormat := OldDateFormat;

Les deux solutions sont possible pour chaque exmple

[Andry]

Malatar.

Merci de te pencher sur ce problème.
J'ai suivi tes conseils mais le problème reste entier.
Ce qui m'enerve ce que des fois j'arrive à faire 1 ou 2 insertions et après le message d'erreur apparait.
En pièce jointe la structure de la table Access

Merci

[Andry]

Sinon,
Existe t il une autre altérnative à Access utilisant la techno ADO.

Merci

[Rayek]

Sinon,
Existe t il une autre altérnative à Access utilisant la techno ADO.

Merci

Je ne comprend pas bien ou tu veux en venir


Sinon en regardant la structure de ta table, je me pose la question sur plusieurs champs, les numériques sont ils bien configurés ?
N'essaies tu pas de mettre des float dasn des integer ?
En delphi les numériques c'est avec un . , pour les bases de données c'est sovent une ,

[Andry]

Salut,

Les champs sous Access sont bien paramètrer.
Voilà la situation actuelle :
L'appli génère un tableau croisé dynamique et un graphique dynamique des ventes.
Les données sont issus d'un Serveur MS SQL Server 2000 (connection avec Compos ADO).
Or, les commerciaux sont souvent déplacement, j'ai du trouver une parade afin que les infos sont toujours disponible : utiliser un fichier access pour stocker les données (et utiliser aussi ADO).
Le hic, la synchro ne marche pas.
Donc, comme ça marche pas la synchro avec Access, je cherche un autre support pour enregistrer les tables et utiliser ADO afin de ne pas trop modifier les code.

Merci

[Rayek]

Peux tu me montrer la requete insert que tu fais ?

[Andry]

voilà

Code :

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

1
2
3
4
5
 
INSERT INTO VW_DOCLIGNE_DETAIL
(DATE_DOC, CLIENT, ANNEE, MOIS, FAMILLE, ARTICLE, MONTANT, QTE, MARGE, MARQUE) 
VALUES 
(:DATE_DOC, :CLIENT, :ANNEE, :MOIS, :FAMILLE, :ARTICLE, :MONTANT, :QTE, :MARGE,:MARQUE)

[Rayek]

Essaie en modifiant ces deux lignes

Code :

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

1
2
3
4
5
6
7
Qry_insert.Parameters.ParamByName('MONTANT').Value   := FormatFloat('0.00', DM.Qry_CA.FieldByName('MONTANT').AsFloat);

// c'est pas un asInteger la pour la quantité ?
Qry_insert.Parameters.ParamByName('QTE').Value      := DM.Qry_CA.FieldByName('QTE').AsFloat; 

Qry_insert.Parameters.ParamByName('MARGE').Value   := FormatFloat('0.00',DM.Qry_CA.FieldByName('MARGE').AsFloat);

Euh ... juste une remarque en passant, le champ QTE c'est un integer ou un float ?

[Andry]

Qté est de type Integer, Entier long sous Access.

A+

[Rayek]

Alors pourquoi tu essaies de lui faire passer un float

Code :

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

1
2
3
Qry_insert.Parameters.ParamByName('QTE').Value      := 
DM.Qry_CA.FieldByName('QTE').AsFloat;

ou

Code :

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

1
2
3
 Tbl_ca.FieldByName('QTE').AsFloat           := 
DM.Qry_CA.FieldByName('QTE').AsFloat;

[Andry]

Malatar,

J'ai tout essayé avec AsInteger, asFloat, asxxx, mais rien n'à faire.
Finalement, j'ai abandonné Access(je me demande pourquoi j'y ai pas penser avant) au profit de Firebird Embed quitte à ramanier le code.
En plus je gagne en rapidité, vu que l'appli manipule des quantité de données pour generer des stats.

Merci toi d'être penché sur mon cas.