動態創業數據存儲函數

最新推荐文章于 2024-09-12 02:53:14 发布

builderwfy

最新推荐文章于 2024-09-12 02:53:14 发布

阅读量422

点赞数

分类专栏： powerbuilder 文章标签： sql string

本文链接：https://blog.csdn.net/builderwfy/article/details/6079424

版权

powerbuilder 专栏收录该内容

41 篇文章 0 订阅

订阅专栏

返回:datastore

參數:string sql

DataStore dw_new
string error_syntaxfromSQL, error_create
string new_sql, new_syntax
Integer iRetrieve

new_sql = sql
new_syntax = SQLCA.SyntaxFromSQL(new_sql, 'Style(Type=Form)', error_syntaxfromSQL)

IF Len(error_syntaxfromSQL) > 0 THEN
        // Display errors
        gf_message(100, "gf_exec_sql_ret_datastore create syntax error~n" + error_syntaxfromSQL)

        If    bLogEnabled = TRUE Then
            syslog.log("GF_EXEC_SQL_RET_DATASTORE:SYNTAX ERROR", new_sql + " Error:" + error_syntaxfromSQL)
        End If

        Return dw_new
ELSE
        // Generate new DataWindow
        dw_new = CREATE datastore

        dw_new.Create(new_syntax, error_create)
        IF Len(error_create) > 0 THEN
            gf_message(100, "gf_exec_sql_ret_datastore create datawindow error~n" + error_create)

            If    bLogEnabled = TRUE Then
                syslog.log("GF_EXEC_SQL_RET_DATASTORE:CREATE ERROR", new_sql + " Error:" + error_create)
            End If

            Destroy dw_new
            Return dw_new
        END IF
END IF

dw_new.SetTransObject(SQLCA)

iRetrieve = dw_new.Retrieve()

If iRetrieve = -1 /*or iRetrieve = 0*/ Then
    gf_message(100, "gf_exec_sql_ret_datastore retrieve error~n" + "Retrieve Error Code = -1")

    If    bLogEnabled = TRUE Then
        syslog.log("GF_EXEC_SQL_RET_DATASTORE:RETRIEVE ERROR", new_sql)
    End If
End If

If    bLogEnabled = TRUE Then
    syslog.log("GF_EXEC_SQL_RET_DATASTORE:SQL", new_sql)
End If

Return dw_new