Comandos Rápidos em VB – ASP

Amiguinhos, estou alocada em uma demanda em ASP – VB 😮 Por pouco tempo, felizmente!

Este é um post rápido para compartilhar alguns recursos básicos com integração com banco de dados. Está focado na recuperação de registros, mas caso deseje fazer outro tipo de consulta, é bem fácil editar!

Dim ocon, recordSet, sql  'Declaro as strings que utilizarei

' Atribuo à variável sql a String SQL que será base para consulta
 no banco
' Repare que posso extender a query por várias linhas, utilizando
 o &_
' Para concatenar strings em uma linha apenas, utilize somente &

sql =	" SELECT B.PER_ID AS ID" & _
" FROM TB_PLANWEB_USR_USER A , TB_PLANWEB_PER_PERFIL B ,
tb_planweb_usuario_perfil C "& _
" WHERE A.USR_ID = C.TPUP_TPUU_USR_ID AND B.PER_ID
= C.TPUP_TPPP_PER_ID and usr_login = '"& Replace(vUser, "'","""")
&"'"

' Seto a conexão com o banco
' A parte Provider está se referindo ao driver responsável pela
conexão
' com o banco de dados, enquando Data source indica o diretório
aonde estão
' configurados os dados do banco

Set ocon = Server.CreateObject("ADODB.Connection")
ocon.Open "Provider=Microsoft.Jet.OLEDB.4.0;
Data Source="&Server.MapPath("test_db.mdb")&";"

 

'Crio um objeto aonde será gravado a consulta do meu banco
Set recordSet = Server.CreateObject("adodb.recordset")

'Abro a conexão do objeto, dizendo qual será a query executada
 e em que banco será feita a consulta

recordSet.Open sql, ocon

' Crio uma variável que será responsável por receber os dados

 ' armazenados em recordSet que me interessam

Dim vPerfil

'Loop percorrendo os resultados enquanto há dados em recordSet

      do while not recordSet.EOF

'Nesse caso, optei por separar os dados com vírgulas e
armazena-los em uma

' string. Você pode modificar como quiser.

' Caso não esteja trabalhando com busca de dados,
desconsidere essa parte ;)

' A coluna a ser acessada deve estar entre "" , como no exemplo
abaixo, e foi definida na query de consulta

       vPerfil = vPerfil  & recordSet("ID") & ","
       recordSet.MoveNext
       loop 'fim do loop

'Deve-se fechar as conexões por segurança e limpar os dados
setados para as conexões

recordSet.Close
ocon.Close

Set ocon = Nothing

Set recordSet = Nothing

Ah ASP, eu não gosto de você 😛

// Comente!

comentários

Olá, eu sou a Gabi e eu criei o "Eu Faço Programas" em 2011, quando ainda trabalhava em desenvolvimento web. Atualmente meu trabalho é focado em estratégia digital e redes sociais. Quer saber mais? www.imgabi.com

// Seja o primeiro a comentar!