1 2 3 4 5 6 7 8 9 10 11
| Dim SqlCnx As SqlConnection = New SqlConnection( _
"Server=(local)\SQLEXPRESS;Initial Catalog=master;Integrated Security=SSPI")
SqlCnx.Open()
Dim cmd As New SqlCommand("select * from DBMETROPTIM.dbo.NDS_METROPTIM_EQP", SqlCnx)
Dim reader As SqlDataReader = _
cmd.ExecuteReader(CommandBehavior.CloseConnection)
Dim ds As New DataSet("EQPDataSet")
ds.Load(reader, LoadOption.OverwriteChanges, New String() {"NDS_METROPTIM_EQP"})
Me.EQPBindingSource.DataSource = ds
Me.TxtBoxNserie.DataBindings.Add(New Binding("Text", Me.EQPBindingSource, "Nserie", True)) |
Partager