Insertion sous Access avec Compos ADO

Version imprimable

08/11/2006, 09h25
Andry

Insertion sous Access avec Compos ADO

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 :

Citation:

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
08/11/2006, 10h29
Rayek

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

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

Le voici avec un ADoQuery.

Code:

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:

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

08/11/2006, 11h22
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

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

Code:

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 ;)

Code:

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

08/11/2006, 12h57
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
08/11/2006, 13h04
Andry

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

Merci
08/11/2006, 14h07
Rayek

Citation:

Envoyé par Andry

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 ,
08/11/2006, 14h27
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
08/11/2006, 14h47
Rayek

Peux tu me montrer la requete insert que tu fais ?

voilà

Code:

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)

Essaie en modifiant ces deux lignes

Code:

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 ?

09/11/2006, 07h18
Andry

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

A+

Alors pourquoi tu essaies de lui faire passer un float

Code:

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

Code:

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

10/11/2006, 09h22
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.