Code visual basic VB.net

Résumé du document

Annale de programmation: Code visual basic VB.net (6 pages)





Public class DataForm1

Inherits System.Windows.Forms.Form Inherits System.Windows.Forms.Form

Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

btnCancel.Click Private Sub btnCancel_Click (ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnCancel.Click

Me.BindingContext(objMyAddresses,'AddressBooktb').CancelCurrentEdit() Me.BindingContext

(objMyAddresses, 'AddressBooktb'). CancelCurrentEdit ()

Me.objMyAddresses_PositionChanged() Me.objMyAddresses_PositionChanged ()

// touché delete:

End Sub End Sub

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

btnDelete.Click Private Sub btnDelete_Click (ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnDelete.Click

If (Me.BindingContext(objMyAddresses, 'AddressBooktb').Count > 0) Then Si (Me.BindingContext

(objMyAddresses, 'AddressBooktb'). Count> 0) Then

Me.BindingContext(objMyAddresses,'AddressBooktb').RemoveAt(Me.BindingContext(objMyAddress

es, 'AddressBooktb').Position) Me.BindingContext (objMyAddresses, 'AddressBooktb'). RemoveAt

(Me.BindingContext (objMyAddresses, 'AddressBooktb'). Position)

Me.objMyAddresses_PositionChanged() Me.objMyAddresses_PositionChanged ()

End If End If

Extraits

[...] Me.OleDbConnection1.Close() Me.OleDbConnection1.Close End Try End Try End Sub End Sub Public Sub FillDataSet(ByVal dataSet As Addresses.MyAddresses) Public Sub FillDataSet (DataSet ByVal Addresses.MyAddresses) 'Turn off constraint checking before the dataset is filled. «Désactiver la contrainte de contrôle avant l'ensemble de données est rempli. 'This allows the adapters to fill the dataset without concern «Cela permet aux adaptateurs pour remplir le DataSet sans souci 'for dependencies between the tables. Pour les dépendances entre les tables. dataSet.EnforceConstraints = False dataSet.EnforceConstraints = False Try Essayer 'Open the connection. [...]

[...] Vérifier pour voir si des modifications ont été apportées. If (Not (objDataSetChanges) Is Nothing) Then Si (Non (objDataSetChanges) n'est rien puis) Try Essayer 'There are changes that need to be made, so attempt to update the datasource bycalling the update method and passing the dataset and any parameters. ya des changements qui doivent être faites, il faut essayer de mettre à jour la source de données bycalling la méthode mise à jour et passant l'ensemble de données et tous les paramètres. [...]

[...] »Message d'erreur d'affichage, le cas échéant. System.Windows.Forms.MessageBox.Show(eLoad.Message) System.Windows.Forms.MessageBox.Show (eLoad.Message) End Try End Try Me.objMyAddresses_PositionChanged() Me.objMyAddresses_PositionChanged End Sub End Sub Private Sub btnNavFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNavFirst.Click Private Sub btnNavFirst_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNavFirst.Click Me.BindingContext(objMyAddresses, "AddressBooktb").Position = 0 Me.BindingContext (objMyAddresses, "AddressBooktb"). Position = 0 Me.objMyAddresses_PositionChanged() Me.objMyAddresses_PositionChanged End Sub End Sub Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click Private Sub btnLast_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click Me.BindingContext(objMyAddresses, "AddressBooktb").Position = (Me.objMyAddresses.Tables("AddressBooktb").Rows.Count Me.BindingContext (objMyAddresses, "AddressBooktb"). [...]

[...] «Créer un nouvel ensemble de données pour tenir les changements qui ont été apportées à l'ensemble de données principal. Dim objDataSetChanges As Addresses.MyAddresses = New Addresses.MyAddresses Dim objDataSetChanges Comme Addresses.MyAddresses Addresses.MyAddresses = Nouveau 'Stop any current edits. «Arrêtez de tout courant des modifications. Me.BindingContext(objMyAddresses,"AddressBooktb").EndCurrentEdit() Me.BindingContext (objMyAddresses, "AddressBooktb"). EndCurrentEdit 'Get the changes that have been made to the main dataset. «Obtenir les changements qui ont été apportées à l'ensemble de données principal. objDataSetChanges = CType(objMyAddresses.GetChanges,Addresses.MyAddresses) objDataSetChanges = CType (objMyAddresses.GetChanges, Addresses.MyAddresses) 'Check to see if any changes have been made. [...]

[...] »Donnez votre erreur de manipulation du code ici. Throw eFillDataSet Jetez eFillDataSet End Try End Try Try Essayer 'Empty the old records from the dataset. «Vider les vieux enregistrements de l'ensemble de données. objMyAddresses.Clear() objMyAddresses.Clear 'Merge the records into the main dataset. «Fusionner les enregistrements dans le DataSet principal. objMyAddresses.Merge(objDataSetTemp) objMyAddresses.Merge (objDataSetTemp) Catch eLoadMerge As System.Exception eLoadMerge attraper le System.Exception 'Add your error handling code here. »Donnez votre erreur de manipulation du code ici. Throw eLoadMerge Jetez eLoadMerge End Try End Try End Sub End Sub Public Sub UpdateDataSource(ByVal ChangedRows As Addresses.MyAddresses) Public Sub UpdateDataSource (ByVal ChangedRows Addresses.MyAddresses) Try Essayer 'The data source only needs to be updated if there are changes pending. [...]