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
 

 'Ορισμός Μεταβλητών
    Dim TempFileUpload As New FileUpload
    Dim TempIdentTitle As New TextBox
    Dim TempWebSite As New TextBox
    Dim ClientSideFileName As String
    Dim ServerSideFilePath As String
    
    Dim FileUploadParameter As New Parameter
    Dim IdentTitleParameter As New Parameter
    Dim WebSiteParameter As New Parameter
    
    'Η Sub του FileUpload Server Control
    Protected Sub SuppliersLogoUpload_DataBinding(ByVal sender As Object, ByVal e As System.EventArgs)
        'Βρίσκουμε τα control
        If SuppliersFormView.CurrentMode = FormViewMode.Edit Then
            TempFileUpload = SuppliersFormView.FindControl("SuppliersLogoUpload")
            TempIdentTitle = SuppliersFormView.FindControl("IdentTitleTextBox")
            TempWebSite = SuppliersFormView.FindControl("WeblinkTextBox")
        End If
       
        
    End Sub
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''     
    
    Protected Sub UpdateButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        
        'Διαδικασία ανεβάσματος του αρχείου στη βάση
        
        ServerSideFilePath = "C:\" 'Ορίζουμε το path του server
        If TempFileUpload.HasFile Then
            'Παίρνουμε το όνομα του αρχείου που βρίσκεται στον client
            ClientSideFileName = TempFileUpload.PostedFile.FileName
            
            'Καθορίζουμε το path που θα αποθηκευτεί το αρχείο + το όνομα του αρχείου
            ServerSideFilePath = ServerSideFilePath + ClientSideFileName
            
            'Ανεβάζουμε το αρχείο στο server
            TempFileUpload.SaveAs(ServerSideFilePath)
            
        End If
        ''''''''''''''''''''''''''''''''''''''''
        
        'Διαδικασία εισαγωγής του path στη βάση
        
        'Ορίζουμε τα δεδομένα των παραμέτρων
        
        ' Το logo του προμηθευτή
        FileUploadParameter.DefaultValue = ServerSideFilePath
        FileUploadParameter.Name = "FileUploadParameter"
        FileUploadParameter.Type = TypeCode.String
        
        ' Το όνομα της εταιρείας του προμηθευτή
        IdentTitleParameter.DefaultValue = TempIdentTitle.Text
        IdentTitleParameter.Name = "IdentTitleParameter"
        IdentTitleParameter.Type = TypeCode.String
        
        
        ' Η ιστοσελίδα του προμηθευτή
        WebSiteParameter.DefaultValue = TempWebSite.Text
        WebSiteParameter.Name = "WebSiteParameter"
        WebSiteParameter.Type = TypeCode.String
        
        'Κάνουμε την ανανέωση
        SuppliersSqlDataSource.UpdateParameters.Add(FileUploadParameter)
        SuppliersSqlDataSource.UpdateCommand = "UPDATE Suppliers SET Logo =@FileUploadParameter, IdentTitle =@IdentTitleParameter, Weblink =@WebSiteParameter"
        SuppliersSqlDataSource.Update()