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

¿cómo conectar con ASP a una BD access en un hosting compartido?

Estas en el tema de ¿cómo conectar con ASP a una BD access en un hosting compartido? en el foro de ASP Clásico en Foros del Web. Hola. Aquí entregan un código: http://www.forosdelweb.com/f15/conex...3/#post1142908 Pero quisiera disponer de uno que evalúe cáda paso. Es decir (en pseudocódigo), algo como: "Si no conecto" then ...
  #1 (permalink)  
Antiguo 14/11/2014, 10:39
 
Fecha de Ingreso: febrero-2004
Mensajes: 1.987
Antigüedad: 20 años, 1 mes
Puntos: 22
¿cómo conectar con ASP a una BD access en un hosting compartido?

Hola.

Aquí entregan un código:

http://www.forosdelweb.com/f15/conex...3/#post1142908

Pero quisiera disponer de uno que evalúe cáda paso.

Es decir (en pseudocódigo), algo como:

"Si no conecto" then print 'No puedo conectar y obtengo el error ' + tipo_de_error_desde_Access();

else "si conecto pero no existe tabla" then print 'Error al elegir tabla';

etc...

Puede alguien colaborarme por favor?

Gracias
  #2 (permalink)  
Antiguo 16/11/2014, 14:43
Avatar de RucarMaN  
Fecha de Ingreso: julio-2003
Ubicación: Caripito Edo Monagas
Mensajes: 169
Antigüedad: 20 años, 8 meses
Puntos: 1
Respuesta: ¿cómo conectar con ASP a una BD access en un hosting compartido?

Microsoft Access Driver
<%
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("database.mdb"),"user" , "password"
%>

OLE DB
<%
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("database.mdb"),"user" , "password"
%>

ODBC
<%
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DSNname (ODBC)","user" , "password"
%>

<%
On Error Resume Next '*** Not Show ASP Error ***'
Dim Conn1
Set Conn1 = Server.Createobject("ADODB.Connection")
Conn1.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("mydatabase.mdb"),"" , ""
If Err.Number <> 0 Then
Response.write("(Microsoft Access Driver) Database cannot connect Error = "&Err.Description&"<br>")
Else
Response.write("(Microsoft Access Driver) Database connected.<br>")
End If
Conn1.Close()
Set Conn1 = Nothing

Dim Conn2
Set Conn2 = Server.Createobject("ADODB.Connection")
Conn2.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("mydatabase.mdb"),"" , ""
If Err.Number <> 0 Then
Response.write("(OLE DB) Database cannot connect Error = "&Err.Description&"<br>")
Else
Response.write("(OLE DB) Database connected.<br>")
End If
Conn2.Close()
Set Conn1 = Nothing

Dim Conn3
Set Conn3 = Server.Createobject("ADODB.Connection")
Conn3.open "mydatabase","",""
If Err.Number <> 0 Then
Response.write("(ODBC) Database cannot connect Error = "&Err.Description&"<br>")
Else
Response.write("(ODBC) Database connected.<br>")
End If
Conn3.Close()
Set Conn3 = Nothing
%>
__________________
Con la ayuda de todos seremos mejores...

http://www.pemoweb.com

Última edición por RucarMaN; 16/11/2014 a las 14:47 Razón: faklto algo
  #3 (permalink)  
Antiguo 21/11/2014, 11:09
 
Fecha de Ingreso: febrero-2004
Mensajes: 1.987
Antigüedad: 20 años, 1 mes
Puntos: 22
Respuesta: ¿cómo conectar con ASP a una BD access en un hosting compartido?

Gracias por tu código.

Al correrlo sin modificar un solo caracter me muestra en pantalla: Internal Server Error.

Es decir, existe un error, pero no sé en que línea ni por que.

Quizá puedes brindarme uno que evalúe paso a paso ?

Etiquetas: access, asp, bd, hosting
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 08:46.