Base de données Access et pages web dynamiques, j'y arrive pas !

Base de données Access et pages web dynamiques, j'y arrive pas ! - Win NT/2K/XP - Windows & Software

Marsh Posté le 09-10-2003 à 13:56:24    

Voilà, je dois faire un site se basant sur des tonnes de données qui sont déjà rentrées sous Access, et il y a de celà quelques années, j'avais vu en cours que l'on pouvait créer des pages web dynamiques pour la consultation (voire même recherche) sur cette base de données.
 
J'ai donc repris mes petits cours et navigué un peu sur le net pour m'y remettre mais après quelques heures dessus, quelque chose m'est revenu : la source de données ODBC.
 
J'ai tenté de configuré çà a peu pres mais apres avoir mis en ligne, çà ne marche toujours pas. Plus inquiétant çà ne marche même pas en local sur mon pc quand j'exporte juste en ASP ou IDC/HTX. Ma requête est pourtant simple (afficher juste les NOMS de la colonne NOMS triés par ordre croissant...) La requête marche pourtant sous access.
 
Je me souviens que mon prof ne nous parlait pas de ces sources de données ODBC, d'ailleurs il voulait pas qu'on y touche...
 
Donc voilà, si des pros des bases de données en ligne pouvaient me venir en aide çà serait super sympa  :)


Message édité par slanngolf le 09-10-2003 à 13:58:59
Reply

Marsh Posté le 09-10-2003 à 13:56:24   

Reply

Marsh Posté le 09-10-2003 à 14:03:46    

Sous Access Fichier -> Exporter -> Choisir dans la liste "ASP"
 
Je n'ai jamais testé, il te faut probablement IIS pour faire tourner ces pages...


Message édité par Requin le 09-10-2003 à 14:03:58
Reply

Marsh Posté le 09-10-2003 à 14:42:10    

merci je sais comment exporter ;) c juste que je pige rien a l'ODBC et IIS :(

Reply

Marsh Posté le 09-10-2003 à 14:54:41    

Donc mauvais forum, voir dans programmation, voici mon code source que j'utilise pour me connecter à des DB Access en ASP 3.0... il faut lui passer une string de connexion valide avec le chemin de la DB et c'est à peu près tout. De préférence j'utilise le provider OLEDB.
 
Voici à quoi ressemble l'appel dans le code :

Code :
  1. Set objDB = New DBCONNClass
  2.    Set objConn = objDB.Open(cfgDBAbsFilePath, cfgDBString, "", "", "" )


 
Voici le contenu des variables de l'appel ci-dessus (fichier de configuration) :

Code :
  1. ' database
  2. cfgDBPath = "../database/"
  3. cfgDBFile = "database.mdb"
  4. cfgDBRelFilePath = cfgDBPath & cfgDBFile
  5. cfgDBAbsFilePath = Server.Mappath(cfgDBRelFilePath)
  6. cfgDBString  = "Provider=Microsoft.Jet.OLEDB.4.0;" &_
  7.                "Data Source= " & cfgDBAbsFilePath & ";"


 
Voici la classe pour gérer mes connexions :

