Set MontaQuery = New MontaSelect MontaQuery.Banco = Session("BancoDados") MontaQuery.StringFormaDeCaptura = "session, get," MontaQuery.StringCampoNome = "Menu.lngProjeto, Menu.strMenu,Menu.lngObjeto" MontaQuery.StringCriterio = "igual,parecido,semfiltro" MontaQuery.StringCriterioCampo = "projeto_lngprojeto,menu_strmenu," MontaQuery.StringCampoTipo = "numero,string,string" MontaQuery.OrdenarPor = "Menu.intPosicao" Sql = MontaQuery.Montar() Set MontaQuery = New MontaSelect MontaQuery.Banco = Session("BancoDados") StringCampoNome = "Usuario.strUsuario, "&_ "Usuario.strSenha, Usuario.lngGrupo, Usuario.lngUsuario, Usuario.blnAtivo" StringCampoTipo = "string, "&_ "string" MontaQuery.StringCampoNome = StringCampoNome MontaQuery.StringCampoTipo = StringCampoTipo StringCriterioEspecial = "Usuario.strUsuario igual '"&VetorDados(0)&"' e "&_ "Usuario.strSenha igual '"&VetorDados(1)&"'" MontaQuery.StringCriterioEspecial = StringCriterioEspecial StringCriterioEspecial tabela.campo igual sim
Uso:
0). No Formulários
No formulário de pesquisa, os campos devem ser definidos seguindo uma norma.
A definição de qualquer campo deve seguir o padrão: tabela_campo
Exemplos:
<input type="text" name="cliente_nome" value="nome do cliente" />
<input type="text" name="cliente_endereco" value="endereço do cliente" />

1). Chamando a Classe
Set MontaQuery = New MontaSelect

2). Escolhendo o tipo de banco:
* "sqlserver"
* "access"
* "mysql"
MontaQuery.Banco = "sqlserver"

3). Escolhendo o tipo de captura:
* "get"
* "post"
* "cookie"
* "session"
* "constante"

3-a). Escolhendo o tipo de captura. Se existir somente uma chamada padrão, colocamos o parametro desejado.
MontaQuery.FormaDeCaptura = "get"

3-b). Se existir mais de um tipo de captura, colocamos tipos para todos os campos desejados, separados por vírgula.
Para 3 campos, por exemplo, devemos fazer assim:
MontaQuery.FormaDeCaptura = "session, get, get"
3-c). Em caso de Constantes, usa-se o valor da constante:
MontaQuery.FormaDeCaptura = "constante" MontaQuery.StringCriterioCampo = "True"

4). Definimos uma String com o Nome dos Campos a serem pesquisados. A string segue o padrão: tabela.campo
'Tabelax.Campo1, Tabelax.Campo2, Tabelay.Campo1, Tabelay.Campo2 ...
MontaQuery.StringCampoNome = "compromisso.strAssunto, compromisso.strlocal, compromisso.dtmdia"

5). Definimos os tipos dos campos:
* "booleano"
* "data"
* "editor"
* "email"
* "inteiro"
* "numero"
* "string"
MontaQuery.StringCampoTipo = "string, string, data"

6). Definimos então uma string de critérios, separados por vírgula.
* "nenhum"
* "sim"
* "nao"
* "igual"
* "parecido"
* "menor"
* "menor ou igual"
* "maior"
* "maior ou igual"
MontaQuery.StringCriterio = "parecido, parecido, igual "

6-b). Usando "entre" => "entre sequencial => Em StringCriterio = (entre, entre,) Em StringCampoNome =(campo DE, campo Até,) Necessariamente Nesta Ordem
Exemplo:
MontaQuery.StringCampoNome = "compromisso.dteDataDe, compromisso.dteDataAte"
MontaQuery.StringCriterio = "entre, entre"

7). Definindo campos que serão usados nos critérios.
* "tabela_campo"
* "nenhum" => caso não exista campo. Pode utilizar a palavra nenhum ou deixar a vírgula (,) sem nenhum campo.
Usando Nenhum:
StringCriterioCampo="cliente_nome, cliente_endereco, nenhum"
Usando Vazio, separado por vírgula(,):
StringCriterioCampo="cliente_nome, cliente_endereco,      "

8). Definindo Valores Para os Critérios
MontaQuery.StringCriterioValor = "true"

Exemplo: Projeto.blnAtivo=True

9). Ordenando os Dados Listados
MontaQuery.OrdenarPor = "compromisso.strAssunto"

10). Montar a Query, Enviando-a para uma variável, que será executada
SQL = MontaQuery.Montar()

response.write SQL

response.end()