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