Microsoft OLE DB Provider for ODBC Drivers error '80004005'

Question

Alguem pode me corrigir.

Não grava e retorna com a seguinte menssagem.

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

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

/arnaldo/painelctrl/ADM_lista_materia.asp, line 10

 

 

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/arnaldo.asp" -->
<%

Dim rsMaterias
Dim rsMaterias_cmd
Dim rsMaterias_Rows

Set rsMaterias_cmd = Server.CreateObject ("ADODB.Command")
rsMaterias_cmd.ActiveConnection = MM_arnaldo_STRING  O erro acontece aqui nesta linha
rsMaterias_cmd.CommandText = "SELECT id_categoria, nome_categoria FROM DicasServicos ORDER BY nome_categoria ASC"
rsMaterias_cmd.Prepared = true

Set rsMaterias = rsMaterias_cmd.Execute
rsMaterias_Rows = 0
%>

<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rsMaterias_numRows = rsMaterias_numRows + Repeat1__numRows
%>

Answer 1

Alguem pode me corrigir.

o objetivo é de criar textos com imagens e não estou conseguindo.

Não grava e retorna com a seguinte menssagem.

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

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

/arnaldo/painelctrl/ADM_lista_materia.asp, line 10

 

 

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/arnaldo.asp" -->
<%

Dim rsMaterias
Dim rsMaterias_cmd
Dim rsMaterias_Rows

Set rsMaterias_cmd = Server.CreateObject ("ADODB.Command")
rsMaterias_cmd.ActiveConnection = MM_arnaldo_STRING  O erro acontece aqui nesta linha
rsMaterias_cmd.CommandText = "SELECT id_categoria, nome_categoria FROM DicasServicos ORDER BY nome_categoria ASC"
rsMaterias_cmd.Prepared = true

Set rsMaterias = rsMaterias_cmd.Execute
rsMaterias_Rows = 0
%>

<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rsMaterias_numRows = rsMaterias_numRows + Repeat1__numRows
%>

Answer 2

Arnaldo, caso não tenha resolvido seu problema, de uma olhada no link abaixo.

http://www.devguru.com/technologies/ado/quickref/recordset_activeconnection.html

 

---

Abraço

Estevam


**** Se a reposta foi útil, então não esqueça de marca-lá. ***

Answer 3

Já conseguiu resolver o teu problema? Se sim, o que você fez?

Talvez o seu problema seja o mesmo que o meu: http://social.msdn.microsoft.com/Forums/pt-br/asppt/thread/f3e15ff9-f8e9-4abf-aeed-4e435c9e5a47

---

Theo Fernandes

Answer 4

Resolvi com o seguinte string:

   conn.Open("DRIVER={MySQL ODBC 5.3 ANSIDriver};SERVER=ENDEREÇO_DA_BASE_MYSQL;PORT=3306; DATABASE=NOME_DA_BASE;USER=NOME_DA_BASE;PASSWORD=SENHA_DA_BASE;OPTION=3;")

Answer 5

Boa tarde, estou com problemas no meu sistema também.

Em qual local você colocou esta linha?

O meu está dando erro na linha: rsTipoFicha_cmd.ActiveConnection = MM_connect_STRING

<!--#include file="../connections/Config.asp" -->
<!--#include file="../Include/criptografia.asp" -->
<!--#include file="../Include/globalFunctions.asp" -->


<%

	' string de conexão com banco de dados
	Dim MM_connect_STRING 	
	MM_connect_STRING = agencia("connect_string")		
	
	'==============================================
	' Decodificar parametros (Base64Decode)
	Dim param			
	On Error Resume Next
	Set param = getDecodeParameters()
	
	If err = 0 Then
			
	Else
		Set param = Server.CreateObject("Scripting.Dictionary")
		
		Dim parametros	
		parametros = Split(request.QueryString,"&")
					
		For i = 0 to Ubound(parametros)  
			parametro = Split(parametros(i),"=")	
			chave = parametro(0)
			valor = parametro(1)
			param.Add chave,valor
		Next 	
	End If
	
	On Error Goto 0
		
		
  
	'--------------------------------------------------------------------------
	' Tipos de ficha cadastrais
	'--------------------------------------------------------------------------
	'Consultar tipos de fichas existentes
	Dim rsTipoFicha
	Dim rsTipoFicha_cmd	
	Set rsTipoFicha_cmd = Server.CreateObject ("ADODB.Command")
	rsTipoFicha_cmd.ActiveConnection = MM_connect_STRING