动态创建sql实例

最新推荐文章于 2024-09-29 21:25:15 发布

momingpb

最新推荐文章于 2024-09-29 21:25:15 发布

阅读量279

点赞数

分类专栏： pb技术文章标签： sql string

本文链接：https://blog.csdn.net/momingpb/article/details/5262418

版权

pb技术专栏收录该内容

4 篇文章 0 订阅

订阅专栏

string   error_syntaxfromSQL,   error_create
string   new_sql,   new_syntax
new_sql   =   'SELECT   emp_data.emp_id,   '   &
                  +   'emp_data.emp_name   '   &
                  +   'from   emp_data   '   &
                  +   'WHERE   emp_data.emp_salary>45000'
new_syntax   =   SQLCA.SyntaxFromSQL(new_sql,   &
                  'Style(Type=Form)',   error_syntaxfromSQL)
IF   Len(error_syntaxfromSQL)   >   0   THEN
                  //   Display   errors
                  mle_sfs.Text   =   error_syntaxfromSQL
ELSE
                  //   Generate   new   DataWindow
                  dw_new.Create(new_syntax,   error_create)
                  IF   Len(error_create)   >   0   THEN
                          mle_create.Text   =   error_create
                  END   IF
END   IF
dw_new.SetTransObject(SQLCA)
dw_new.Retrieve()