Discussion :

[leboyz]

Bonjour ,

Configuration :

Delphi Xe2 Pro
Composant Anydac
Os Windows 7 64bit

Problème :

Je suis connecté grâce au composant AnyDac a une base Sybase en local , je veux utiliser le composant TADScript pour exécuter des fichiers SQL.

Sources :

Code :

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

1
2
3
4
5
6
7
 
 for Fichier in ListFichierSQL do         // ajout des maj de base
      begin
        ScriptMAJ_V2.SQLScriptFileName := Fichier ;
        if ScriptMAJ_V2.ValidateAll then
        ScriptMAJ_V2.ExecuteAll ;
      end;

Lors de l’exécution de ce script , j'ai l'erreur :

Code :

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

Exception 'first chance' à $755BC42D. Classe d'exception EASANativeException avec un message '[AnyDAC][Phys][ODBC][Sybase][ODBC Driver][Adaptive Server Anywhere]Syntax error near '(end of line)' on line 4'. Processus ProgReprise.exe (5344)

Je sais que mon fichier est bon car je l'ai au préalable exécuté sur Sysbase central

Fichier :

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
23
alter function Sysggm.F_BAIL_ACTIF(in dBAI_DATD date,in dBAI_DATF date,in dBAI_DEPLOC date,in dDATE_REF date)
returns smallint
--|-------------------------------------------------------------------------------------------------------------------------------|--
--| F_SommeCA
--| Cette fonction renvoit la somme du CA d un lot/locataire pour un année et un type de ca donné
--|-------------------------------------------------------------------------------------------------------------------------------|--
begin
  declare iActif smallint;
  if((dBAI_DATD > dDATE_REF) and(dBAI_DATF <= dDATE_REF)) or((dBAI_DATD <= dDATE_REF) and(dBAI_DATF >= dDATE_REF)) then
    //  if(dBAI_DATD<=dDATE_REF) and(dDATE_REF<=dBAI_DATF) then
    set iActif=1
  else
    set iActif=0
  end if;
  if(dBAI_DEPLOC <> null) then
    if(dBAI_DATD <= dDATE_REF) and(dDATE_REF <= dBAI_DEPLOC) then
      set iActif=1
    else
      set iActif=0
    end if
  end if;
  return(iActif)
end

Est-ce que quelqu’un a une idée , je pense a un mauvais formatage de fichier ou un truc du genre .

Merci d'avance

[leboyz]

Pas de réponse ?

[Linkin]

As-tu essayé d'enlever le commentaire?

Sinon la méthodologie est de faire une procédure vide et de rajouter au fur et à mesure.

[leboyz]

J'ai essayé les commentaires , on ne sais jamais , mais ça ne fonctionne toujours pas.

J'ai ensuite essayer de passer les lignes de la procédure une à une , ça fonctionne si on laisse juste le return , mais dès le déclare ça plante.

La procédure est cohérente , c’est ça le pire.

En attente des vos idées ..

[ShaiLeTroll]

Sous DBExpress pour lancer un code de création de procédure, une simple TSQLQuery fonctionnait

Je ne connais pas le TADScript
Mais le TOraScript bug si l'on mélange du SQL avec des commandes DDL genre CREATE TABLE puis un CREATE TRIGGER (forcément cela contient du code PL\SQL)
Il se mélange les pinceaux et ne découpent plus le script correctement !

As-tu pensé à mettre un ';' tout à fait la fin du script ?
As-tu tenté d'utiliser un TADQuery avec un Execute ou ExecSQL ?

[leboyz]

Bonjour et merci de ta réponse ShaiLeTroll ,

Les composant AnyDac ont été car ils proposent une connexion native à sybase ( et autre moteur ) , seulement j'ai aussi le choix de passer par un alias BDE.
Le but de ce programme est de mettre a jour une base de données à distance , je dois donc autant pouvoir exécuter des scripts de modification de proc , que des scripts de modification de table ( Alter table , update etc ... )

J'ai essayé les TADQuery , le seul soucis est qu'il ne permet pas d'envoyer des scripts complexe ( Pas plus d'une requête a la fois ).

Il y aurais t'il un autre moyen de passer n'importe quel type de requette grâce au alias BDE ?

Pour ma part , je pense vraiment que cela viens de Sybase , car j'ai fais le même programme pour une base PostGreSQL et tout fonctionne a merveille .