Acces distant base access FTP

fixflys Messages postés 1 Date d'inscription vendredi 18 avril 2008 Statut Membre Dernière intervention 18 avril 2008 - 18 avril 2008 à 16:48
cs_ghuysmans99 Messages postés 3983 Date d'inscription jeudi 14 juillet 2005 Statut Membre Dernière intervention 30 juin 2013 - 18 avril 2008 à 18:52
Bonjour,
Voila, j'ai réussi à faire une page simple qui liste le contenu d'une table d'une base access.
J'ai donc 2 fichiers: default.asp et DMM_Data.mdb
J'ai configuré IIS et cela fonctionne nickel en local lorsque je rentre http://localhost/Test_Site_DB/
J'ai uploadé les 2 fichiers chez mon hébergeur (Amen.fr) et cela fonctionne aussi très bien.

Je voudrais faire en sorte de n'avoir à uploader que le fichier default.asp chez mon hébergeur et que le fichier fasse appel à ma base qui serait sur mon ordi en local. (sans avoir à mettre en ligne ma base sur le serveur d'amen)

J'imagine qu'il faut créer une sorte de tunnel ?

Voici le code de mon fichier:

<HTML>


<%
Set conn = Server.CreateObject("ADODB.Connection")
' chaine de connexion
connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "/DMM_data.mdb"
' ouverture de la connexion
conn.Open connstring
Set RS = Server.CreateObject("ADODB.Recordset")
 


'********************traitement*******************************
SQL="SELECT * FROM etude"
RS.Open SQL,Conn
%>




Liste des sites

Voici la liste des sites...



<%
 Do While not rs.eof
                     
  Response.Write(rs("Num Etude"))
  Response.Write(" ") 
  Response.Write(rs("Num Sponsor"))
  Response.Write(" ") 
  Response.Write(rs("Nom Etude"))
  Response.Write(" ")
  Response.Write(rs("DateCreation"))
  Response.Write(" ")
  Response.Write(rs("DateDebPrev"))
  Response.Write(" ")
  Response.Write(rs("DateFinPrev"))
  Response.Write(" ")
  Response.Write(rs("Study_Ended"))
  Response.Write(" ")
  Response.Write(rs("User"))
  Response.Write(" ")
  Response.Write(rs("DonneurOrdre"))
  Response.Write(" ")
  Response.Write(rs("Study_Activated"))
  Response.Write(" ")
  Response.Write(rs("State"))
  Response.Write(" ")
  Response.Write("
")
  rs.MoveNext
 loop


' fermeture  et destruction de la connexion
conn.close
set conn=nothing
Set RS = Nothing
'**************************************************************
%>


</HTML>

1 réponse

cs_ghuysmans99 Messages postés 3983 Date d'inscription jeudi 14 juillet 2005 Statut Membre Dernière intervention 30 juin 2013 16
18 avril 2008 à 18:52
C'est impossible ...
_______________________________________________________________________
VB.NETis good ...VB6is better
0
Rejoignez-nous