[WEB]Acceder aux données via internet

**Immobilis** · 21/05/2007, 15h35

Cool ça marche.
Maintenant tu remplaces

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
<%
strProvider = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\base\bd1.mdb;"
set objConn = server.createobject("ADODB.Connection")
objConn.Open strProvider
 
If ObjConn.State = 1 THEN
	response.Write("Connection opened<br>")
ELSE
	response.Write("Connection failed<br>")
END IF
%>

Par

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
 
<%
strProvider = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\base\bd1.mdb;"
Set rs = server.CreateObject("ADODB.recordset")
	rs.open "SELECT * FROM infos_personne", strProvider,1,1
		response.write "nb champs = " & rs.fields.count & "<br>" 
		response.Write("<table>"  & vbcrlf)
		for i= 0 to rs.fields.count-1 
			response.write ("<th>" & rs.fields(i).name & "&nbsp;</th>" & vbcrlf)
		next 
		while not rs.eof 
			response.Write("<tr>" & vbcrlf)
			for i= 0 to rs.fields.count-1 
				response.write ("<td>" & rs.fields(i).value & "&nbsp;</td>" & vbcrlf)
			next 
			response.Write("<tr>" & vbcrlf)
			rs.movenext 
		wend
		response.Write("</table>" & vbcrlf)
	rs.close
set rs = nothing
%>

A+

**nboubeur** · 21/05/2007, 17h40

page blanche

**Immobilis** · 21/05/2007, 17h42

Mets exactement le code de ta page stp

**pc75** · 22/05/2007, 08h10

Bonjour,

Je n'ai pas lu le début de cette discussion, mais ne serait-il pas judicieux de tester ça d'abord ?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
.......
rs.open "SELECT * FROM infos_personne", strProvider,1,1
if not rs.EOF then
.....
=> Boucle d'affichage
.....
else
=> Message
end if

**Immobilis** · 22/05/2007, 09h53

Salut PC75,

