Establece o devuelve la serie de SQL asociada a la consulta.
Si asigna un valor a esta propiedad, el objeto QueryDef utiliza la serie en lugar de los términos que ha compilado utilizando otros métodos de este objeto.
Si obtiene el valor de esta propiedad, el objeto QueryDef devuelve la serie de SQL que se va a ejecutar cuando se ejecute la consulta. Si ha asignado antes una serie de SQL a esta propiedad, se devuelve dicha serie; de lo contrario, este método genera una serie de SQL a partir de los términos que se han añadido al objeto QueryDef hasta el momento.
VBScript
querydef.SQL set workspace = session.GetWorkSpace set querydef = workspace.GetQueryDef nombreConsulta querydef.SQL cadenaCaracteres_de_sentencias_SQL
Perl
$querydef->GetSQL(); $workspace = $session->GetWorkSpace(); $querydef = $workspace->GetQueryDef(nombreConsulta); $querydef->SetSQL(cadenaCaracteres_de_sentencias_SQL);
Para Set, no existe valor de retorno. Devuelve una excepción si el usuario no tiene privilegio de escritor de SQL.
VBScript
set session = GetSession set workspace = session.GetWorkSpace 'Obtener el QueryDef proporcionando un nombre de consulta set querydef = workspace.GetQueryDef "Public Queries\Defects" 'Proporcionar una serie de sentencias SQL querydef.SQL "select distinct T1.dbid,T1.id,T1.headline from Defect T1,statedef T2 where T1.state = T2.id and (T1.dbid <> 0 and (T2.name = 'Submitted'))"
Perl
$workspace = $session->GetWorkSpace();
$querydef = $workspace->GetQueryDef(queryName);
$querydef->SetSQL("select distinct T1.dbid,T1.id,T1.headline from Defect
T1,statedef T2 where T1.state = T2.id and (T1.dbid <> 0 and (T2.name =
'Submitted'))");