none
Microsoft OLE DB Provider for ODBC Drivers error '80004005' RRS feed

  • 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_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
    %>

    quinta-feira, 14 de julho de 2011 00:42

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_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
    %>


    quinta-feira, 14 de julho de 2011 01:08
  • 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
    Siga luizestevamb on Twitter

    **** Se a reposta foi útil, então não esqueça de marca-lá. ***
    terça-feira, 26 de julho de 2011 02:22
  • 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
    sexta-feira, 29 de julho de 2011 13:24
  • 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;")

    quinta-feira, 23 de agosto de 2018 04:32
  • 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

    quinta-feira, 22 de novembro de 2018 16:42