USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  ASP - Active Server Page
Voltar
Autor Assunto:  Microsoft OLE DB Provider for ODBC error '80004005
LuizRicarte
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 22/09/2004 09:40 hs            
Olá Pessoal, estou tentando fazer a conexão com um banco de dados SQL Server, mas me acontece um erro.
A base de dados esta em um servidor, e as páginas em ASP em outro Servidor.
Minha base esta no stslab10, e minhas páginas em outro servidor.
Mas qdo tento fazer a conexão acontece este Erro. 
Criei um ODBC chamado Intra.TDCS, e qdo testo esta conexão no servidor q esta minhas páginas em ASP, ele roda, mas rodando pelo ASP da forma q esta o codigo abaixo, Acontece este erro.
Alguem pode me ajudar???
Obrigado
Luiz
 
----------------------------------------------------------------------------------
<html>
<head>
<title> Pesquisa de Inventário</title>
</head>
<body>
<center><b> Pesquisa do Inventário - <%Ninv=request.form("Invent")%><% Response.Write(Ninv)%></b></center></p>

<% ' Abertura do Banco de Dados
Dim objConn
Dim objRS
Dim strSQL
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DSN=Intra.TDCS;UID=tdcsrw;PWD=tdcsrw;DATABASE=TSBR-TDCS"
 
' Inicialização do objeto Recordset Set
objRS = Server.CreateObject("ADODB.Recordset")
' Construção da consulta com SQL
strSQL = "SELECT *, tbl_Hardware.Sist_Operacional AS SOHard, b6901g.[MEM   (MB)] AS MRG1A, b6901g.[VEL   (MH)] AS PROG1A,
b6901g.[HD    (MB)] AS HDG1A FROM TBL_X INNER JOIN tbl_Hardware ON TBL_X.End_Rede = tbl_Hardware.End_Rede INNER JOIN b6901g
ON TBL_X.Inventario = b6901g.NUMINV WHERE (TBL_X.Inventario = '" & request.form("Invent") & "')"
' Execução da consulta
objRS.Open strSQL, objConn
%>

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/intra.tdcs/Inventario/PesqInv.asp, line 15

   
vilmarbr
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 22/09/2004 14:01 hs         
Oi, tente colocar nome de arquivos, variáveis, banco de dados, tabelas sem caracteres especiais como * . + / & - .....
use somente letras, numeros e underline..procure começar os nomes apenas por letra.
 
confira se usa string de conexão está correta aqui:
http://www.able-consulting.com/ADO_Conn.htm
http://www.connectionstrings.com/
 
t+

http://www.vilmarbro.com.br
     
Ricardo Lerma
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 22/09/2004 14:05 hs         
Sua string de conexão esta incorreta, falta o driver a ser utilizado, veja estes exemplos:
 

VBWEB - O Portal do Desenvolvedor

Agora o VBWEB também hospeda sites!
isto mesmo! conheçam os planos do VBWEB Hosting

   
LuizRicarte
SÃO PAULO
SP - BRASIL
Postada em 22/09/2004 14:20 hs            
Oi novamente
Colquei da seguinte forma:
objConn.Open "Provider=sqloledb;Data Source=STSLAB10TDCS;Initial Catalog=TSBR-TDCS;User Id=IntraTDCS;Password=;"
Ocorreu outro erro agora, antes estava executando a página agora :

A página não pode ser exibida

HTTP 500 - erro interno do servidor
Internet Explorer

 

E agora???

     
LuizRicarte
SÃO PAULO
SP - BRASIL
Postada em 22/09/2004 15:01 hs            
Mudei a string de conexão
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={SQL Server};" & _
"Server=53.248.184.131;" & _
"Address=53.248.184.131,1433;" & _
"Network=DBMSSOCN;" & _
"Database=TSBR-TDCS;" & _
"Uid=IntraTDCS;" & _
"Pwd="
e agora mudou o erro...
 

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC SQL Server Driver][TCP/IP Sockets]SQL Server does not exist or access denied.

 

Alguem me ajuda??

     
vilmarbr
Pontos: 2843
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 23/09/2004 11:41 hs         
Oi Luiz,
Faça o seguinte: use OLEDB. Veja que "moleza" irmão:
 
Dim ConDBAU0001
Set ConDBAU0001 = Server.CreateObject("ADODB.Connection")
ConDBAU0001.Open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=NOME_SEU_BANCO;Data Source=NOME_SEU_PC"

http://www.vilmarbro.com.br
   
Página(s): 1/2      PRÓXIMA »

CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página