1 2 3 4 5 6 7 8 9 10 11 12 13 14
|
com.CommandText = "select Num_Document, Titre, Auteur, Num_Theme, " _
& " Mot_clé as [Mots Clés], NbrExemplaire as [Exemplaires]," _
& " estDisponible as [Disponible ?] from documents"
daDocument.SelectCommand = com
daDocument.Fill(ds, "Documents")
Me.NumeroTextBox.DataBindings.Add("Text", bs_Document, "Num_Document")
Me.TitreTextBox.DataBindings.Add("Text", bs_Document, "Titre")
Me.AuteurTextBox.DataBindings.Add("Text", bs_Document, "Auteur")
Me.ThemeComboBox.DataBindings.Add("SelectedValue", bs_Document, "Num_Theme")
Me.Mot_CléTextBox.DataBindings.Add("Text", bs_Document, "Mots Clés")
Me.NbrExemplaireTextBox.DataBindings.Add("Text", bs_Document, "Exemplaires")
Me.EstDisponibleCheckBox.DataBindings.Add("Checked", bs_Document, "Disponible ?") |
Partager