Merci de t'interesser au pb car je perd un peu mon latin.
Le code que j'ai passé fonctionne même pour un recordset vide.
L'inconvenient est que la page est blanche (aucun message d'erreur). Pourtant la connection à la base de données se fait bien (cf posts# 39 et 40).

A+

**nboubeur** · 22/05/2007, 10h11

voici le code actuellement en place qui me donne une page blanche sans erreur

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
<%@ LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1252">
<TITLE>Contacts</TITLE>
</HEAD>
<BODY>
<%
strProvider = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\base\bd1.mdb;"
Set rs = server.CreateObject("ADODB.recordset")
	rs.open "SELECT * FROM infos_personne", strProvider,1,1
		response.write "nb champs = " & rs.fields.count & "<br>" 
		response.Write("<table>"  & vbcrlf)
		for i= 0 to rs.fields.count-1 
			response.write ("<th>" & rs.fields(i).name & "&nbsp;</th>" & vbcrlf)
		next 
		while not rs.eof 
			response.Write("<tr>" & vbcrlf)
			for i= 0 to rs.fields.count-1 
				response.write ("<td>" & rs.fields(i).value & "&nbsp;</td>" & vbcrlf)
			next 
			response.Write("<tr>" & vbcrlf)
			rs.movenext 
		wend
		response.Write("</table>" & vbcrlf)
	rs.close
set rs = nothing
%>
</BODY>
</HTML>

**Immobilis** · 22/05/2007, 10h26

Quelle est le nom exact de la page (= nom + extension)?

**pc75** · 22/05/2007, 11h06

Envoyé par Immobilis

Salut PC75,

Merci de t'interesser au pb car je perd un peu mon latin.
Le code que j'ai passé fonctionne même pour un recordset vide.
L'inconvenient est que la page est blanche (aucun message d'erreur). Pourtant la connection à la base de données se fait bien (cf posts# 39 et 40).

A+

Il serait peut être intéressant de voir la base de données non ?

**nboubeur** · 22/05/2007, 16h53

Quelle est le nom exact de la page (= nom + extension)?

contacts.asp

et la base

c:\base\bd1.mdb

**pc75** · 22/05/2007, 17h05

Re,

Mets ta base en pièce jointe

**nboubeur** · 22/05/2007, 17h13

Mets ta base en pièce jointe

désolé mais ce n 'est pas possible . ( il y as deja des données dedans )

**Immobilis** · 22/05/2007, 17h31

Y a-t-il un mot de passe à ta base de données?

**nboubeur** · 22/05/2007, 17h54

non et elle fonctionne trés bien sur le serveur quand je l'utilise à partir de celui ci

**Immobilis** · 22/05/2007, 18h07

Tu utilises quel navigateur?

**nboubeur** · 22/05/2007, 18h31

internet explorer , mais je test la connection de plusieurs PC dans la sociétée ou je travail

**Immobilis** · 22/05/2007, 21h26

Pff..... Tu as bien une table qui s'appelle "infos_personne"?
Essaye ceci. Remplace la totalité du code (HTML et vbscript) de ta page "contact.asp" par:

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>
 
<body>
<%
strProvider = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\base\bd1.mdb;"
set objConn = server.createobject("ADODB.Connection")
objConn.Open strProvider
 
If ObjConn.State = 1 THEN
	response.Write("Connection opened<br>")
	Set rs = server.CreateObject("ADODB.recordset")
		rs.open "SELECT * FROM [infos_personne];", strProvider,1,1
		Select case rs.state
			case 0
				response.Write("Object is closed<br> ")
			case 2
				response.Write("Object is connecting<br> ")
			case 4
				response.Write("Object is executing<br>")
			case 8
				response.Write("Object is fetching<br> ")
			case 1
				response.Write("Object is open<br> ")
			case else
				response.Write("Object state is unknown<br> ")
		End select
		rs.close
		Select case rs.state
			case 0
				response.Write("Object is closed<br> ")
			case 2
				response.Write("Object is connecting<br> ")
			case 4
				response.Write("Object is executing<br>")
			case 8
				response.Write("Object is fetching<br> ")
			case 1
				response.Write("Object is open<br> ")
			case else
				response.Write("Object state is unknown<br> ")
		End select
	set rs = nothing
ELSE
	response.Write("Connection closed<br>")
END IF
objConn.close
If ObjConn.State = 1 THEN
	response.Write("Connection opened<br>")
ELSE
	response.Write("Connection closed<br>")
END IF
%>
</body>
</html>

et dis nous ce qui s'ecrit.
A+

**nboubeur** · 22/05/2007, 21h54

ma table s apelle CONTACTS donc ci je met ca ala place de infos_personne dans le code ca me donne

Connection opened
Object is open
Object is closed
Connection closed

sur la page que j ouvre a distance

**Immobilis** · 22/05/2007, 23h56

ma table s apelle CONTACTS donc ci je met ca ala place de infos_personne dans le code ca me donne

Ok, cool. Je comprend mieux maintenant...
Remplace la totalité du code (HTML et vbscript) de ta page "contact.asp" par:

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
<%@ LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1252">
<TITLE>Contacts</TITLE>
</HEAD>
<BODY>
<%
strProvider = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\base\bd1.mdb;"
Set rs = server.CreateObject("ADODB.recordset")
	rs.open "SELECT * FROM [CONTACT]", strProvider,1,1
		response.write "nb champs = " & rs.fields.count & "<br>" 
		response.Write("<table>"  & vbcrlf)
		for i= 0 to rs.fields.count-1 
			response.write ("<th>" & rs.fields(i).name & "&nbsp;</th>" & vbcrlf)
		next 
		while not rs.eof 
			response.Write("<tr>" & vbcrlf)
			for i= 0 to rs.fields.count-1 
				response.write ("<td>" & rs.fields(i).value & "&nbsp;</td>" & vbcrlf)
			next 
			response.Write("<tr>" & vbcrlf)
			rs.movenext 
		wend
		response.Write("</table>" & vbcrlf)
	rs.close
set rs = nothing
%>
</BODY>
</HTML>

A+

**nboubeur** · 23/05/2007, 00h18

hé bien bravo a toi , ca fonctionne ma page s affiche sans pb , maintenan il faut que je fasse apparaitre ma page sous forme de formulaire et que je puisse modifier ma bdd en ligne

mais en tt cas merci bcp a toi encore et a tt ceux qui on participé .

yeahh