Inquiridor
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

Pergunta
-
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_RowsSet 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 = trueSet rsMaterias = rsMaterias_cmd.Execute
rsMaterias_Rows = 0
%><%
Dim Repeat1__numRows
Dim Repeat1__indexRepeat1__numRows = -1
Repeat1__index = 0
rsMaterias_numRows = rsMaterias_numRows + Repeat1__numRows
%>
Todas as Respostas
-
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_RowsSet 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 = trueSet rsMaterias = rsMaterias_cmd.Execute
rsMaterias_Rows = 0
%><%
Dim Repeat1__numRows
Dim Repeat1__indexRepeat1__numRows = -1
Repeat1__index = 0
rsMaterias_numRows = rsMaterias_numRows + Repeat1__numRows
%> -
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á. *** -
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 -
-
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