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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
| Private Sub parcourir(ByVal mydir As String, ByVal z As Integer)
connex = New OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;data source=" & _
My.Application.Info.DirectoryPath + "\Gamma2.mdb")
commande_sql_repertoire = "SELECT * FROM repertoire;"
commande_sql_fichier = "SELECT * FROM fichier;"
'z = recherche_Id_repertoire()
For Each sous_repertoire As String In Directory.GetDirectories(mydir)
une_commande = New OleDb.OleDbCommand(commande_sql_repertoire, connex)
un_dataAdapter = New OleDb.OleDbDataAdapter(une_commande)
un_data_set_Repertoire = New Data.DataSet
un_CommandBuilder = New OleDb.OleDbCommandBuilder
une_commande.Connection() = connex
un_dataAdapter.Fill(un_data_set_Repertoire, "Repertoire")
un_DataTable = un_data_set_Repertoire.Tables("Repertoire")
un_DataRow = un_data_set_Repertoire.Tables("Repertoire").Rows.Add
un_DataRow(1) = Tronque_repertoire(sous_repertoire)
un_DataRow(5) = valeur_max_cd
If z = Nothing Then
Else
un_DataRow(6) = z
End If
ListBox_dossier_parent_2.Items.Add(sous_repertoire)
mise_a_jours_bdd("Repertoire", un_data_set_Repertoire)
Application.DoEvents()
For Each fichier As String In Directory.GetFiles(sous_repertoire)
une_commande = New OleDb.OleDbCommand(commande_sql_fichier, connex)
un_dataAdapter = New OleDb.OleDbDataAdapter(une_commande)
un_data_set_Fichier = New Data.DataSet
un_CommandBuilder = New OleDb.OleDbCommandBuilder
une_commande.Connection() = connex
un_dataAdapter.Fill(un_data_set_Fichier, "Fichier")
un_DataTable = un_data_set_Fichier.Tables("Fichier")
un_DataRow = un_data_set_Fichier.Tables("Fichier").Rows.Add
un_DataRow(1) = Tronque_repertoire(fichier)
un_dataAdapter.ContinueUpdateOnError = True
MsgBox(retrouve_id_par_nom_rep(Tronque_repertoire(sous_repertoire), 1))
un_DataRow(4) = retrouve_id_par_nom_rep(Tronque_repertoire(sous_repertoire), 1)
mise_a_jours_bdd("Fichier", un_data_set_Fichier)
Next
Next
For Each repertoire As String In Directory.GetDirectories(mydir)
parcourir(repertoire.ToString, retrouve_id_par_nom_rep(Tronque_repertoire(repertoire), 1))
Next
End Sub
Private Sub mise_a_jours_bdd(ByVal table As String, ByVal un_data_set_mise_a_jours As Data.DataSet)
'un_dataAdapter.ContinueUpdateOnError = True
un_CommandBuilder.DataAdapter = un_dataAdapter
un_dataAdapter.UpdateCommand = un_CommandBuilder.GetUpdateCommand
un_dataAdapter.Update(un_data_set_mise_a_jours, table)
End Sub
Private Function Tronque_repertoire(ByVal chemin As String) As String
Dim nom_repertoire() As String
Dim repertoire As String = ""
nom_repertoire = chemin.Split("\")
For Each element As String In nom_repertoire
repertoire = element
Next
Return repertoire
End Function
Private Function retrouve_id_par_nom_rep(ByVal nom_rep As String, ByVal x As Integer) As Integer
Dim choix_de_recherche As String
If x = 1 Then
choix_de_recherche = "Repertoire.ID_Rep"
Else
choix_de_recherche = "Repertoire.ID_Rep_Parent"
End If
connex = New OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;data source=" & _
My.Application.Info.DirectoryPath + "\Gamma2.mdb")
commande_sql_Cd = "SELECT " + choix_de_recherche + " FROM Repertoire WHERE Repertoire.Nom_Rep = '" + nom_rep + "';"
une_commande = New OleDb.OleDbCommand(commande_sql_Cd, connex)
un_dataAdapter = New OleDb.OleDbDataAdapter(une_commande)
un_data_set_Repertoire = New Data.DataSet
un_CommandBuilder = New OleDb.OleDbCommandBuilder
une_commande.Connection() = connex
un_dataAdapter.Fill(un_data_set_Repertoire, "Repertoire")
un_DataTable = un_data_set_Repertoire.Tables("Repertoire")
Return un_DataTable.Rows(un_DataTable.Rows.Count - 1).Item(0)
End Function |
