Discussion :

[lionel256]

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.

[pacmann]

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>

[BCmDev]

Tu peux également utiliser une section <connectionStrings>, utilisable à l'aide de ConfigurationManager.ConnectionStrings.

[lionel256]

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

[lionel256]

Si quelqu'un a une idée je suis preneur.
besoin d'aide merci.

[BCmDev]

Si dans ton web.config tu as ajouté la section suivante :

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>

alors tu peux obtenir ta chaîne de connexion en faisant :

Code :

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

1
2
 
Dim connectionString As String = ConfigurationManager.ConnectionStrings.Item("BILOU").ConnectionString

Puis "redescendre" ta chaîne de connexion vers ta couche d'accès aux données afin de l'affecter à ton objet SqlConnection.

[lionel256]

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.

[BCmDev]

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...

[lionel256]

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"

[BCmDev]

J'ai dû mal me faire comprendre.
Après avoir obtenu ta chaîne de connexion :

Code :

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

1
2
 
Dim connectionString As String = ConfigurationManager.ConnectionStrings.Item("BILOU").ConnectionString

tu la transmets à ta connexion Sql :

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()

[lionel256]

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.

[BCmDev]

Quel est l'objet null ?
S'il s'agit de Item("BILOU"), as-tu ajouté la section dans ton fichier de configuration ?

[lionel256]

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"

[BCmDev]

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).

[lionel256]

ok je vais faire cela alors merci de ton aide