Acces distant base access FTP

Signaler
Messages postés
1
Date d'inscription
vendredi 18 avril 2008
Statut
Membre
Dernière intervention
18 avril 2008
-
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
-
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

Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
13
C'est impossible ...
_______________________________________________________________________
VB.NETis good ...VB6is better