Hola Gardel mi Proveedor de aceso me acaba de enviar un código de prueba para conectar la base de datos que dice que funciona, es este:
<%
' Nuestras tres variables para jugar con la bd
Dim oConn, rs, SQL
'Creamos los objetos
dbpath = server.mappath("\pruebanet.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbpath
'set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
'Conectamos con DSN a la base de datos
'oConn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath("\")
'oConn.Open "DSN=pruebaacens.arcanumdata.com"
'oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\webs\bearzu\data\db1.mdb;"
SQL="SELECT * FROM tablapruebanet;"
'Ejecutamos la consulta y traemos los datos al recordset
rs.Open SQL, oConn
'Ahora iteramos por el recordset y mostramos los resultados en una tabla
'Primero pintamos la cabecera de la tabla
'Response.Write("<TABLE BORDER="0">"&VbCrlf) 'VbCrLf mete un salto de línea
'Ahora recorremos el recordset con un bucle
'pintando una fila de la tabla para cada registro
do until rs.EOF
Response.Write("<TR><TD>"&VbCrLf)
Response.Write(rs.Fields("dni")&"</TD><TD>")
Response.Write(rs.Fields("nombre")&"</TD><TD>")
'Response.Write(rs.Fields("apellidos")&</TD></TR>")
'Pasamos al siguiente registro
rs.MoveNext
'volvemos al do
loop
'Cierro la tabla
Response.Write("</TABLE>")
'Como ya he terminado, cierro los objetos
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
%>
en lo que a mi conecxión respecta he escrito lo siguiente:
<%
' Nuestras tres variables para jugar con la bd
Dim oConn, rs, SQL
'Creamos los objetos
dbpath = server.mappath("\ht3d.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbpath
'set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
'Conectamos con DSN a la base de datos
'oConn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath("\ht3d.mdb")
'oConn.Open "DSN=pruebaacens.arcanumdata.com"
'oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\Inetpub\wwwroot\ht3d.mdb;"
Mi base de datos se llama ht3d.mdb y se encuentra dentro de la carpeta remota html.
Pero es aquí donde tengo la duda, ¿no se puede conectar la base de datos, es decir, solo hacer la conección mediante el código y luedo realizar los recordset, tablas y demás funciones con el dreamweaver?
lo que me interesa es que se me active el panel "aplicación" del dreamweaver para poder ejecutar las ordenes de bases de datos.
Ya todo me está quedando mucho mas claro, espero no acabar con tu paciencia. Gracias.