Função AbrirConsultaDB (DSNNome, Usuario, Senha, Tabela, Campos, Criterio, CampoOrdem, Ordem, NumeroRS)

(Testado somente em MySQL e MDB) – Seleciona registros (SQL “Select”) em uma tabela especifica, verificando, antes, os critérios, retornando um booleano do resultado da consulta na tabela (False, para EOF ou BOF), onde:

DSNNome é a string com o nome da DSN de conexão com o banco (Nesta versão da classe, apenas disponibilizamos conexões através de DSN);

Usuário é a string com o nome do usuário de acesso ao banco desejado;

Senha é a string com a senha do usuário de acesso ao banco especificado no parâmetro anterior;

Tabela é a string com o nome da tabela a ser manipulada, no banco especificado;

Campos é a string com os nomes dos campos a serem retornados no “RecordSet” (conjunto de registros da consulta), delimitados por pipe (“|”). Este campo é baseado em zero, isto é, contado apartir de zero e o ultimo campo não possui delimitador no final;

Criterio é a string que contém o critério (SQL “Where”) da consulta na tabela, que irá restringir a consulta ao(s) registro(s) desejado(s);

CampoOrdem é a string que contém o nome do campo que ordenará a consulta (SQL “Order By”) na tabela;

Ordem é a string que especifica a ordem dos registros. Aceita 2 valores: “ASC” (default) – Ascendente, e “DESC” - descendente;

NumeroRS é o inteiro que identifica o “RecordSet” para manipulação. Aceita inteiros de 1 (default) à 5;

Ex1.

If AbrirConsultaDB (“DSNNome”, “Usuariobanco”, “password”, “tabela1”, “nome|telefone|email”, “id=2”, “nome”, “”, 1)=true then

Response.write Rs1(“nome”) & “<br>”
Response.write Rs1(“telefone”) & “<br>”
Response.write Rs1(“email”) & “<br>”

FecharConsultaDB(1)

End if

Ex2.

If AbrirConsultaDB (“DSNNome”, “Usuariobanco”, “password”, “tabela1”, “nome|telefone|email”, “”, “nome”, “DESC”, 3)=true then

Dim x

For x=1 to Rs3.recordcount

Response.write Rs3(“nome”) & “<br>”
Response.write Rs3(“telefone”) & “<br>”
Response.write Rs3(“email”) & “<br>”

Rs3.movenext

Next

FecharConsultaDB(3)

End if


Obs.: Todos os parâmetros de função são obrigatórios, isto é, mesmo que você não deseje informar um valor para o parâmetro, este terá que ser representado obrigatoriamente como ""

Download da classe