Discussion :

[The Molo]

Bonjour,

Je débute en ASP et je suis en train de sècher sur une connexion à la base de données

Voici mon code:

Page default.asp :

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
 
<%@ Language=VBScript %>
 
<!--#include file="include/tools.inc"-->
<!--#include file="include/complaint_tools.inc"-->
 
<select name="langue">
<%
 
Dim rs, connDB 
 
CreateRecordset connDB, rs
 
DBExecuteRs rs, connDB, "select id_lang, libelle from langue order by 1"
while not rs.eof
 
	response.write("<option value=" & rs("id_lang") & " selected>" & rs("libelle") & "</option>")
 
	rs.movenext
wend
%>
</select>

Page tools.inc

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
 
Sub CreateRecordset(ByRef connDB, ByRef rs)
 
	Set connDB = Server.CreateObject("ADODB.Connection")
	connDB.Open strConn
 
	Set rs = Server.CreateObject("ADODB.Recordset")
	Set rs.ActiveConnection = connDB
 
End Sub
 
'----------------------------------------------------------------'
Sub CreateConnection(ByRef connDB)
 
	Set connDB = Server.CreateObject("ADODB.Connection")
	connDB.Open strConn
 
End Sub
 
'----------------------------------------------------------------'
 
Sub DBExecuteRs(ByRef rs, ByVal connDB, ByVal str)
 
	on error resume next
	set rs = connDB.execute(str)
	if err.number<>0 then
		Session("erreur") = err.description
		Response.Clear
		Response.Redirect "erreur.asp"
	end if
end sub

Page complaint_tools.inc

Code :

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

1
2
3
4
5
6
7
8
 
<%
 
dim strconn
 
strconn = "Provider=sqloledb;Data Source=phoenix;Initial Catalog=complaint;User Id=logcomplaint;Password=logcomplaint;"
 
%>

Page erreur.asp

Code :

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

1
2
3
4
5
6
7
8
9
 
<%@ Language=VBScript %>
 
<!--#include file="include/tools.inc"-->
<!--#include file="include/complaint_tools.inc"-->
 
<%
response.write("Une erreur est survenue dans l'application : " & Session("erreur"))
%>

Voila le message que je reçois lorsque je lance ma page default.asp :

Une erreur est survenue dans l'application : Objet requis

Il va donc dans ma page erreur.asp et sort "Objet requis".

Je ne comprends pas d'ou vient l'erreur,

Auriez vous une idée ?

Merci d'avance !!!

[The Molo]

Re !!

Je viens de tester mon code avec une base de données existante, ça marche...

Mon problème vient donc de la connexion.

Code :

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

1
2
3
4
5
<%
dim strconn
 
strconn = "Provider=sqloledb;Data Source=phoenix;Initial Catalog=complaint;User Id=logcomplaint;Password=logcomplaint;"
%>

Vu que je travaillais avec MySQl avant, je ne connais pas bien SQLServer.

Pourriez vous m'expliquer comment "configurer" ma BD pour que la ligne de code ci-dessus soit correcte ... ?

Merci beaucoup !

[kaiser59]

Salut,

Aide toi de cela : Connexion

[The Molo]

Nickel

MERCI !!!