投稿者 okigaru | 2014/12/15

ExecuteSQLはカスタム関数にすると良い(その2)

ExecuteSQLはカスタム関数にする

//”FieldA”と”FieldB”でユニーク値で空欄は除外
//FieldAとBはTable::Field
//テーブル名は”FieldA”、SeparatorはChar ( 9 )や”|”
LetSQL_DisNotNul ( FieldA ; FieldB ; Separator )
Let ( [

#A =
     Let ( [
     #A1 = GetFieldName ( FieldA );
     #A2 = Substitute ( #A1 ; “::” ; ¶ )
     ] ;
     Quote ( GetValue ( #A2 ; 2 ) )
     ) ;
#B =
     Let ( [
     #B1 = GetFieldName ( FieldB );
     #B2 = Substitute ( #B1 ; “::” ; ¶ )
     ] ;
     Quote ( GetValue ( #B2 ; 2 ) )
     ) ;
#T =
     Let ( [
     #T1 = GetFieldName ( FieldA );
     #T2 = Substitute ( #T1 ; “::” ; ¶ )
     ] ;
     Quote ( GetValue ( #T2 ; 1 ) )
     ) ;
#sql = “SELECT DISTINCT ” & #A & “,” & #B & ” FROM ” & #T & ” WHERE ” & #A & “+” & #B & ” IS NOT NULL”
] ;
ExecuteSQL ( #sql ; Separator ; ¶ )
)
広告

カテゴリー

%d人のブロガーが「いいね」をつけました。