Problème avec ADODB.Recordset

**Edouard Kaiser** · 09/08/2005, 14h54

Bonjour à tous !
Je suis nouveau dans le développement ASP, et j'ai scrupuleusement suivi la FAQ et les tutoriaux pour me connecter à une bdd et récupérer les résultats d'une requète SQL mais sans résultat

Alors je m'explique.
Je possède une base sous SQL Server 2000 avec une base se nommant TEST et dedans une table INTERVENANT.
La table INTERVENANT possède deux champs :
Un entier --> INT_ID
Varchar --> INT_NOM

Le problème est quand je souhaite effectuer une requète pour récupérer le nombre de champs, ma page se "fige" si je puis dire.
Voila mon code :

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
 
set objConnect = Server.CreateObject("ADODB.Connection")
connstring = "driver={SQL Server};server=localhost;database=TEST"
objConnect.Open connstring
 
requete = "SELECT COUNT(*) FROM INTERVENANT;"
 
'Exécution de la requête
set objRecordsetSerrver.CreateObject("ADODB.Recordset")
objRecordset.Open requete, objConnect
 
... traitement mais de toute façon ça bloque avant ...
 
Set objRecordset=nothing
Set objConnect=nothing

Quelque chose vous semble faux ? Je ne comprends pas pourquoi la page se bloque à objRecordset.Open requete, objConnect alors que la connextion au serveur semble bien se faire.

**bourvil** · 09/08/2005, 14h57

qu'entend tu par ma page se bloque?
as tu une erreur si oui laquelle?

**Edouard Kaiser** · 09/08/2005, 15h09

Non aucune erreur affiché par IIS, je dis qu'elle se bloque, parce que l'HTML qui se trouve aprés cette partie de code ASP ne s'affiche pas, alors j'en déduit que l'interprétation de la page se bloque dans mon code ASP.

**bourvil** · 09/08/2005, 15h11

alors le probleme viens peut etre de ton code html!
fait voir!
a tu definis ds ton browser qu'il te montre les erreurs lorsqu'il y en a?

**pc75** · 09/08/2005, 15h11

Bonjour,

Ce ne serait pas cette ligne qui pose problème ?

Code :

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

1
2
 
set objRecordsetSerrver.CreateObject("ADODB.Recordset")

au lieu de :

Code :

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

1
2
 
set objRecordset = Serrver.CreateObject("ADODB.Recordset")

Le signe égal

**Edouard Kaiser** · 09/08/2005, 15h27

Non, c' est juste que j'avais mal copié le code.
Pour le code HTML, je ne pense pas que ça vienne de la, c'est trés simple comme code :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
<html>
<body text="#000000" vlink="#551a8b" alink="#ff0000" link="#0000cc" bgcolor="#ffffff">
<head>
    <title>Test</title>
</head>
<td width="53%">
<font size="-1">
<select name="Liste_Auteur_Moral">
<%
dim objConnect
dim objRecordset
 
set objConnect = Server.CreateObject("ADODB.Connection")
connstring = "driver={SQL Server};server=localhost;database=TEST"
objConnect.Open connstring
 
' Liste de tout les auteur moral
requete = "SELECT COUNT(*) FROM INTERVENANT;"
 
' Exécution de la requête
set objRecordset = Server.CreateObject("ADODB.Recordset")
objRecordset.Open requete, objConnect
 
' Affichage de la liste
Response.Write("<option value='0'>objRecordset(1)</option>")
 
Set objRecordset=nothing
Set objConnect=nothing
%>
<option value="1">Test</option>	
</select>
</font>
</body>
</html>

Je devrais quand meme avoir dans mon menu déroulant la valeur "Test" mais la il est vide...

**bourvil** · 09/08/2005, 15h37

si tu veux avoir le nombre de champs pourquoi tu utilise select Box?[/code]

**Edouard Kaiser** · 09/08/2005, 15h38

C'est juste pour me familiariser et générer dynamiquement des list box, peu importe le pourquoi. J'aimerai que cela fonctionne, mais il y a quelque chose qui m'a échappé il semblerait

**bourvil** · 09/08/2005, 15h45

moi perso je separs le asp du html:

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
 
<% 
dim objConnect 
dim objRecordset 
 
set objConnect = Server.CreateObject("ADODB.Connection") 
connstring = "driver={SQL Server};server=localhost;database=TEST" 
objConnect.Open connstring 
 
' Liste de tout les auteur moral 
requete = "SELECT INT_NOM,INT_ID FROM INTERVENANT;" 
 
' Exécution de la requête 
set objRecordset = Server.CreateObject("ADODB.Recordset") 
objRecordset.Open requete, objConnect 
 
%> 
 
<html> 
<body text="#000000" vlink="#551a8b" alink="#ff0000" link="#0000cc" bgcolor="#ffffff"> 
<head> 
    <title>Test</title> 
</head> 
<td width="53%"> 
<font size="-1"> 
<select name="Liste_Auteur_Moral">
  <option value="0">Test</option>    
<% do until objRecordset.eof
Response.Write("<option value=objRecordset("INT_ID")>
objRecordset("INT_NOM")</option>") 
LOOP%>
 
</select> 
</font> 
</body> 
</html>

**Edouard Kaiser** · 09/08/2005, 15h52

On avance ! Merci !
Séparer le code semble fonctionner , en tous ça me renvoit une erreur parlante !

Code :

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

1
2
3
4
5
6
 
Microsoft OLE DB Provider for ODBC Drivers erreur '80040e09'
 
[Microsoft][ODBC SQL Server Driver][SQL Server]Autorisation SELECT refusée sur l'objet 'INTERVENANT', base de données 'TEST', propriétaire 'dbo'.
 
/Reference_Search.asp, ligne 14

Pourtant j'ai donné tout les droits à l'utilisateur, bizarre.

**bourvil** · 09/08/2005, 15h56

voila au moins une piste!
a tu definis des password a ta bas sql?
regarde ds la faq c

bien explique

**amar00** · 09/08/2005, 16h07

il me semble que dans ton cas il faut spécifier quelques paramètres supplémentaires avec une chaine de connexion dans ce style

Code :

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

1
2
3
4
5
6
 
ConnString =  "Provider=SQLOLEDB.1;" _
					&		"server=monserver;" _
					&		"uid=nomUtilisateur;" _
					&		"pwd=MonMotDePasse;" _
					&		"database=leNomDeMaBase"

**Edouard Kaiser** · 09/08/2005, 17h43

Non en fait, si ne je précise pas d'utilisateur, il choisit celui par defaut associé à la consultation du site web dans IIS.
J'ai simplement ajouté ce compte Windows dans SQL Server et je lui ai donné les droits d'acces.
Mais maintenant j'ai une autre erreur :

Code :

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

1
2
3
4
5
6
7
8
 
Objet Response erreur 'ASP 0251 : 80004005'
 
Limite du tampon de réponse dépassée
 
/Reference_Search.asp, ligne 0
 
L'exécution de la page ASP a provoqué un dépassement de la taille limite configurée de la mémoire tampon de réponse.