Tout d'abord salut à tous,
Voila g un petit problème de connexion, je voudrais me connecter à une BD SQL en utilisant l'authentification Windows avec utilisateur sur le domaine (pour l'instant dans mon script g mis une authentif en dur pour eviter de galerer).
Cette authentification permettra d'accéder à une vue différente selon les droits!
Mais pour l'instant mon navigateur m'affiche cette erreur:
Échec de la connexion de l'utilisateur '(null)'. Raison : Non associé à une connexion sécurisée SQL Server.
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.
Exception Details: System.Runtime.InteropServices.COMException: Échec de la connexion de l'utilisateur '(null)'. Raison : Non associé à une connexion sécurisée SQL Server.
Je vous dépose mon script pour que vous voyez un petit peu,g commentés pour que ce soit compréhensible...
Je prendrais en compte toutes les observations!
D'avance Merci
Dekico
SCRIPT:
<%@ Page Language="VB" AspCompat="true" %>
<%
'script de connection a la base de donnes Sage SQL
Dim cntBase 'instance de la classe connexion
Dim rstClients 'recordset: liste des clients
Dim rstInfosClients 'recordset: liste des infos sur le client slectionn
Dim strConnect 'contient la chaine de connexion la base de donnes
Dim strRequeteClients 'contient la requete SQL de selection des clients
Dim strRequeteInfosClients 'contient la requete SQL de selection des infos client
Dim strUsername As String = System.Security.Principal.WindowsIdentity.GetCurrent().Name
'contient l'accès à l'authentification WindowsNT avec récupération du nom de la session
'initialisation de la chaine de connexion
strConnect = " Provider=SQLOLEDB.1; Persist Security Info = False; User ID=***; pwd= ***;Initial Catalog=sts;Data Source=Gest; Network Library =dbmssocn; Trusted_Connection=yes"
'instanciation de l'objet connexion
cntBase = Server.CreateObject("ADODB.Connection")
'initialisation de la chane de connexion
cntBase.ConnectionString = strConnect
'ouverture de la connexion
cntBase.Open
'instanciation de l'objet recordset pour les clients
rstClients = Server.CreateObject("ADODB.Recordset")
'instanciation de l'objet recordset pour les infos client
rstInfosClients = Server.CreateObject("ADODB.Recordset")
'Pointage des recordset sur la connexion courante
rstClients.ActiveConnection = cntBase
rstInfosClients.ActiveConnection = cntBase
'initialisation de la chaine contenant la requete SQL
strRequeteClients = "select * from dbo.F_ARTClient"
'ouverture du recordset
rstClients.Open (strRequeteClients)
%>
<html>
<head>
<title>Essai Connexion la base SQL</title>
</head>
<body>
<form name="frmChoix" action="ListeClients.asp" method="POST">
<//formulaire avec liste déroulante//>
<select name="cboChoix">
<%
Do until rstClients.EOF
%>
<option value="<%=rstClients.Fields("ar_f")%>"><%=rstClients("ar_f")%></option>
<%
rstClients.MoveNext
Loop
%>
</select>
<input type="submit" value="Valider">
</form>
<%
if Request.Form("cboChoix")<>""Then
strRequeteInfosClients = "SELECT * from clients"
'ouverture du recordset
rstInfosClients.Open (strRequeteInfosClients)
Do until rstInfosClients.EOF
%>
<%=rstInfosClients.Fields("ct_mum")%>
<%
rstInfosClients.MoveNext
Loop
End if
%>
</body>
</html>
Cool d'être inscrit ;-)[/font=Comic Sans MS]