[Débutant] effacer un datatable

effacer un datatable

Bonjour,

Le but:

Renseigner une base access a partir d'un fichier xml.
les infos doivent etre visualisé dans un datagrid avant d'etre envoyé dans la base access.

Voici ma méthode:
je crée par le code une datatable
lecture du fichier xml
extraction des noeuds qui m'interresse
je remplis ma datatable
je met en source de mon datagridview ma datatable.

Question 1: La méthode est elle bonne?

Question 2:
Cela marche une fois, mais si je refais l'opération une deuxième fois j'ai une erreur a la création de la datatable (normal les colonnes existe déja !!!)

Comment faire pour tester l’existence de la datatable, ou alors la détruire avant de la récréer.

Merci d'avance

Bonjour,

ta méthode semble bonne sur le principe. Il existe d'autres façons de procéder, mais celle-ci est a priori correcte.

Par contre, pour ce qui est de ton problème de DataTable, il faut que tu postes ton code pour que nous puissions te dire ce qui ne va pas.

merci de ta reponse

voici le code epuré

declaration sur la form (car j'en ai besoin sur plusieurs procedures)
la datatable est crée dans la procedure du bouton

Code:

1
2
3
 'création d'une nouvelle DataTable.
    Dim SiteDataTable As New DataTable
    Dim myDataColumn As DataColumn

création de la datatable

Code:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
 myDataColumn = New DataColumn()
            myDataColumn.DataType = System.Type.GetType("System.Int32")    'Type de la colonne
            myDataColumn.ColumnName = "id"                                 'Nom de la colonne
            myDataColumn.AutoIncrement = True
            myDataColumn.ReadOnly = True                                   'Colonne ReadOnly
            myDataColumn.Unique = True                                     'Evite les doublons 
            SiteDataTable.Columns.Add("id")
 
            ' Créer une seconde column.
            myDataColumn = New DataColumn()
            myDataColumn.DataType = System.Type.GetType("System.Double")
            myDataColumn.ColumnName = "NumCompte"
            myDataColumn.AutoIncrement = False
            myDataColumn.Caption = "NumCompte"
            myDataColumn.ReadOnly = False
            myDataColumn.Unique = False
            SiteDataTable.Columns.Add("NumCompte")
 
            ' Créer une troisieme column.
            myDataColumn = New DataColumn()
            myDataColumn.DataType = System.Type.GetType("System.String")
            myDataColumn.ColumnName = "TRNTYPE"
            myDataColumn.AutoIncrement = False
            myDataColumn.Caption = "TRNTYPE"
            myDataColumn.ReadOnly = False
            myDataColumn.Unique = False
            SiteDataTable.Columns.Add("TRNTYPE")
 
            ' Créer une quatrieme column.
            myDataColumn = New DataColumn()
            myDataColumn.DataType = System.Type.GetType("System.DateTime")
            myDataColumn.ColumnName = "DTPOSTED"
            myDataColumn.AutoIncrement = False
            myDataColumn.Caption = "DTPOSTED"
            myDataColumn.ReadOnly = False
            myDataColumn.Unique = False
            SiteDataTable.Columns.Add("DTPOSTED")
 
            ' Créer une cinquieme column.
            myDataColumn = New DataColumn()
            myDataColumn.DataType = System.Type.GetType("System.Double")
            myDataColumn.ColumnName = "TRNAMT"
            myDataColumn.AutoIncrement = False
            myDataColumn.Caption = "TRNAMT"
            myDataColumn.ReadOnly = False
            myDataColumn.Unique = False
            SiteDataTable.Columns.Add("TRNAMT")
 
            ' Créer une sixieme column.
            myDataColumn = New DataColumn()
            myDataColumn.DataType = System.Type.GetType("System.Double")
            myDataColumn.ColumnName = "FITID"
            myDataColumn.AutoIncrement = False
            myDataColumn.Caption = "FITID"
            myDataColumn.ReadOnly = False
            myDataColumn.Unique = False
            SiteDataTable.Columns.Add("FITID")
 
            ' Créer une septieme column.
            myDataColumn = New DataColumn()
            myDataColumn.DataType = System.Type.GetType("System.String")
            myDataColumn.ColumnName = "NomOperation"
            myDataColumn.AutoIncrement = False
            myDataColumn.Caption = "NomOperation"
            myDataColumn.ReadOnly = False
            myDataColumn.Unique = False
            SiteDataTable.Columns.Add("NomOperation")
 
            ' Créer une huitieme column.
            myDataColumn = New DataColumn()
            myDataColumn.DataType = System.Type.GetType("System.String")
            myDataColumn.ColumnName = "MEMO"
            myDataColumn.AutoIncrement = False
            myDataColumn.Caption = "MEMO"
            myDataColumn.ReadOnly = False
            myDataColumn.Unique = False
            SiteDataTable.Columns.Add("MEMO")

remplissage de la datatable

Code:

1
2
3
4
5
6
7
8
9
10
11
row("NumCompte") = Compte
        row("TRNTYPE") = BQTRNTYPE
        row("DTPOSTED") = BQDTPOSTED
        row("TRNAMT") = BQTRNAMT
        row("FITID") = BQFITID
        row("NomOperation") = BQNom
        row("MEMO") = BQMEMO
 
 
        'Ajout de l'enregistrement dans la datatable
        SiteDataTable.Rows.Add(row)

liaison avec le datagrid

Code:

1
2
  'liaison entre la datatable et le datagrid
        DTGOperation.DataSource = SiteDataTable

Au premier appuie sur le bouton cela fonctionne.

C'est si on essaie une deuxieme fois qu'il me donne l'erreur comme quoi la colonne de la datatable existe déja.
Il faudrait donc supprimer la datatable avant de la recreer, ou alors tester si elle existe.
Merci

j'ai enfin trouvé

Vu que mon datatable est déclaré au niveau du Form, je fabrique la datatable sur la procédure de chargement du form. Du coup je ne passe qu'une fois dessus et je n'ai plus d'erreur :)