Code :
  1. <%
  2.    ' /// Manual ///
  3.    ' Pop()
  4.    '     Desc   : get current connection
  5.    '     Pass   : nothing
  6.    '     Return : an ADODB.Connection object; If there is no connection set,
  7.    '              return "Nothing"
  8.    ' Open(l_strDBAbsFilePath, l_strDBConnString, l_strDBUser, _
  9.    '      l_strDBPassword, l_strDBOptions)
  10.    '     Desc   : open a connection to a database using a DSN less method
  11.    '     Pass   : l_strDBAbsFilePath = a string, absolute file path to DB
  12.    '              l_strDBConnString  = a string, provider...
  13.    '              l_strDBUser        = a sring, user (may be an empty string)
  14.    '              l_strDBPassword    = a string, password (empty str)
  15.    '              l_strDBOptions     = a string, options (empty str)
  16.    '     Return : current connection object, OR "Nothing"
  17.    ' Close()
  18.    '     Desc   : close connection to database
  19.    '     Pass   : nothing
  20.    '     Return : a boolean, True If transaction was sucessfull
  21.    ' ExecuteRS(strStatement)
  22.    '     Desc   : execute a statement AND return a recordset
  23.    '     Pass   : strStatement       = a string, SQL statement like SELECT
  24.    '     Return : an ADODB.RecordSet object OR nothing If failed
  25.    ' ExecuteNORS(strStatement)
  26.    '     Desc   : execute a statement AND don't return a recordset
  27.    '     Pass   : strStatement       = a string, SQL statement like DELETE
  28.    '     Return : True If there was no errors, False otherwise
  29.    ' GetID()
  30.    '     Desc   : get an auto-incremented value from the database
  31.    '     Pass   : nothing
  32.    '     Return : Unique ID... type set on the database
  34. Class DBCONNClass
  36.    ' for storing object reference
  37.    Private l_objConn
  39.    '
  40.    ' get current connection
  41.    Public Function Pop()
  42.       If IsObject(objStoreConn) Then
  43.          Set Pop = l_objConn
  44.       Else
  45.          Set Pop = Nothing
  46.       End If
  47.    End Function
  48.  
  49.    '
  50.    ' Connect to the database
  51.    Public Function Open(                                                     _
  52.                            l_strDBAbsFilePath                              , _
  53.                            l_strDBConnString                               , _
  54.                            l_strDBUser                                     , _
  55.                            l_strDBPassword                                 , _
  56.                            l_strDBOptions                                    _
  57.                         )
  58.      
  59.       ' local variables
  60.       Dim l_strOpenString
  61.       Dim l_strOpenUser
  62.       Dim l_strOpenPassword
  63.       Dim l_strOpenOptions
  64.       Dim l_boolError
  65.      
  66.       l_boolError = False
  67.      
  68.       ' Instantiate ADO COM Object
  69.       Set l_objConn = Server.Createobject("ADODB.Connection" )
  70.      
  71.       ' Check connection string parameter
  72.       If (VarType(l_strDBConnString) <> vbError) AND _
  73.          (l_strDBConnString <> "" ) Then
  74.          ' Set connection string using parameter
  75.          l_strOpenString = l_strDBConnString
  76.       Else
  77.          ' Error
  78.          l_boolError = True
  79.       End If
  80.       ' Check user parameter
  81.       If (VarType(l_strDBUser) <> vbError) Then
  82.          ' Set user using parameter
  83.          l_strOpenUser = l_strDBUser
  84.       Else
  85.          ' Error
  86.          l_boolError = True
  87.       End If
  88.       ' Check password parameter
  89.       If (VarType(l_strDBPassword) <> vbError) Then
  90.          ' Set password using parameter
  91.          l_strOpenPassword = l_strDBPassword
  92.       Else
  93.          ' Error
  94.          l_boolError = True
  95.       End If
  96.       ' Check options parameter
  97.       If (VarType(l_strDBUser) <> vbError) Then
  98.          ' Set options using parameter
  99.          l_strOpenOptions = l_strDBOptions
  100.       Else
  101.          ' Error
  102.          l_boolError = True
  103.       End If
  104.       ' Open Connection to database
  105.       If (l_strOptions <> "" )      AND _
  106.          (l_strOpenUser <> "" )     AND _
  107.          (l_strOpenPassword <> "" ) Then
  108.        
  109.          l_objConn.Open l_strOpenString     , _
  110.                         l_strOpenUser       , _
  111.                         l_strOpenPassword   , _
  112.                         l_strOpenOptions
  113.       ElseIf (l_strOpenUser <> "" )     AND _
  114.              (l_strOpenPassword <> "" ) Then
  115.        
  116.          l_objConn.Open l_strOpenString     , _
  117.                         l_strOpenUser       , _
  118.                         l_strOpenPassword
  119.       ElseIf (l_strOpenOptions <> "" ) Then
  120.        
  121.          l_objConn.Open l_strOpenString     , _
  122.                         l_strOpenOptions
  123.       Else
  124.          l_objConn.Open l_strOpenString
  125.       End If
  126.       ' Begin an ADO MTS transaction
  127.       l_objConn.BeginTrans
  128.       ' check for errors
  129.       If l_boolError Then
  130.          Set Open = Nothing
  131.       Else
  132.          ' Returns Opened connection object
  133.          Set Open = l_objConn
  134.       End If
  135.    End Function
  137.    '
  138.    ' Close connection to database
  139.    Public Function Close()
  140.       Dim l_boolError
  141.       l_boolError = False
  142.       ' Check for errors
  143.       If l_objConn.Errors.Count = 0 Then
  144.          ' Commit transaction If there are no errors
  145.          l_objConn.CommitTrans
  146.       Else
  147.          ' Display errors
  148.          Response.Write(l_objConn.Errors.Count & " error(s) : <br>" )
  149.          For i = 0 To (l_objConn.Errors.Count-1)
  150.             Response.Write("<a>Error " & i+1 & " )</a>" )
  151.             Response.Write("<ul>" )
  152.              Response.Write("<li>Description : " )
  153.             Response.Write(l_objConn.Errors(i).Description)
  154.             Response.Write("<li>HelpContext : " )
  155.             Response.Write(l_objConn.Errors(i).HelpContext)
  156.             Response.Write("<li>HelpFile : " )
  157.             Response.Write(l_objConn.Errors(i).HelpFile)
  158.             Response.Write("<li>NativeError : " )
  159.             Response.Write(l_objConn.Errors(i).NativeError)
  160.             Response.Write("<li>Number : " )
  161.             Response.Write(l_objConn.Errors(i).Number)
  162.             Response.Write("<li>Source : " )
  163.             Response.Write(l_objConn.Errors(i).Source)
  164.             Response.Write("<li>SQLState : " )
  165.             Response.Write(l_objConn.Errors(i).SQLState)
  166.             Response.Write("</ul>" )
  167.          Next
  168.          ' Rollback transaction If there are errors
  169.          l_objConn.RollbackTrans
  170.          l_boolError = True
  171.       End If
  172.       ' Free memory
  173.       Set l_objConn = Nothing
  174.       ' check for errors
  175.       If l_boolError Then
  176.          Close = False
  177.       Else
  178.          Close = True
  179.       End If
  180.    End Function
  182.    '
  183.    ' Execute using current connection AND return a recordset
  184.    Public Function ExecuteRS(strStatement)
  185.       If VarType(strStatement) <> vbError                                AND _
  186.          strStatement <> ""                                              AND _
  187.          IsObject(l_objConn)                                             Then
  188.          ' execute adCmdText
  189.          Set ExecuteRS = l_objConn.Execute(strStatement, ,1)
  190.       Else
  191.          Set ExecuteRS = Nothing
  192.       End If
  193.    End Function
  195.    '
  196.    ' Execute using current connection AND don't return a recordset
  197.    Public Function ExecuteNORS(strStatement)
  198.       If VarType(strStatement) <> vbError                                AND _
  199.          strStatement <> ""                                              AND _
  200.          IsObject(l_objConn)                                             Then
  201.          ' execute adCmdText + adExecuteAsync
  202.          l_objConn.Execute strStatement, , 129
  203.       End If
  204.       If l_objConn.Errors.Count = 0 Then
  205.          ExecuteNORS = True
  206.       Else
  207.          ExecuteNORS = False
  208.       End If
  209.    End Function
  211.    '
  212.    ' Get unique ID of a freshly inserted recordset
  213.    ' DO NOT WORK WITH REPLICATION ID (GUID)
  214.    Public Function GetID()
  215.       l_strSQL = "SELECT @@Identity"
  216.       Set l_objRS = Server.CreateObject("ADODB.Recordset" )
  217.       l_objRS.Open l_strSQL, l_objConn, 0, 1, 1 'forward only, readonly, cmd
  218.       If Not(l_objRS.BOF AND l_objRS.EOF) Then
  219.          varID = l_objRS(0).Value
  220.       Else
  221.          varID = ""
  222.       End If
  223.       l_objRS.Close
  224.       If varID <> "" Then
  225.          GetID = varID
  226.       Else
  227.          GetID = False
  228.       End If
  229.    End Function
  231. End Class
  233. %>


