動態創業數據存儲函數

返回: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