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 26 27 28 29
|
Public Sub sauvegardeT_clientDansTableBDD()
Dim o_table_principal As New BDDContratDataSet1.ClientDataTable() 'nomProjetDataSet.nomTableDataTable
Dim o_ta As New BDDContratDataSet1TableAdapters.ClientTableAdapter() 'nomProjetDataSetTableAdapters.nomTableTableAdapter
Dim l, ll As Integer
'transfert en provenance de bdd
o_ta.Fill(o_table_principal)
'vidage table origine
For l = 0 To o_table_principal.Rows.Count - 1
o_table_principal.Rows(l).Delete()
Next
'prise en compte vidage table
o_ta.Update(o_table_principal)
'recherche taille du tableau
l = 1
While Not IsNothing(t_principal(l))
l = l + 1
End While
l = l - 1
'ajout des éléments du tableau dans table
For ll = 1 To l
o_table_principal.Rows.Add(ll, t_principal(ll).getNumClient(), t_principal(ll).getpuissanceInf36(), t_principal(ll).getpuissancesup36(), t_principal(ll).getNomClient(), t_principal(ll).getPrenomClient(), t_principal(ll).getRaisonSociale(), t_principal(ll).getAdresseClient(), t_principal(ll).getCommuneClient(), t_principal(ll).getCodePostalClient(), t_principal(ll).getNumTelFixeClient(), t_principal(ll).getNumTelPortClient(), t_principal(ll).getAdresseMail(), t_principal(ll).getNomInterlocuteur(), t_principal(ll).getDemandeurSolo(), t_principal(ll).getDemandeurProprio())
'o_table_principal.Rows.Add(ll, t_secondaire(ll).getNumPropriétaire(), t_secondaire(ll).getNomPropriétaire(), t_secondaire(ll).getPrenomPropriétaire(), t_secondaire(ll).getRaisonSocialePropriétaire(), t_secondaire(ll).getAdressePropriétaire(), t_secondaire(ll).getCodePostalPropriétaire(), t_secondaire(ll).getCommunePropriétaire(), t_secondaire(ll).getTelPropriétaire())
Next
'transfert vers bdd
o_ta.Update(o_table_principal)
End Sub |
Partager