Foros del Web » Programando para Internet » ASP Clásico »

Ayuda con error tonto, no puedo conectarme a la bd!

Estas en el tema de Ayuda con error tonto, no puedo conectarme a la bd! en el foro de ASP Clásico en Foros del Web. Buenas..... El siguiente es un error tonto (dado que sé que la solucion debe ser ovbia) y que no me ha dejado avanzar toda la ...
  #1 (permalink)  
Antiguo 08/03/2011, 14:50
Avatar de Julcar  
Fecha de Ingreso: noviembre-2007
Ubicación: C:\inetpub\wwwroot\Guayaquil
Mensajes: 1.507
Antigüedad: 16 años, 3 meses
Puntos: 54
Ayuda con error tonto, no puedo conectarme a la bd!

Buenas.....

El siguiente es un error tonto (dado que sé que la solucion debe ser ovbia) y que no me ha dejado avanzar toda la mañana:

Archivo selector.asp
Código:
<!-- #include file="inclusiones/items.asp" -->
<!-- #include file="inclusiones/selector-class.asp" -->
<%
  Response.addHeader "pragma", "no-cache"
  Response.CacheControl = "Private"

  Dim oSelector
  Set oSelector = New Selector
  oSelector.TipoConexion = 1
%>
Archivo selector-class.asp
Código:
<%
Class Selector

  Private oItem
  Private tipo_con

  Public Property Let TipoConexion(tipo)
    tipo_con = tipo
  End Property

  Private Sub Class_Initialize()
    Set oItem =  New Items
    oItem.ConnType = tipo_con
  End Sub

  ....Resto de metodos...

  Private Sub Class_Terminate()
    Set oItem = Nothing
  End Sub

End Class
%>
Archivo items.asp
Código:
Class Items
  Private oCON
  Private oRST
  Private oCMD
  Private conn_type
  Dim sSQL
  
  Public Property Let ConnType(c_type)
    conn_type = c_type
  End Property

  Private Sub Class_Initialize()
    Set oCON = Server.CreateObject("ADODB.Connection")
    Set oRST = Server.CreateObject("ADODB.Recordset")
    Call DBConnect(conn_type)
  End Sub
  
  Private Sub DBConnect(value)
    Select Case CInt(value)
      Case 1
        oCON.ConnectionString = "Driver={MySQL ODBC 3.51 Driver}; Server=**.**.**.**; Port=3306; Database=******; User=*******; Password=*******; Option=3;"
      Case 2
        oCON.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath ("data/*****.mdb") & ";"
    End Select
    oCON.Open
  End Sub

....Resto de Metodos....

  Private Sub Class_Terminate()
    oCON.Close
    Set oCON = nothing
    Set oRST = nothing
    Set oCMD = nothing
  End Sub
End Class
El error que me aparece al entrar a selector.asp es el siguiente:

Cita:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][Administrador de controladores ODBC] No se encuentra el nombre del origen de datos y no se especificó ningún controlador predeterminado

/********/inclusiones/items.asp, línea 27
he ocultado con asteriscos * nombres sensibles de la aplicación.

Por favor imploro vuestra ayuda!!
__________________
Linux no es el único S.O. libre, conoce a ReactOS el Windows Libre!
"Si mis respuestas te dan la calma, espárceme un poco de karma"
  #2 (permalink)  
Antiguo 08/03/2011, 19:53
Avatar de Julcar  
Fecha de Ingreso: noviembre-2007
Ubicación: C:\inetpub\wwwroot\Guayaquil
Mensajes: 1.507
Antigüedad: 16 años, 3 meses
Puntos: 54
Respuesta: Ayuda con error tonto, no puedo conectarme a la bd!

Efectivamente, la respuesta fue tan ovbia:

Primeramente el error daba porque no estaba recibiendo parametro alguno en la funcion DBConnect() lo que hice fue hacerla publica, y llamarla desde selector-class.asp mas unas pequeñas modificaciones y listo!
__________________
Linux no es el único S.O. libre, conoce a ReactOS el Windows Libre!
"Si mis respuestas te dan la calma, espárceme un poco de karma"

Etiquetas: bd
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 11:11.