J'ai un script qui joint quatre tables à l'aide du générateur de requêtes JMP. Un exemple condensé du script est ci-dessous. Cela fonctionne avec un nombre fixe de colonnes, mais dt1 peut avoir n'importe quel nombre de colonnes et je dois toutes les incorporer. Les trois tables restantes ont des colonnes spécifiques à inclure, toutes les autres colonnes doivent être supprimées.
Names Default to Here( 1 );
dt1 = Open( "C:\...\dt1.jmp", invisible );
dt2 = Open( "C:\...\dt2.jmp", invisible );
name1 = dt1 << Get Name;
name2 = dt2 << Get Name;
list1 = dt1 << Get Column Names( String );
list2 = dt2 << Get Column Names( String );
New SQL Query(
Query name( "dt3" ),
Connection( "JMP" ),
Select(
Column( list1[1], "t1" ),
Column( list1[2], "t1" ),
Column( list1[3], "t1" ),
Column( list2[2], "t2" ),
),
From(
Table( name1, Alias( "t1" ) ),
Table( name2, Alias( "t2" ),
Join(
Type( Inner ),
GE(
Column( list1[1], "t1" ), Column( list2[1], "t2" )
)
)
)
)
) << Run;
Les boucles FOR entraînent une "erreur de syntaxe lors de l'accès ou de l'évaluation de 'For'".
Select(
For( i = 1, i <= N Items( list1 ), i++,
Column( list1[i], "t1" ) ),
Column( list2[2], "t2" ),
),J'ai essayé d'envelopper diverses parties dans EVAL(EVAL EXPR(EXPR())), mais pas de dés.
Pensées?
Voici la méthode de la force brute que j'utilise, quand je ne peux pas trouver une méthode plus efficace pour résoudre des problèmes similaires.Le code construit simplement exactement le JSL dont il a besoin pour s'exécuter, puis l'exécute
Names Default to Here( 1 );
dt1 = Open( "C:\...\dt1.jmp", invisible );
dt2 = Open( "C:\...\dt2.jmp", invisible );
name1 = dt1 << Get Name;
name2 = dt2 << Get Name;
list1 = dt1 << Get Column Names( String );
list2 = dt2 << Get Column Names( String );
theExpr = "
New SQL Query(
Query name( \!"dt3\!" ),
Connection( \!"JMP\!" ),
Select("
For( i = 1, i <= N Items( list1 ), i++,
theExpr = theExpr || "Column(" || list1[i] || ", \!"t1\!" ),";
);
theExpr = theExpr || "Column( list2[2], \!"t2\!" )
),
From(
Table( name1, Alias( \!"t1\!" ) ),
Table( name2, Alias( \!"t2\!" ),
Join(
Type( Inner ),
GE(
Column( " || list1[1] || ", \!"t1\!" ), Column( " || list2[1] || ", \!"t2\!" )
)
)
)
)
) << Run;";
eval(parse(theExpr));