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
|
Private Function AjouterFichier(ByRef Id As Integer, ByVal XIdAstuce As Integer, LeFichier As String) As Boolean
Dim SQL As String
ParametroConexion()
MaConexion.Open()
MaCommande = MaConexion.CreateCommand()
SQL = "INSERT INTO T_Fichier (XIdAstuceFichier, Fichier) VALUES(@LeXId, @LeFichier); "
MaCommande.CommandText = SQL
MaCommande.Parameters.AddWithValue("@LeXId", XIdAstuce)
MaCommande.Parameters.AddWithValue("@LeFichier", LeFichier)
If MaCommande.ExecuteNonQuery() = 1 Then
' Ajout effectué
Else
' Erreur
MaConexion.Close()
MaCommande.Dispose()
Return False
End If
SQL = " SELECT MAX(IdFichier) FROM T_Fichier"
MaCommande.CommandText = SQL
Id = MaCommande.ExecuteScalar()
MaConexion.Close()
MaCommande.Dispose()
Return True
End Function
Private Sub Bp_Ajout_Fichier_Click(sender As Object, e As EventArgs) Handles Bp_Ajout_Fichier.Click
Dim NomFichier As String
Dim CheminFichier As String
'Dim path As String = My.Settings.DBpath & "\FicheTechnique\" & TboxMARQUE.Text & "\" 'Crée le repertoire avec le champ Marque
Dim OpenFile As OpenFileDialog = New OpenFileDialog
If OpenFile.ShowDialog() = Windows.Forms.DialogResult.OK Then
' La réponse à la boîte de dialogue est plausible et l'utilisateur à pressé <ENTER>.
NomFichier = OpenFile.SafeFileName 'Recuperer uniquement le nom du fichier
'fichier = path & NomFichier
Tb_Nomfichier.Text = NomFichier
CheminFichier = OpenFile.FileName 'Recupere le chemin du fichier
Dim IdAstuceEnCours As Integer
IdAstuceEnCours = MesAstuces.Tables(NomTableAstuces).Rows(Me.BindingContext(MesAstuces.Tables(NomTableAstuces)).Position).Item("IdAstuce")
Dim NouvelId As Integer
If AjouterFichier(NouvelId, IdAstuceEnCours, Tb_Nomfichier.Text) Then ' reçoit le nouvel ID par ByRef de NouvelId
MesAstuces.Tables("TFichier").Rows.Add(Tb_Nomfichier.Text) ' Si ok, on ajoute au DataTable
End If
End If
End Sub |
