Bonjour, j'aimerais récupérer ma chaine de connexion qui se trouve dans mon "web.config".
Pour que mon module s'adapte à toutes les machines.
merci d'avance.
Bonjour, j'aimerais récupérer ma chaine de connexion qui se trouve dans mon "web.config".
Pour que mon module s'adapte à toutes les machines.
merci d'avance.
Tu peux récupérer les valeurs de ton web.config par :
ConfigurationManager.AppSettings("TaClef").ToString
Où dans ton web.config, tu as :
<appSettings>
<add key="TaClef" value="xxxxxxx"/>
...
</appSettings>
Tu peux également utiliser une section <connectionStrings>, utilisable à l'aide de ConfigurationManager.ConnectionStrings.
Voila ma zone de code où je fais ma connexion ta ligne je dois la mettre a la place de tout ou seulement une partie ou...??
Dim conn As SqlClient.SqlConnection
conn = New SqlConnection
conn.ConnectionString = "Data Source=BILOU;Initial Catalog=ANSDNN;Integrated Security=True"
conn.Open()
merci
Si quelqu'un a une idée je suis preneur.
besoin d'aide merci.
Si dans ton web.config tu as ajouté la section suivante :
alors tu peux obtenir ta chaîne de connexion en faisant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 <connectionStrings> <add name="BILOU" connectionString="Data Source=BILOU;Initial Catalog=ANSDNN;Integrated Security=True"/> </connectionStrings>
Puis "redescendre" ta chaîne de connexion vers ta couche d'accès aux données afin de l'affecter à ton objet SqlConnection.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Dim connectionString As String = ConfigurationManager.ConnectionStrings.Item("BILOU").ConnectionString
oui mais cela reste toujours lié a mon ordinateur qui porte ce nom là "bilou" j'aimerais une connexion passe partout moi pour n'importe quel ordi.
J'avoue ne pas trop comprendre... Tu veux une chaîne de connexion qui fonctionnerait dans n'importe quelle circonstance ? Mais tu ne peux jamais savoir où est le serveur Sql, s'il est sur ton pc ou sur un autre serveur, quel est le nom de l'instance Sql, etc...
Mon code de connexion est celui-ci
Dim conn As SqlClient.SqlConnection
conn = New SqlConnection
conn.ConnectionString = "Data Source=BILOU;Initial Catalog=ANSDNN;Integrated Security=True"
conn.Open()
''essai
Dim recuperationcom As String
recuperationcom = Me.TbCommerce.Text
Me.Label1.Text = recuperationcom
Me.TbCommerce.Text = ""
If recuperationcom = "" Then
'message si le text box est vide...
Else
Dim vReq As String = "SELECT ADRESSE,ACTIVITE,Latitude,Longitude FROM ESSAI2 WHERE UPPER(NOM) LIKE UPPER('" & recuperationcom & "%');"
Dim comm As SqlCommand
comm = New SqlCommand
comm.Connection = conn
comm.CommandText = vReq
Si je remplace ma chaine de connexion par ce que tu m'as dis
Dim conn As String = ConfigurationManager.ConnectionStrings.Item("BILOU").ConnectionString
Dim recuperationcom As String
recuperationcom = Me.TbCommerce.Text
Me.Label1.Text = recuperationcom
Me.TbCommerce.Text = ""
If recuperationcom = "" Then
'message si le text box est vide...
Else
Dim vReq As String = "SELECT ADRESSE,ACTIVITE,Latitude,Longitude FROM ESSAI2 WHERE UPPER(NOM) LIKE UPPER('" & recuperationcom & "%');"
Dim comm As SqlCommand
comm = New SqlCommand
comm.Connection = conn
comm.CommandText = vReq
il m'affiche des erreurs au niveau du "conn" il me dit que
"un string ne peut pas être un membre de system data.sqlclient.sqlconnection"
J'ai dû mal me faire comprendre.
Après avoir obtenu ta chaîne de connexion :
tu la transmets à ta connexion Sql :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Dim connectionString As String = ConfigurationManager.ConnectionStrings.Item("BILOU").ConnectionString
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Dim conn As SqlClient.SqlConnection conn = New SqlConnection conn.ConnectionString = connectionString conn.Open()
Voila mon code:
Dim connectionString As String = ConfigurationManager.ConnectionStrings.Item("BILOU").ConnectionString
Dim conn As SqlClient.SqlConnection
conn = New SqlConnection
conn.ConnectionString = connectionString
conn.Open()
''essai
Dim recuperationcom As String
recuperationcom = Me.TbCommerce.Text
Me.Label1.Text = recuperationcom
Me.TbCommerce.Text = ""
If recuperationcom = "" Then
'message si le text box est vide...
Else
Dim vReq As String = "SELECT ADRESSE,ACTIVITE,Latitude,Longitude FROM ESSAI2 WHERE UPPER(NOM) LIKE UPPER('" & recuperationcom & "%');"
Dim comm As SqlCommand
comm = New SqlCommand
comm.Connection = conn
comm.CommandText = vReq
il me met comme erreur:
Erreur critique.
La référence d'objet n'est pas définie à une instance d'un objet.
Quel est l'objet null ?
S'il s'agit de Item("BILOU"), as-tu ajouté la section dans ton fichier de configuration ?
oui mais j'avais fais une erreur,désolé.
Je me suis rabattu sur "SiteSqlServer" au lieu de "BILOU" et maintenant il m'affiche la même erreur des 2 cotés et les erreurs se trouvent dans ma requête.
Mais ma requête est correcte.
Message d'erreur :
Erreur critique.
There are fewer columns in the INSERT statement than values specified in the VALUES clause. The number of values in the VALUES clause must match the number of columns specified in the INSERT statement.
Mais je suis certain qu'elle est correcte ça fonctionnais très bien avant et j'ai vérifié dans "Sql Server"
Ce problème n'ayant rien à voir avec le problème original, il serait peut-être bien de marquer cette discussion comme résolue et d'en ouvrir une nouvelle avec les informations nécessaires pour t'aider (car ton erreur concerne une requête d'insert dont nous n'avons jamais entendu parler).
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager