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
| Dim conn As New SqlClient.SqlConnection
With conn
.ConnectionString = "Data Source=(Local);Initial Catalog=facture_telephonique;Integrated Security=true;"
.Open()
End With
Dim cmd As New SqlClient.SqlCommand
With cmd
.CommandText = "SELECT [entité],[centreCouts],[numero],[typeProduit] FROM [facture_telephonique].[dbo].[annuaire]"
.CommandType = CommandType.Text
.CommandTimeout = 30
.Connection = conn
End With
Dim dt As New DataTable
dt.Load(cmd.ExecuteReader)
With DataGridView1
.AutoGenerateColumns = True
.DataSource = dt
End With
cmd.Dispose()
cmd = Nothing
conn.Dispose()
conn = Nothing |
Partager