1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| Imports System.Data.Sql
public clase nom_de_votre_clasee_automatique
dim command As New SqlCommand
dim con As New SqlConnection
dim sql as string
conn.ConnectionString = "Data Source=localhost;Initial Catalog=nom_base_donneé;integrated security=true"
' code pour l'ajout
sql = "insert into nom_tabler values ('" & TextBox1.Text & "','" & TextBox3.Text & "','" & ComboBox1.SelectedItem & "')"
command.Connection = conn
command.CommandText = sql
command.ExecuteNonQuery()
' tient encore un code pour l'affichage
Dim table1 As New DataTable
sql = "select * from nom_table where nom_colone='" & ton_valeur & "'"
command.Connection = conn
command.CommandText = sql
adapter.SelectCommand = command
adapter.Fill(table1)
For i As Integer = 0 To table1.Rows.Count - 1
combobox.items.add (table1.Rows(i)("nom_colone"))
Next
' bien sur vous pouvez changer les combobx,textbox comme vous voulez.
'tient encore une fonction pour la suppression
sql = " delete from nom_tabl where nom_colone='" & valeur & "'"
command.Connection = conn
command.CommandText = sql
command.ExecuteNonQuery()
'aussi upadate
sql = "UPDATE nom_tabl SET nom_colone ='" & valeur & "'"
command.Connection = conn
command.CommandText = sql
command.ExecuteNonQuery() |
Partager