1 2 3 4 5 6 7 8 9
| Dim nom_connexion As New Data.SqlClient.SqlConnection
nom_connexion.ConnectionString = WebConfigurationManager.ConnectionStrings("bizoneConnectionString1").ToString
Dim myCommand As New Data.SqlClient.SqlCommand("UPDATE [C:\INETPUB\WWWROOT\A\APP_DATA\BIZONE.MDF].[dbo].[config] SET [prefixe_groupe] = '" & TextBoxpref_gpe.text & "',[url_historique] ='" & TextBoxurl_histo.text & "'", nom_connexion)
'Execution
nom_connexion.Open()
Dim affectedrows As Integer = myCommand.ExecuteNonQuery()
label2.text = "" & affectedrows
nom_connexion.close()
True) |