Conectando-se ao MS SQL Server através do Asp

Abaixo exemplos simples de como conectar-se a um banco de dados Microsoft SQL Server através de scripts Asp:

Windows 2012

No ambiente Windows 2012 os drivers instalados para este tipo de conexão são: SQLNCLI10 e SQLNCLI1. Segue exemplo:

<% '##Declara as variaveis a serem utilizadas no script Dim conexao, stringConexao, host, usuario, senha, banco   '##Informe os dados de conexão junto ao banco Microsoft SQL Server host   ="SERVIDOR" usuario="BASE"  senha  ="SENHA" banco  ="BANCO"   '##Monta a string de conexão utilizando os dados informados anteriormente stringConexao = "Provider=SQLNCLI10;SERVER="&host&";DATABASE="&banco&";UID="&usuario&";PWD="&senha&";"   '##Instancia o objeto de conexão com o banco SET conexao = Server.CreateObject("ADODB.Connection")   On Error Resume Next   '##Abre a conexão junto ao banco conexao.Open stringConexao   '##Tratamento de erro. Caso ocorra problemas na conexão, exibe esta informação e apresenta detalhes. If Err.Number <> 0 Then     response.write "<b><font color='red'> Conexão com o banco '" & banco & "' Microsoft SQL Server falhou !</font></b>"     response.write "<BR><BR>"     response.write "<b>Erro.Description:</b> " & Err.Description & "<br>"     response.write "<b>Erro.Number:</b> " & Err.Number & "<br>"     response.write "<b>Erro.Source:</b> " & Err.Source & "<br>" Else    '##Caso a conexão seja bem sucedida, mostra mensagem de confirmação.    response.write "<b><font color='blue'> Conexão com o banco '" & banco & "' Microsoft SQL Server estabelecida com sucesso !</font>" End If   '##Fecha a conexão com o banco conexao.close   '##Remove as referência do objeto da memória SET conexao = Nothing %>

Windows 2008

No ambiente Windows 2008 o driver instalado para este tipo de conexão é o: SQLNCLI10, por este motivo, segue exemplo utilizando o mesmo:

<% '##Declara as variaveis a serem utilizadas no script Dim conexao, stringConexao, host, usuario, senha, banco   '##Informe os dados de conexão junto ao banco Microsoft SQL Server host   ="SERVIDOR" usuario="BASE"  senha  ="SENHA" banco  ="BANCO"   '##Monta a string de conexão utilizando os dados informados anteriormente stringConexao = "Provider=SQLNCLI10;SERVER="&host&";DATABASE="&banco&";UID="&usuario&";PWD="&senha&";"   '##Instancia o objeto de conexão com o banco SET conexao = Server.CreateObject("ADODB.Connection")   On Error Resume Next   '##Abre a conexão junto ao banco conexao.Open stringConexao   '##Tratamento de erro. Caso ocorra problemas na conexão, exibe esta informação e apresenta detalhes. If Err.Number <> 0 Then     response.write "<b><font color='red'> Conexão com o banco '" & banco & "' Microsoft SQL Server falhou !</font></b>"     response.write "<BR><BR>"     response.write "<b>Erro.Description:</b> " & Err.Description & "<br>"     response.write "<b>Erro.Number:</b> " & Err.Number & "<br>"     response.write "<b>Erro.Source:</b> " & Err.Source & "<br>" Else    '##Caso a conexão seja bem sucedida, mostra mensagem de confirmação.    response.write "<b><font color='blue'> Conexão com o banco '" & banco & "' Microsoft SQL Server estabelecida com sucesso !</font>" End If   '##Fecha a conexão com o banco conexao.close   '##Remove as referência do objeto da memória SET conexao = Nothing %>

Windows 2005

Arquivo: mssql.asp

<% '##Declara as variaveis a serem utilizadas no script Dim conexao, stringConexao, host, usuario, senha, banco   '##Informe os dados de conexão junto ao banco Microsoft SQL Server host   ="ENDERECO_SQL_SERVER" usuario="USUARIO"  senha  ="SENHA" banco  ="BANCO"   '##Monta a string de conexão utilizando os dados informados anteriormente stringConexao = "Provider=SQLOLEDB.1;SERVER="&host&";DATABASE="&banco&";UID="&usuario&";PWD="&senha&";"   '##Instancia o objeto de conexão com o banco SET conexao = Server.CreateObject("ADODB.Connection")   On Error Resume Next   '##Abre a conexão junto ao banco conexao.Open stringConexao   '##Tratamento de erro. Caso ocorra problemas na conexão, exibe esta informação e apresenta detalhes. If Err.Number <> 0 Then     response.write "<b><font color='red'> Conexão com o banco '" & banco & "' Microsoft SQL Server falhou !</font></b>"     response.write "<BR><BR>"     response.write "<b>Erro.Description:</b> " & Err.Description & "<br>"     response.write "<b>Erro.Number:</b> " & Err.Number & "<br>"     response.write "<b>Erro.Source:</b> " & Err.Source & "<br>" Else    '##Caso a conexão seja bem sucedida, mostra mensagem de confirmação.    response.write "<b><font color='blue'> Conexão com o banco '" & banco & "' Microsoft SQL Server estabelecida com sucesso !</font>" End If   '##Fecha a conexão com o banco conexao.close   '##Remove as referência do objeto da memória SET conexao = Nothing %>

Os códigos acima são somente exemplos. Caso haja dúvidas quanto sua utilização, sugerimos que verifique juntamente a um desenvolvedor de sua confiança.

Veja também


    O artigo ajudou ?
    SimNão

    33 Comments

    Uczyniłeś złożoną temat dostępną Świetną pracę|To nagraj to klejnot Więc zadowolony jak poncz konfigurowałem to|Ty ojciec zdumiewające zdolność do pisania atrakcyjna treść|To pismo na najwyższym poziomie zdobyłeś fresh obserwującego|Twój post był zarówno wnikliwy, jak i uroczo napisany|Jestem zdumiony poza jak wiele nauczyłem się z tego posta|wykonujesz adept pracę To wysłanie jest zeznanie o tym} {https://kredytero.pl|kredytero.pl|kredyt|kredyty|kredyt online|kredyty online|kredyt przez internet|kredyty przez internet}!

    Do you mind if I quote a couple of your articles as long as I provide credit and sources back to your weblog? My blog is in the exact same area of interest as yours and my users would genuinely benefit from a lot of the information you present here. Please let me know if this okay with you. Many thanks!

    Hello! Quick question that’s completely off topic. Do you know how to make your site mobile friendly? My weblog looks weird when viewing from my apple iphone. I’m trying to find a template or plugin that might be able to resolve this issue. If you have any suggestions, please share. With thanks!

    We are a bunch of volunteers and opening a new scheme in our community. Your site provided us with valuable information to paintings on. You have done a formidable task and our entire community might be thankful to you.

    That is the right blog for anybody who wants to search out out about this topic. You realize so much its nearly arduous to argue with you (not that I actually would need…HaHa). You positively put a brand new spin on a subject thats been written about for years. Nice stuff, simply nice!

    Deixe uma resposta