1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Dim MaBDD As String
MaBDD = "Phila027hSQL"
' définission de la connexion
Dim MyConnexion As New SqlConnection
MyConnexion.ConnectionString = "Data Source=PC-DE-BERTRAND\SQLEXPRESS;Initial Catalog=" & MaBDD & ";Integrated Security=SSPI"
Dim Mycommand As SqlCommand = MyConnexion.CreateCommand()
Try
MyConnexion.Open()
Mycommand.CommandText = "SELECT DTL_ID, DTL_LIB, DTL_COURT FROM TR_DENTELURE"
Dim DataAdapter As New SqlClient.SqlDataAdapter(Mycommand)
Dim MyDataSet As New DataSet
Dim TblnameBS As New BindingSource
DataAdapter.Fill(MyDataSet)
DataGridView1.DataSource = MyDataSet.Tables(0)
TblnameBS.DataSource = MyDataSet.Tables(0)
TxtDentelure.DataBindings.Add(New Binding("Text", TblnameBS, "DTL_LIB"))
TxtDentelureCourt.DataBindings.Add(New Binding("Text", TblnameBS, "DTL_COURT"))
MyConnexion.Close() |