Message édité par Requin le 09-10-2003 à 14:56:54
Reply

Marsh Posté le 09-10-2003 à 14:59:09    

oulala ! ils ont pas pensés a faire plus simple ? me dit pas quil faut etre programmeur pour mettre en ligne une chtite base de données avec qq pages dynamiques chez multimania ? :(
 
 
bon, jy retourne...

Reply

Marsh Posté le 09-10-2003 à 15:07:31    

Faut savoir ce que tu veux faire...
 
Chez multimania ??? Tu es sûr qu'un hébergeur gratuit te fournit ce dont tu as besoin en ASP ? Cela m'étonnerait bcp !
 
Ca c'est mon code justement pour me simplifier la vie ;)
 
Après c'est open() -> executers() ou executenors() -> close() et le reste c'est de la présentation.
 
Sinon l'outils de publication Web intégré à Access devrait permettre de faire le nécessaire et générer le code en question, mais comme je te l'ai djà dit je ne'ai pas testé cette méthode.

Reply

Marsh Posté le 09-10-2003 à 15:17:38    

Mais comment font ils alors les "petits" sites avec un moteur de recherche ? ou meme un livre d'or, çà va bien vers une BDD ?

Reply

Marsh Posté le 09-10-2003 à 15:26:53    

Apache / PHP / MySQL c'est bien plus abordable comme solution et il existe de nombreux codes sources libres et disponibles. Celà n'empêche pas de programmer un petit peu. Pour l'hébergement certains proposent du gratuit (free par exemple propose le support PHP), mais ils sont généralement pas très performants (pour ne pas dire lents) et nombres de personnes prennent un hébergement payant OVH, Infomaniak, etc pour avoir la rapidité d'exécution.
 
Pour utiliser IIS / ASP / Access il faudrait en théorie :
- licence Windows Server 2000 ou 2003 Edition Internet
- licence Office Edition Développeur (ou les MSDNs)
Ce qui met la barre assez loin pour de petits sites.


Message édité par Requin le 09-10-2003 à 15:28:22
Reply

Marsh Posté le 09-10-2003 à 15:39:12    

ben écoute je te remercie pour toutes ces précisions.
 
jil va m'entendre celui qui m'a dit de mettre tout çà sur access en tous cas ;)

Reply

Marsh Posté le 09-10-2003 à 17:05:01    

Bah tu peux exporter depuis access en fichier CSV tes tables et importer les données sur la base MySQL de l'hébergeur, ca ne pose pas trop de soucis...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed