2010-12-02 7 views
0

Wenn ich versuche, mehrere Bilder in die Datenbank hochladen mein Code funktioniert gut und alle Bilder zeigen in der Galerie, aber wenn ich versuche, das Bild in der Datenbank zu ändern, und ein Bild ändern Löscht den Rest der Bilder aus der Datenbank. Das Recordset wird nicht gelöscht und der Rest der Informationen bleibt gleich, es sind nur die 5+ Stellen, die ich für die Bilder habe, deren Daten gelöscht werden. so weit hier mein Code ..Datensätze gelöscht aus der Datenbank beim Hochladen von Dateien

message.Text = "please wait" 
    pics.Visible = False 
    'wherepics are stored 
    Dim savepath As String = Server.MapPath("/cgi-bin/properties/") 
    Dim tfn0 As String = "" 
    Dim tfn1 As String = "" 
    'dims the filenames a variables 
    Dim img0 As String = pic0.FileName 
    Dim img1 As String = pic1.FileName 
    'this is the set of paths to check 
    'this will check for redundencies in the database so no dublicate file names will occur 
    Dim ptc0 As String = savepath + img0 
    Dim ptc1 As String = savepath + img1 

    Dim url0 As String = "" 
    Dim url1 As String = "" 
    Dim counter As Integer = 2 
    If (System.IO.File.Exists(ptc0)) Then 
     While (System.IO.File.Exists(ptc0)) 
      tfn0 = counter.ToString = img0 
      ptc0 = savepath + tfn0 
      counter = counter + 1 
     End While 
    ElseIf (System.IO.File.Exists(ptc1)) Then 
     While (System.IO.File.Exists(ptc1)) 
      tfn1 = counter.ToString = img1 
      ptc1 = savepath + tfn1 
      counter = counter + 1 
     End While 
    End If 
    Dim sp0 As String = savepath + img0 
    Dim sp1 As String = savepath + img1 
    If Not pic0.FileName = Nothing Then 
     pic0.SaveAs(sp0) 
     img0 = pic0.FileName 
     url0 += "pic_main" 
     url1 += img0 
    End If 
    If Not pic1.FileName = Nothing Then 
     If pic0.FileName = Nothing Then 
      pic1.SaveAs(sp1) 
      img1 = pic0.FileName 
      url0 += "pic_one" 
      url1 += img1 
     Else 
      pic1.SaveAs(sp1) 
      img1 = pic0.FileName 
      url0 += ", pic_one" 
      url1 += ", " & img1 
     End If 

    End If 

    Dim datanames() As String = {url0} 
    ', "pic_six", "pic_seven", "pic_eight", "pic_nine" 
    Dim datavalues() As String = {url1} 
    ', file6, file7, file8, file9 
    DB.UpdateCommand(datanames, datavalues, "property", "property_id = " & Request.QueryString("id")) ', true) 
    Response.Redirect("finished.aspx") 
+0

Ich habe die Lösung gefunden, die sie sich angesehen hat Datei-Upload-Steuerelemente, da nichts darin war, würde es auf die Felder verweisen, die ich vor einiger Zeit herausgefunden hatte, bin beschäftigt und habe nie Zeit gefunden, meine Antwort zu posten. in der Datenbank und löschen Sie alles, was darin war und ersetzen Sie es durch ein Leerzeichen. Ich habe den Code ein wenig geändert, wo die Benutzer den Slot auswählen, in dem sie updaten wollen, und dann einen qstring übertragen, anstatt ihn alle gleichzeitig aktualisieren zu lassen. –

Antwort

0

ich die Lösung gefunden haben, es war überhaupt der Datei-Upload-Steuerelemente suchen, da nichts in ihnen war, würde es die Felder Referenz Ich hatte dies vor einiger Zeit herausgefunden, war beschäftigt und habe nie Zeit gefunden, meine Antwort zu posten. in der Datenbank und löschen Sie alles, was darin war und ersetzen Sie es durch ein Leerzeichen. Ich habe den Code ein bisschen geändert, wo die Benutzer den Slot auswählen, in dem sie updaten wollen, und dann einen qstring übertragen, anstatt ihn alle auf einmal zu aktualisieren.

Verwandte Themen