Como conectar meu banco de dados SQL SERVER usando ASP sem DSN?
Exemplo de código:
<%
' Variáveis com os valores de sua base de dados.
strDataSoure = "xxx.xxxx.xxx" 'colocar aqui a localização de sua base de dados
strDataBase ="xxxx" 'colocar aqui o nome do banco
strUser = "xxxx" 'colocar aqui o nome do usuário
strPWD = "xxxx" 'colocar aqui a senha
'Geramos a query SQL que irá acessar os dados na base de dados
'Conforme alteração 1
strQuery = "select TESTE from TESTE; "
'Montamos a string de conexão
strConexao = "Provider=SQLOLEDB.1;SERVER=" & strDataSoure
strConexao = strConexao & "; DATABASE=" & strDataBase
strConexao = strConexao & ";UID="& strUser
strConexao = strConexao & " ;PWD="& strPWD
'Criando um objeto de conexão com a base de dados e executamos a Query
set objConn = server.CreateObject("ADODB.Connection")
objConn.open strConexao
set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open strQuery, strConexao
do until rs.EOF
for each x in rs.Fields
Response.Write(CStr(x.Value)) & "<br>"
next
rs.MoveNext
loop
objConn.close
set rs = nothing
set objConn = nothing
%>
|