Ir para conteúdo

POWERED BY:

Arquivado

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

Boris

[Resolvido] Conexão com Banco SQL

Por , em ASP Clássico

Recommended Posts

Boris    0

Boris
Postado

Galera estou com um problema ao fazer a conexao com o banco aparece o seguinte erro:

 

Objeto Server erro 'ASP 0177 : 8007007e'

 

Falha em Server.CreateObject

 

/sistema/conexao.asp, line 2

 

8007007e

 

<%
set conexao=server.CreateObject("adodb.connection")
dados_sys = "Provider=sqloledb;Data Source=Master\SQLEXPRESS;Initial Catalog=sys_bd;User Id=sa;Password=123456;"
conexao.open dados_sys
%>

o que sera que está acontecendo de uma hora pra outra

 

 

Obrigado http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Está testando localmente? Windows XP?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

executa o Asp q lista os componentes instalados no servidor e verifique se lista o ADODB, e veja se o IIS esta funcionando perfeitamente.

 

<%@ Language="VBScript" %>
<% Option Explicit %>
<%
Dim theComponent(14)
Dim theComponentName(14)

		' Lista dos Componentes
		theComponent(0) = "ADODB.Connection"
		theComponent(1) = "SoftArtisans.FileUp"
		theComponent(2) = "AspHTTP.Conn"
		theComponent(3) = "AspImage.Image"
		theComponent(4) = "LastMod.FileObj"
		theComponent(5) = "Scripting.FileSystemObject"
		theComponent(6) = "SMTPsvg.Mailer"
		theComponent(7) = "CDONTS.NewMail"
		theComponent(8) = "Jmail.smtpmail"
		theComponent(9) = "SmtpMail.SmtpMail.1"
		theComponent(10) = "Persits.Upload.1"
		theComponent(11) = "UnitedBinary.AutoImageSize"
		theComponent(12) = "aspSmartUpload.SmartUpload"
		theComponent(13) = "DAO.DBEngine.35"

		' Apelido dos Componentes
		theComponentName(0) = "ADODB"
		theComponentName(1) = "SA-FileUp"
		theComponentName(2) = "AspHTTP"
		theComponentName(3) = "AspImage"
		theComponentName(4) = "LastMod"
		theComponentName(5) = "FileSystemObject"
		theComponentName(6) = "ASPMail"
		theComponentName(7) = "CDONTS"
		theComponentName(8) = "JMail"
		theComponentName(9) = "SMTP"
		theComponentName(10) = "Persits Upload"
		theComponentName(11) = "AutoImageSize"
		theComponentName(12) = "ASpSmartUpload"
		theComponentName(13) = "DBEngine"

Function IsObjInstalled(strClassString)
		On Error Resume Next
				IsObjInstalled = False
		Err = 0
				Dim xTestObj
						Set xTestObj = Server.CreateObject(strClassString)
		If 0 = Err Then IsObjInstalled = True
				Set xTestObj = Nothing
		Err = 0
End Function
%>
<html>
<head>
<title>O que tem aqui?</title>
</head>
<body>
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><b>Componentes
instalados:</b></font></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<%
Dim i
		For i = 0 To UBound(theComponent)
		If Not IsObjInstalled(theComponent(i)) Then
		Else
				Response.Write "<tr>" & vbCrLf
				Response.Write "<td width=""100%"">" & vbCrLf
				Response.Write "<b>" & theComponentName(i) & "</b>" & vbCrLf
				Response.Write "</td>" & vbCrLf
				Response.Write "</tr>" & vbCrLf
		End If
Next
%>
</table>
</font>
</td>
</tr>
</table>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

seu IIS esta rodando normal ???

você instalou algum MDAC ???

 

tente com outro banco, tipo access, para ver...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Boris    0

Boris
Postado

seu IIS esta rodando normal ???

você instalou algum MDAC ???

 

tente com outro banco, tipo access, para ver...

meu IIS aparentimente está, apenas começou a dar esse erro de uma hora pra outra inclusive com o BD Access...

 

Estranho...

 

Não instalei nenhum MDAC

 

Já desinstalei e instalei o IIS e continua aparecendo este erro...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Boris    0

Boris
Postado

dê permissão total a pasta do seu sistema, fiz isso uma vez mais só que com asp.net e era isso!

Então dei permissão total mas continua dando o mesmo erro.

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Só da erro nesse site?

 

Se for em todos reinstala o IIS.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Boris    0

Boris
Postado

Só da erro nesse site?

 

Se for em todos reinstala o IIS.

 

eu já reinstalei o mesmo e continua dando o erro....

 

 

Eu já criei um outro banco e continua dando o erro

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

criou um bd em access ???

Compartilhar este post

Link para o post
Compartilhar em outros sites

Boris    0

Boris
Postado

criou um bd em access ???

 

O meu banco é SQL mas testei com um sistema em Access e deu problema tbm ....

 

Testei em casa e funcionou agora aqui no escritorio não está funcionando

Compartilhar este post

Link para o post
Compartilhar em outros sites

Boris    0

Boris
Postado

Só da erro nesse site?

 

Se for em todos reinstala o IIS.

eu já tentei reintalar o IIS mas continua dando o problema. o estranho que foi de uma hora pra outra não tenho nem ideia como aconteceu, se eu tivesse instalado algum programa tudo bem mas não foi feito nada de diferente.

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Você está com problema para criar o objeto.

 

Executa esse arquivo conexao.asp separado dos demais. Se não der erro, provavelmente é a união dele com outros arquivos que está provocando o erro.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Boris    0

Boris
Postado

Você está com problema para criar o objeto.

 

Executa esse arquivo conexao.asp separado dos demais. Se não der erro, provavelmente é a união dele com outros arquivos que está provocando o erro.

 

Mesmo executando somente ele dá o mesmo erro.

 

Objeto Server erro 'ASP 0177 : 8007007e'

 

Falha em Server.CreateObject

 

/sys/conexao.asp, line 20

 

8007007e

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Coloca o arquivo conexao.asp na mesma raiz do arquivo onde você executou o código do xan, que retornou ADODB e FileSystemObject.

 

Se der algum erro, altere a linha:

set conexao=server.CreateObject("adodb.connection")

 

Para:

Dim conexao

Set conexao = Server.CreateObject("ADODB.Connection")

Poste o resultado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Boris    0

Boris
Postado

Coloca o arquivo conexao.asp na mesma raiz do arquivo onde você executou o código do xan, que retornou ADODB e FileSystemObject.

 

Se der algum erro, altere a linha:

set conexao=server.CreateObject("adodb.connection")

 

Para:

Dim conexao

Set conexao = Server.CreateObject("ADODB.Connection")

Poste o resultado.

 

 

ok, qual seria a alternativo pra está linha ?

set conexao=server.CreateObject("adodb.connection")

 

o erro foi o mesmo

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Não existe alternativa.

 

Você tem um erro incomum, uma vez que você executou um script no mesmo servidor e o mesmo funcionou corretamente.

 

Acrescenta no inicio do código:

<%@ Language="VBScript" %>

 

Veja se resolve.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Boris    0

Boris
Postado

Não existe alternativa.

 

Você tem um erro incomum, uma vez que você executou um script no mesmo servidor e o mesmo funcionou corretamente.

 

Acrescenta no inicio do código:

<%@ Language="VBScript" %>

 

Veja se resolve.

Não resolveu, so jogou a linha de erro mais pra baixo, será que esse é o caso de formatar a maquina ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

se você consegue rodar em outra maquina, o problema esta na maq. do escritório, você instalou o SP3 ???

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