Cambio de direccion local a servidor???

8461277 · #1 (**permalink**) 13/03/2003, 05:51

Hola amigos ya me tienen por aqui denuevo, lo que pasa es que estaba ocupado, mi nueva pregunta es la siguiente, es que contrate u servidor asp, pero creo que debeo CANBIAR LA DIRECCION LOCAL DE CONECCION A MI BASE DE DATO DE ACCESS A LA DIRECCION DEL SERVIDOR Y NO SE COMO HACERLO, como lo hago la direccion local es:

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\inetpub\wwwroot\asp\graciela.mdb;"

Gracias Miguel

Owen-Bonilla · #2 (**permalink**) 13/03/2003, 08:32

Cita:

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\inetpub\wwwroot\asp\graciela.mdb;"

En lugar de la ruta que tienes tu, seria algo como esto:

Source=d:\websites\MiHost\db\MiDB.mdb"
conn.execute (SQL)

osea, donde "D" es la unidad del servidor y lo demas pues son las carpetas donde se encuentra alojada mi BD.

Otra forma seria no usar conexion por JET, es decir, utilizar algo como esto:

set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/acceso.mdb") & "; Password=Password "
SQL="SELECT * FROM " & _
"Mi_Tabla"

set rs=oConn.Execute(SQL)

con este tipo de conexión no utilizas ninguna ruta directa al servidor, sino que simplemente le indicas una ruta "virtual"

me explico

Saludos y cualquier cosa aqui andamos

Owen

maestro · #3 (**permalink**) 16/03/2003, 18:21

Y si en vez de eso usaras una referencia relativa al fichero:
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("tubase.mdb") & ";

Siempre estaria dentro del arbol /inetpub/wwwroot/

Y otra solucion es crear una DSN, claro que si cambias de equipo acuerdate de crearla en el panel de control, ODBC 32 bits

8461277 · #4 (**permalink**) 17/03/2003, 06:22

Me da este error:
Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/consultamodificagraciela3.asp, line 26

Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("graciela.mdb") & ";
------------------------------------------------------------------------------------------------^

maestro · #5 (**permalink**) 17/03/2003, 06:29

Pon esto para usar el driver MDB.
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("graciela.mdb")

Y esto para usar OLEDB (mas recomendable)
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("graciela.mdb")&";"

8461277 · #6 (**permalink**) 17/03/2003, 06:53

Amigo maestro no entiendo lo que me quiere decir, utilizo uno o los dos????'

Aqui te dejo todo el codigo que yo utilizo:

<html>
<head>
<meta http-equiv="Content-Language" content="es">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Consulta de una Base de Dato</title>
</head>
<body bgcolor="#808000">
<div align="center">
<center>
<table border="2" width="50%" bgcolor="#008000">
<tr>
<td width="100%">
<p align="center"><font color="#FFFFFF"><B>RESULTADO DE LA CONSULTA</B></font></td>
</tr>
</table>
</center>
</div>
<%
'Option Explicit
Dim Conn
Dim Rs
Dim curDir
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=..\\graciela.mdb;"
Set Rs = Server.CreateObject("ADODB.Recordset")
Set Rs.ActiveConnection = Conn
Rs.Source = "select Cantidad from Producto Where codigo = " & Request.Form("Codigo")
Rs.Open
If Rs.EOF Then
Response.write("Código inexistente: " & Request.Form("Codigo"))
Else
Conn.Execute "Update Producto set Cantidad = " & Rs("Cantidad") - Request.Form("cantidadx") & " where codigo = " & Request.Form("Codigo")
Rs.Close
' La actualización ya está lista.

Rs.Source = "select * from Producto Where codigo = " & Request.Form("Codigo")
Rs.Open
cant=cstr(request.form ("cantidadx"))
'response.write (cant)
pre=rs("Precio")
'response.write (pre)
pretotal= request.form ("cantidadx") * rs("Precio")
'pretotal= cant * pre

%>
<CENTER>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="90" alt="70">
<tr>
<td width="20%" valign="middle" align="center" bgcolor="#FFFFFF">
<font color="#000000"><font Size="5"><%=rs("Cantidad")%></font></td>
<td width="100%"><img src="<%=rs("foto")%>"width="90" alt="70" >"
</td>
<BR>

<table border="0" width="50%">
<tr>
<th width="20%" valign="middle" align="center" bgcolor="#008080">
<font color="#000000">Codigo</font></th>
<th width="20%" valign="middle" align="center" bgcolor="#008080">
<font color="#000000">Descripcion</font></th>
<th width="20%" valign="middle" align="center" bgcolor="#008080">
<font color="#000000">Cantidad</font></th>
<th width="20%" valign="middle" align="center" bgcolor="#008080">
<font color="#000000">Precio</font></th>
</tr>
<%
do while not Rs.eof
%>
<tr>
<td width="20%" valign="middle" align="center" bgcolor="#FFFFFF">
<font color="#000000"><font Size="5"><%=FormatNumber((Rs("Codigo").Value), 0, -2, -1, -1)%></font></td>
<td width="20%" valign="middle" align="center" bgcolor="#FFFFFF">
<font color="#000000"><font Size="5"><%=Rs("Descripcion")%></font></td>
<td width="20%" valign="middle" align="center" bgcolor="#FFFFFF">
<font color="#000000"><font Size="5"><%=Rs("Cantidad")%></font></td>
<td width="20%" valign="middle" align="center" bgcolor="#FFFFFF">
<font color="#000000"><font Size="5"><%=Rs("Precio")%></font></td>

<%response.write.FormatNumber (pretotal).Value), 0, -2, -1, -1)%>
</tr>

<%
Rs.movenext
loop
end if
Rs.Close
Conn.Close
Set Rs = Nothing
Set Conn = Nothing
%>
</table>
</CENTER>
<p> </p>
<p align="center"><a href="fconsultagraciela3.html">Otra vez</a></p>
</body>

Ayudame por favor????????
Mis pagina lo tengo alojada en:

www4.dotnetplayground.com/

maestro · #7 (**permalink**) 17/03/2003, 08:21

Usa el segundo.
<%
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("graciela.mdb")&";"
%>

Asegurate de que la base de datos este en el mismo directorio en que se encuentra el archivo y ambos deben estar en el web raiz, no dentro de ningun subirectorio, sino deberias cambiar la ruta de Server.MapPath("directorio/graciela.mdb")