Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

[Resolvido] Drivers E Outras Informações

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

Se você quiser saber quais os drivers e outras informações vitais estão a ser utilizados para um DSN, aqui tem algum código para o resgate.

 

html><head>
<title>connectioninfo</title>
</head>
<!--#include file="lib_connectioninfo.asp"-->
<body>
<%
response.write "<hr>SQL Server conexão"
Call DSNinfo("DSN=student;uid=student;pwd=magic")
response.write "<hr>Acesso conexão"
theDSN="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" 
theDSN=theDSN & server.mappath("/learn/test/biblio.mdb")
Call DSNInfo(theDSN)
%>
</body>
</html>

Incluir o arquivo

 

lib_connectioninfo.asp

 

<%
SUB DSNInfo(strDSN)
Set cnn1 = Server.CreateObject("ADODB.Connection")
Set rsQuery = Server.CreateObject("ADODB.RecordSet")
cnn1.open strDSN 

response.write "Versão ADO: " & cnn1.Version 
response.write "<BR>" & vbcrlf
response.write strVersionInfo & "nome DBMS: " & cnn1.Properties("DBMS Name") 
response.write "<BR>" & vbcrlf 
response.write "Versão DBMS: " & cnn1.Properties("DBMS Version")
response.write "<BR>" & vbcrlf 
response.write "Versão OLE DB: " & cnn1.Properties("OLE DB Version")
response.write "<BR>" & vbcrlf 
response.write "Provedor nome: " & cnn1.Properties("Provider Name")
response.write "<BR>" & vbcrlf 
response.write "Provedor Versão: " & cnn1.Properties("Provider Version")
response.write "<BR>" & vbcrlf 
response.write "Provedor nome amigável: " & cnn1.Properties("Provider Friendly Name")
response.write "<BR>" & vbcrlf 

If 0 = Instr(LCase(cnn1.Properties("Provider Name")),"oledb") then
   ' ### Nenhum Provedor OLE DB usado, portanto:
   response.write "Nome Driver : " & cnn1.Properties("Driver Name")
	   response.write "<BR>" & vbcrlf 
   response.write "Versão do driver: " & cnn1.Properties("Driver Version")
	   response.write "<BR>" & vbcrlf 
   response.write "Versão do driver ODBC: " & cnn1.Properties("Driver ODBC Version")
   response.write "<BR><BR>"
end if

Set rsQuery = nothing
Set cnn1 = nothing


END SUB
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito