[Resolvido] Acessando Banco de Dados através da linguagem ASP

[Carlos - GSI 0]

Acessando Banco de DadosDesenvolvimento de Aplicações para Internet – Plataforma MicrosoftCom o código acima, criamos a conexão Conex com o DSN BancoDados. Instanciamos umRecordSet RS e nele colocamos todos os registros da tabela TabClientes através de uma instruçãoSQL. O RecordSet criado utiliza como tipo de cursor o Static e como tipo de trava de registros oBatch Optimistic.Propriedades BOF e EOFAs propriedades BOF (Beginning Of File) e EOF (End Of File) permitem que seja testada se aposição do registro atual encontra-se no começo do RecordSet (BOF) ou no fim do mesmo (EOF).Veja um exemplo:No exemplo acima, a instrução SQL cria um RecordSet RS com registros da tabela Produtos cujocampo CodProd seja igual à variável CodDigitado. Caso esta pesquisa não retorne resultadoalgum (ou seja, caso a cláusula WHERE não for satisfeita ou a tabela estiver vazia) o registro atualestará posicionado no fim do RecordSet. Desta forma, foi utilizada a propriedade EOF para emitiruma mensagem de parâmetro não encontrado.Propriedade RecordCountEsta propriedade contém o número de registros que um RecordSet possui. Observe um exemplo:Um possível resultado obtido para este exemplo seria:<%Set Conex = Server.CreateObject (“ADODB.Connection”)Conex.Open “BancoDados”, “ ”, “ ”Set RS = Server.CreateObject ("ADODB.RecordSet")RS.Open "SELECT * FROM TabClientes", Conex, 3, 3%>(...)sql = "SELECT * FROM Produtos WHERE CodProd = ’ " & CodDigitado & " ’ "RS.Open sql, conexao, 3, 3If RS.EOF thenResponse.Write "Código inexistente no cadastro!"End if%>(...)sql = "SELECT * FROM Produtos WHERE CodProd = ' " & CodDigitado & " ' "RS.Open sql, conexao, 3, 3Response.Write "Foram encontrados " & RS.RecordCount & " registros"%>