1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
' Déclaration de l'objet de connexion
Dim oConnection As System.Data.SqlClient.SqlConnection
' Création de l'objet de connexion
oConnection = New System.Data.SqlClient.SqlConnection()
' Ecriture de la chaîne de connexion
Dim sConnectionString As String
sConnectionString = "Server=SQL2005.HEBERGEMENT.COM;Initial Catalog=db_worldgam3_1;uid=db_worldgam3_1;password=********"
oConnection.ConnectionString = sConnectionString
' Ouverture de la connexion
oConnection.Open()
Dim test As New Data.SqlClient.SqlCommand("INSERT into TestJeuxVideo (id,texte,) Values(" & TextBox1.Text & "," & TextBox1.Text & ")")
' Traitement des opération à effectuer sur la base de données
' Fermeture de la connexion
oConnection.Close()
End Sub |
Partager