Discussion :

[simoryl]

Salut,
Voilà, je voudrais faire de la bdd access avec asp et j'ai un probleme, ce script me fais tout le temps une erreur 500 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
  dim objConnect
  dim objRecordset
  'ma base se nomme pro.mdb et la table se nomme pro aussi
  set objConnect = Server.CreateObject("ADODB.Connection")
  objConnect.Open "pro"
  set objRecordset = Server.CreateObject("ADODB.Recordset")
  objRecordset.Open "SELECT * FROM pro;", objConnect
 
  Do While not objRecordset.eof
      Response.Write(objRecordset("NomSite"))
      Response.Write("<BR>")
 
      objRecordset.MoveNext
  loop
 
  set objRecordset=nothing
  set objConnect=nothing

Je vois pas où est le problème...
Par ailleurs, comment un asp peut faire pour atteindre une base qui est dans un sous repertoire? Et aussi en passant comment faire pour avoir des erreurs plus explicite que "500 Internal Server Error"?
Merci beaucoup par avance!
Simo'

[tesla]

Comment declares tu ton DSN ?

[simoryl]

Euh, excuse moi mais je ne vois pas trop le rapport entre le DNS et mon scripting :
Simo'

[franculo_caoulene]

Salut,

Dans IE outils/options internet... onglet "avancé" dans la rubrique navigation décoche "Afficher des messages d'erreur HTTP simplifiés"
Tu n'auras plus d'erreur 500 mais des erreurs plus explicites qui t'aideront à débugger.

[simoryl]

Ok, je te remercie beucoup!
Maintenant il me met "Le serveur Web n'est pas en mesure de traiter la requête. Veuillez réessayer ultérieurement."
Et j'ai modifié mon script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
  dim objConnect
  dim objRecordset
 
  set objConnect = Server.CreateObject("ADODB.Connection")
  objConnect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("pro.mdb")
  objConnect.Open "DSN=pro"
  set objRecordset = Server.CreateObject("ADODB.Recordset")
  objRecordset.Open "SELECT * FROM pro;", objConnect

J'avoux être un peu perdu...

[franculo_caoulene]

Ligne qui plante?
C'est une erreur personnalisée ça non?
Si c'est le cas tes prédecesseurs ont peut-être fait un fichier qui log les messages d'erreurs.
Jamais vu ce message personnellement.

[simoryl]

Je ne sais pas du tout, je rien comme info par rapport à l'héberge.
J'ai commenté en remontant les lignes une par une et il semble que ce soit celle-ci qui bloque :
objConnect.Open "DSN=pro"
Mais là, j'suis largué. En plus je trouve plein de méthode pour se connecter à une mdb mais aucune marche
Aspirine coming soon...

[franculo_caoulene]

Ton hébergeur t'as créé une DSN?

[simoryl]

Euh c'est quoi et ça sert à quoi? Comment je peux savoir que j'en ai une?

[franculo_caoulene]

OK vires la ligne : objConnect.Open "DSN=pro"
et essaye de faire ta chaîne de connexion comme dans l'exemple

[simoryl]

Nan, marche pas...
Je vais essayer d'incendier l'hébergeur...

[simoryl]

Il m'a créé un DSN nommé pro1 mais ça change rien, peut importe comment je fais, je suis largué total...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
  dim objConnect 
  dim objRecordset 
  'ma base se nomme pro.mdb et la table se nomme pro aussi 
  'et le DSN pro1
  set objConnect = Server.CreateObject("ADODB.Connection")
 
  objConnect.Open "pro1"
  set objRecordset = Server.CreateObject("ADODB.Recordset") 
  objRecordset.Open "SELECT * FROM pro;", objConnect 
 
  Do While not objRecordset.eof
      Response.Write(objRecordset("NomSite"))
      Response.Write("<BR>")
 
      objRecordset.MoveNext
  loop
 
  set objRecordset=nothing 
  set objConnect=nothing

Au secours...

[franculo_caoulene]

Avec ce genre de message on va pas aller loin... symptomes?

[Immobilis]

Voilà en anglais, désolé, la syntaxe de connexion que j'utilise tout le temps et qui ne m'a jamais fait défaut:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
'Connects to the Access driver and Access database in the Inetpub directory where the database is saved
strProvider = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb") & ";"
 
'Creates an instance of an Active Server component
set objConn = server.createobject("ADODB.Connection")
 
'Opens the connection to the data store
objConn.Open strProvider
 
'Instantiate Command object and use ActiveConnection property to attach connection to Command object
set cm = Server.CreateObject("ADODB.Command")
cm.ActiveConnection = objConn
 
'Instantiate a Recordset object and open a recordset using the Open method
Set rstQuery = Server.CreateObject("ADODB.recordset")

Remplace "db.mdb" par le nom de ta base se trouvant dans le même repertoire que ta page. Au besoin tu peux l'ecrire en dur (c:\...\tabase.mdb), mais c'est plus difficile qd c'est chez un hebergeur...