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