Help me please ! ( vraiment besoin d'aide !) ( asp )

Signaler
Messages postés
5
Date d'inscription
vendredi 16 septembre 2011
Statut
Membre
Dernière intervention
9 juillet 2003
-
Messages postés
1251
Date d'inscription
mercredi 7 août 2002
Statut
Modérateur
Dernière intervention
10 avril 2013
-
ZapGat

Bonjour a vous, voila j'ai un petit souci. Novice dans le domaine de l'asp, j'aurais besoin d'etablir une connexion sur un serveur sql pour remonter la liste des personnes présentent a l'instant T dans l'entreprise ou je travaille !

Je n'arrive pas a faire ca correctement, ci joint le debut du code, avec le select. Mon adresse mail du travail : f.gatti@ars-industries.fr . Merci a tous ceux qui voudront bien m'aider, et, allez, aux autres aussi :-)

----------------------------------------------------------------------

<HTML>
<HEAD>
<META HTTP-EQUIV= "Content-Type" CONTENT="text/html;charset=windows-1252">
<TITLE>Pres</TITLE>
</HEAD>

<%
Application("cstId") = 999
Application("TypeTerm") = 8
%>
<%
sLocalClient = "XXX"
sServeur = "serveur"
sUid = "login"
sPwd = "mdp"
sOSAbase = "nom_de_base"
sChaineConnect = "Driver={SQL Server};Server=" & sServeur & ";Uid=" & sUid & ";Pwd=" & sPwd & ";Database=" & sOSAbase
Set cnx = Server.CreateObject("ADODB.Connection")
cnx.Open "SELECT PERS.NOM_PRENOM AS Nom, HISTO.MATRICULE AS Matricule FROM HISTO INNER JOIN PERS ON HISTO.MATRICULE = PERS.MATRICULE WHERE (((HISTO.DATE) Like Date()) AND ((HISTO.H_DEBUT)<>'.00') AND ((HISTO.FLAG_DEB)<>'OKM') AND ((HISTO.H_FIN)='.00')) ", sChaineConnect , 1 , 1

%>
<CAPTION> Liste des personnes présentent dans l'entreprise </CAPTION>
----

Nom |
Matricule |

----

<%
%>

<% =cnx("Nom")%>,

<%=cnx("Nom")%>,
<%
%>

</HTML>

--------------------------------------------------------------------

Voili !

Merci d'avance !

6 réponses

Messages postés
1251
Date d'inscription
mercredi 7 août 2002
Statut
Modérateur
Dernière intervention
10 avril 2013

Essaie ceci, j'ai pas testé mais c'est un truc dans le genre

> <HTML>
> <HEAD>
> <META HTTP-EQUIV= "Content-Type" CONTENT="text/html;charset=windows-1252">
> <TITLE>Pres</TITLE>
> </HEAD>
>
> <%
> Application("cstId") = 999
> Application("TypeTerm") = 8
> %>
> <%
> sLocalClient = "XXX"
> sServeur = "serveur"
> sUid = "login"
> sPwd = "mdp"
> sOSAbase = "nom_de_base"
> sChaineConnect = "Driver={SQL Server};Server=" & sServeur & ";Uid=" & sUid & ";Pwd=" & sPwd & ";Database=" & sOSAbase
> Set cnx = Server.CreateObject("ADODB.Connection")
> cnx.Open sChaineConnect Sql "SELECT PERS.NOM_PRENOM AS Nom, HISTO.MATRICULE AS Matricule FROM HISTO INNER JOIN PERS ON HISTO.MATRICULE PERS.MATRICULE WHERE (((HISTO.DATE) Like Date()) AND ((HISTO.H_DEBUT)<>'.00') AND ((HISTO.FLAG_DEB)<>'OKM') AND ((HISTO.H_FIN)='.00')) "

Set adoPrimaryRS = Server.CreateObject("ADODB.Recordset")
adoPrimaryRS.Open , cnx , 1 , 1
>
> %>
> <CAPTION> Liste des personnes présentent dans l'entreprise </CAPTION>
> ----

> Nom |
> Matricule |
>
> ----

> <%while not adoPrimaryRS.Eof
> %>
>
<% =adoPrimaryRS("Nom")%>,
>
<%= adoPrimaryRS("Matricule")%>,
> <%adoPrimaryRS.MoveNext
Wend
> %>
>
>

>
> </HTML>

Nickadele
Messages postés
1251
Date d'inscription
mercredi 7 août 2002
Statut
Modérateur
Dernière intervention
10 avril 2013

Oups, petite faute ;o)

adoPrimaryRS.Open Sql, cnx , 1 , 1

Nickadele
Messages postés
5
Date d'inscription
vendredi 16 septembre 2011
Statut
Membre
Dernière intervention
9 juillet 2003

ah super sylmpa a toi , je vais tester ca immediatement
ZapGat
Messages postés
5
Date d'inscription
vendredi 16 septembre 2011
Statut
Membre
Dernière intervention
9 juillet 2003

pas de prob , je corrige tout de suite !

encore merci , teste ca ce matin, te tiens au courant !
ZapGat
Messages postés
5
Date d'inscription
vendredi 16 septembre 2011
Statut
Membre
Dernière intervention
9 juillet 2003

snif, message d'erreur :

Microsoft OLE DB Provider for ODBC Drivers erreur '80040e21'

Ce pilote ODBC ne prend pas en charge les propriétés demandées.

/intranet/presence/tes.asp, ligne 25

ligne0
<HTML>
<HEAD>
<META HTTP-EQUIV= "Content-Type" CONTENT="text/html;charset=windows-1252">
<TITLE>Pres</TITLE>
</HEAD>

<%
Application("cstId") = 999
Application("TypeTerm") = 8
%>
<%
sLocalClient = "XXX"
sServeur = "ars"
sUid = "bert"
sPwd = ""
sOSAbase = "ESA"
sChaineConnect = "Driver={SQL Server};Server=" & sServeur & ";Uid=" & sUid & ";Pwd=" & sPwd & ";Database=" & sOSAbase
Set cnx = Server.CreateObject("ADODB.Connection")
cnx.Open sChaineConnect Sql "SELECT PERS.NOM_PRENOM AS Nom, HISTO.MATRICULE AS Matricule FROM HISTO INNER JOIN PERS ON HISTO.MATRICULE PERS.MATRICULE WHERE (((HISTO.DATE) Like

Date()) AND ((HISTO.H_DEBUT)<>'.00') AND ((HISTO.FLAG_DEB)<>'OKM') AND ((HISTO.H_FIN)='.00')) "

ligne 25 : Set adoPrimaryRS = Server.CreateObject("ADODB.Recordset")
adoPrimaryRS.Open Sql, cnx , 1 , 1

%>
<CAPTION> Liste des personnes présentent dans l'entreprise </CAPTION>
----

Nom |
Matricule |

----

<%while not adoPrimaryRS.Eof
%>

<% =adoPrimaryRS("Nom")%>,

<%=adoPrimaryRS("Matricule")%>,
<%adoPrimaryRS.MoveNext
Wend
%>

</HTML>

ZapGat
Messages postés
1251
Date d'inscription
mercredi 7 août 2002
Statut
Modérateur
Dernière intervention
10 avril 2013

en fait il s'agit de cette ligne :
adoPrimaryRS.Open Sql, cnx , 1 , 1

Faut que tu regardes les propriétés de la méthode Open
ce sont les parametres 1, 1 qui pause problème

Nickadele