Discussion :

[BaldeckJ]

Bonjour,

context :
Vista, RAD Studio 2007, VCL Delphi pour win32 :

composants: SQLConnection(Mysql5)->SQLStoredProc->DatasetProvider->ClientDataSet->Datasource->DBGrid/DBNavigator

Problème :
Au moment de la validation d'une insertion (certains fields ne sont pas renseignés) dans le DBGrid

Erreur :
class d'exeception EDBClient "Field value required"

J'ai ajouté ces lignes de code en préalable mais le problème persiste!

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 for I := 0 to ClientDataSet1.Fields.Count - 1 do
    ClientDataSet1.Fields[I].Required := False;
  for I := 0 to ClientDataSet1.FieldDefs.Count - 1 do
    ClientDataSet1.FieldDefs[I].Required := False;
  for I := 0 to ClientDataSet1.IndexFieldCount - 1 do
    ClientDataSet1.IndexFields[I].Required := False;
  ClientDataSet1.IndexFieldNames := '';
  ClientDataSet1.IndexName := '';
  ClientDataSet1.AggregatesActive := False;

Merci de votre aide éclairée

[Graffito]

Les champs non renseignés sont-ils en NULL autorisé/interdit dans la structure de la table de la base MySQL ?

[BaldeckJ]

Les champs non renseignés sont-ils en NULL autorisé/interdit dans la structure de la table de la base MySQL ?

Bonjour Graffito,

Voici la procédure stockée appelée, il s'agit d'un simple SQL

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
DELIMITER $$
 
CREATE DEFINER=`root`@`localhost` PROCEDURE `TEST`(
  IN Par_PARAMS VARCHAR(1000))
BEGIN
  Select
        t.OBJET DATA_OBJET,
        DATE_FORMAT(t.DATEENVOIE,'%d/%m/%Y %h:%i:%s') DATA_DATEENVOIE,
        p.CATEGORIE DATA_CATEGORIE,
        t.TEXTE DATA_TEXTE
      from NEWS t, CATEGORIES p
      where p.CATEGORIEID = t.CATEGORIEID
      and t.UTILISATEURID = Par_PARAMS;
 
END $$
 
DELIMITER ;

En fait avec les composants ADO ODBC (ADOConnection1 et ADOStoredProc1) cela fonctionne, je souhaite obtenir la même chose avec les composants DBExpress.
Il semble que SQLStoredProc1 récupère des contraintes lors de l'appel à cette procédure stockée; la question est comment les dévalider ?
J'ai essayé sans succès les actions ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
  for I := 0 to ClientDataSet1.Fields.Count - 1 do
  begin
    ClientDataSet1.Fields[I].Required := False;
    ClientDataSet1.Fields[I].Calculated := False;
    ClientDataSet1.Fields[I].ReadOnly := False;
  end;
  for I := 0 to ClientDataSet1.FieldDefs.Count - 1 do
  begin
    ClientDataSet1.FieldDefs[I].Required := False;
    ClientDataSet1.FieldDefs[I].InternalCalcField := False;
  end;
  ClientDataSet1.AutoCalcFields := False;
  ClientDataSet1.IndexFieldNames := '';
  ClientDataSet1.IndexName := '';
  ClientDataSet1.AggregatesActive := False;
 
  ClientDataSet1.DisableConstraints;
  ClientDataSet1.Insert;
  ClientDataSet1.Fields[0].AsString := 'OK';
  ClientDataSet1.Post;
  ClientDataSet1.EnableConstraints;

Merci pour votre éclairage

[BaldeckJ]

N'ayant pas de solution, je remplace les field = null par un espace, faute de mieux pour le moment ...