Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 3 sur 3
  1. #1
    Membre Expert Avatar de BuzzLeclaire
    Homme Profil pro
    Dev/For/Vte/Ass
    Inscrit en
    août 2008
    Messages
    1 527
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Dev/For/Vte/Ass

    Informations forums :
    Inscription : août 2008
    Messages : 1 527
    Points : 1 015
    Points
    1 015

    Par défaut Un Record récalcitrant

    Je tombe sur un OS, (un nos nos il veut un nonosse le buzz ?)

    Je déclare se record :

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    type
      TBaseDefaut = Record
        Table     : String;
        Champ     : String;
        Primaire  : Boolean;
        Unique    : Boolean;
        TypeField : String;
        Taille    : Integer;
        DefautValue : Variant;
        Nullable : Boolean;
      End;
     
    Var
      aBaseDefaut   : Array of TBaseDefaut;
      aBasePlanning : Array of TBaseDefaut;

    Ensuite dans une procédure je l'utilise ainsi :
    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    Procedure TFControlBase.AnalyseTableChamps;
      Var
    //...
      begin
        TailleRecord := 0; CompteurRecord := 0;
        Cnx := TADOConnection.Create(nil);
        TblIndex := TADOTable.Create(nil);
        TblColumn := TADOTable.Create(nil);
        Try
          Cnx. 
    //...
     
          Cnx.OpenSchema
    //...
          try
            // ...
     
             SetLength(aBaseDefaut,TailleRecord);
    // etc...
    Cela fonctionne trés bien.

    J'ai voulu utiliser une manière de faire pour gagner en code

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Procedure TFControlBase.AnalyseTableChamps;
      Procedure AlimentationRecord(BaseMDB : String; aRecord: Array of TBaseDefaut; Delai: Integer);
      Var
    // ...
      begin
        TailleRecord := 0; CompteurRecord := 0;
    //...
     
              SetLength(aRecord,TailleRecord);
    begin
     
    end;
    Et la j'ai une Type incompatible sur
    Code :
    SetLength(aRecord,TailleRecord);

  2. #2
    Membre expérimenté Avatar de Caribensila
    Homme Profil pro PIERRE-LUC REAUD
    Inscrit en
    septembre 2010
    Messages
    278
    Détails du profil
    Informations personnelles :
    Nom : Homme PIERRE-LUC REAUD
    Âge : 63
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Secteur : Santé

    Informations forums :
    Inscription : septembre 2010
    Messages : 278
    Points : 511
    Points
    511

    Par défaut

    Salut,

    L'os rouge :

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    type
      TBaseDefaut = Record
        Table     : String;
        Champ     : String;
        Primaire  : Boolean;
        Unique    : Boolean;
        TypeField : String;
        Taille    : Integer;
        DefautValue : Variant;
        Nullable : Boolean;
      End;
      TBaseDefautArray  = Array of TBaseDefaut;
    
    
    Procedure AlimentationRecord(BaseMDB : String; aRecord: TBaseDefautArray; Delai: Integer);

  3. #3
    Membre Expert Avatar de BuzzLeclaire
    Homme Profil pro
    Dev/For/Vte/Ass
    Inscrit en
    août 2008
    Messages
    1 527
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Dev/For/Vte/Ass

    Informations forums :
    Inscription : août 2008
    Messages : 1 527
    Points : 1 015
    Points
    1 015

    Par défaut

    Attrape Buzz..... attrape, attrape, ça c'est un bon Buzz...


    Merci @Cariben

+ Répondre à la discussion
Cette discussion est résolue.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •