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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Base de données Access et pages web dynamiques, j'y arrive pas !

slanngolf

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

Publicité

Requin

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

slanngolf

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

Requin

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 :

Set objDB = New DBCONNClass
Set objConn = objDB.Open(cfgDBAbsFilePath, cfgDBString, "", "", "" )

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

Code :

' database
cfgDBPath = "../database/"
cfgDBFile = "database.mdb"
cfgDBRelFilePath = cfgDBPath & cfgDBFile
cfgDBAbsFilePath = Server.Mappath(cfgDBRelFilePath)
cfgDBString = "Provider=Microsoft.Jet.OLEDB.4.0;" &_
"Data Source= " & cfgDBAbsFilePath & ";"

Voici la classe pour gérer mes connexions :

Code :

<%
' /// Manual ///
' Pop()
' Desc : get current connection
' Pass : nothing
' Return : an ADODB.Connection object; If there is no connection set,
' return "Nothing"
' Open(l_strDBAbsFilePath, l_strDBConnString, l_strDBUser, _
' l_strDBPassword, l_strDBOptions)
' Desc : open a connection to a database using a DSN less method
' Pass : l_strDBAbsFilePath = a string, absolute file path to DB
' l_strDBConnString = a string, provider...
' l_strDBUser = a sring, user (may be an empty string)
' l_strDBPassword = a string, password (empty str)
' l_strDBOptions = a string, options (empty str)
' Return : current connection object, OR "Nothing"
' Close()
' Desc : close connection to database
' Pass : nothing
' Return : a boolean, True If transaction was sucessfull
' ExecuteRS(strStatement)
' Desc : execute a statement AND return a recordset
' Pass : strStatement = a string, SQL statement like SELECT
' Return : an ADODB.RecordSet object OR nothing If failed
' ExecuteNORS(strStatement)
' Desc : execute a statement AND don't return a recordset
' Pass : strStatement = a string, SQL statement like DELETE
' Return : True If there was no errors, False otherwise
' GetID()
' Desc : get an auto-incremented value from the database
' Pass : nothing
' Return : Unique ID... type set on the database
Class DBCONNClass
' for storing object reference
Private l_objConn
'
' get current connection
Public Function Pop()
If IsObject(objStoreConn) Then
Set Pop = l_objConn
Else
Set Pop = Nothing
End If
End Function
'
' Connect to the database
Public Function Open( _
l_strDBAbsFilePath , _
l_strDBConnString , _
l_strDBUser , _
l_strDBPassword , _
l_strDBOptions _
)
' local variables
Dim l_strOpenString
Dim l_strOpenUser
Dim l_strOpenPassword
Dim l_strOpenOptions
Dim l_boolError
l_boolError = False
' Instantiate ADO COM Object
Set l_objConn = Server.Createobject("ADODB.Connection" )
' Check connection string parameter
If (VarType(l_strDBConnString) <> vbError) AND _
(l_strDBConnString <> "" ) Then
' Set connection string using parameter
l_strOpenString = l_strDBConnString
Else
' Error
l_boolError = True
End If
' Check user parameter
If (VarType(l_strDBUser) <> vbError) Then
' Set user using parameter
l_strOpenUser = l_strDBUser
Else
' Error
l_boolError = True
End If
' Check password parameter
If (VarType(l_strDBPassword) <> vbError) Then
' Set password using parameter
l_strOpenPassword = l_strDBPassword
Else
' Error
l_boolError = True
End If
' Check options parameter
If (VarType(l_strDBUser) <> vbError) Then
' Set options using parameter
l_strOpenOptions = l_strDBOptions
Else
' Error
l_boolError = True
End If
' Open Connection to database
If (l_strOptions <> "" ) AND _
(l_strOpenUser <> "" ) AND _
(l_strOpenPassword <> "" ) Then
l_objConn.Open l_strOpenString , _
l_strOpenUser , _
l_strOpenPassword , _
l_strOpenOptions
ElseIf (l_strOpenUser <> "" ) AND _
(l_strOpenPassword <> "" ) Then
l_objConn.Open l_strOpenString , _
l_strOpenUser , _
l_strOpenPassword
ElseIf (l_strOpenOptions <> "" ) Then
l_objConn.Open l_strOpenString , _
l_strOpenOptions
Else
l_objConn.Open l_strOpenString
End If
' Begin an ADO MTS transaction
l_objConn.BeginTrans
' check for errors
If l_boolError Then
Set Open = Nothing
Else
' Returns Opened connection object
Set Open = l_objConn
End If
End Function
'
' Close connection to database
Public Function Close()
Dim l_boolError
l_boolError = False
' Check for errors
If l_objConn.Errors.Count = 0 Then
' Commit transaction If there are no errors
l_objConn.CommitTrans
Else
' Display errors
Response.Write(l_objConn.Errors.Count & " error(s) : <br>" )
For i = 0 To (l_objConn.Errors.Count-1)
Response.Write("<a>Error " & i+1 & " )</a>" )
Response.Write("<ul>" )
Response.Write("<li>Description : " )
Response.Write(l_objConn.Errors(i).Description)
Response.Write("<li>HelpContext : " )
Response.Write(l_objConn.Errors(i).HelpContext)
Response.Write("<li>HelpFile : " )
Response.Write(l_objConn.Errors(i).HelpFile)
Response.Write("<li>NativeError : " )
Response.Write(l_objConn.Errors(i).NativeError)
Response.Write("<li>Number : " )
Response.Write(l_objConn.Errors(i).Number)
Response.Write("<li>Source : " )
Response.Write(l_objConn.Errors(i).Source)
Response.Write("<li>SQLState : " )
Response.Write(l_objConn.Errors(i).SQLState)
Response.Write("</ul>" )
Next
' Rollback transaction If there are errors
l_objConn.RollbackTrans
l_boolError = True
End If
' Free memory
Set l_objConn = Nothing
' check for errors
If l_boolError Then
Close = False
Else
Close = True
End If
End Function
'
' Execute using current connection AND return a recordset
Public Function ExecuteRS(strStatement)
If VarType(strStatement) <> vbError AND _
strStatement <> "" AND _
IsObject(l_objConn) Then
' execute adCmdText
Set ExecuteRS = l_objConn.Execute(strStatement, ,1)
Else
Set ExecuteRS = Nothing
End If
End Function
'
' Execute using current connection AND don't return a recordset
Public Function ExecuteNORS(strStatement)
If VarType(strStatement) <> vbError AND _
strStatement <> "" AND _
IsObject(l_objConn) Then
' execute adCmdText + adExecuteAsync
l_objConn.Execute strStatement, , 129
End If
If l_objConn.Errors.Count = 0 Then
ExecuteNORS = True
Else
ExecuteNORS = False
End If
End Function
'
' Get unique ID of a freshly inserted recordset
' DO NOT WORK WITH REPLICATION ID (GUID)
Public Function GetID()
l_strSQL = "SELECT @@Identity"
Set l_objRS = Server.CreateObject("ADODB.Recordset" )
l_objRS.Open l_strSQL, l_objConn, 0, 1, 1 'forward only, readonly, cmd
If Not(l_objRS.BOF AND l_objRS.EOF) Then
varID = l_objRS(0).Value
Else
varID = ""
End If
l_objRS.Close
If varID <> "" Then
GetID = varID
Else
GetID = False
End If
End Function
End Class
%>

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

slanngolf

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...

Requin

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.

slanngolf

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

Requin

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

slanngolf

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

Requin

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...

FORUM HardWare.fr

Windows & Software

Win NT/2K/XP

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

Sujets relatifs
Soft pour retrouver des données cachées en NTFS	codes erreurs données par partition magic8
Pb de session --> pertes de donnees	[arcserve]Impossible de se connecter a la base de donnée
les dossiers qu'on arrive pas à supprimer	surf impossible sur certaine pages avec FreeADSL
peut on interroger une base SAge avec de l'odbc?	Access vers oracle
J'arrive pas a me connecter au Wifi (802.11b)	dans la base de registre
Plus de sujets relatifs à : Base de données Access et pages web dynamiques, j'y arrive pas !

Page générée en 0.114 secondes