Visualizzazione dei risultati da 1 a 7 su 7
  1. #1
    Utente di HTML.it L'avatar di jspippo
    Registrato dal
    Jul 2005
    Messaggi
    358

    Script baol: problemi con db

    Salute a tutti, ho un problema con lo script di baol.

    Allora, ho un form con 2 caselle di testo e un campo file. Le caselle memorizzano il dato in db e la casella file, ovviamente, serve per l'upload.

    Il problema è che quando io volgio inserire solo i dati nel db senza uploadare il file, non mi inserisce i dati nel database. Devo per forza inserire un file da uploadare.

    Qualcuno ha già avuto sto problema?

    grazie a tutti.

  2. #2
    Moderatore di ASP e MS Server L'avatar di Roby_72
    Registrato dal
    Aug 2001
    Messaggi
    19,559
    Utilizza lo script di baol per recuperare i dati, creati invece per conto tuo la query sql per inserire le info nel db.
    A quel punto ci inserisci quello che vuoi indipendentemente dal caricamento del file.

    Roby

  3. #3
    Utente di HTML.it L'avatar di jspippo
    Registrato dal
    Jul 2005
    Messaggi
    358
    Ciao Rob, allora lo script è questo:

    codice:
    If Request("Upload")="1" then
    Dim oUpload
    Set oUpload= new cUpload
    With oUpload
    
    .SetDatabase "Driver={Microsoft Access Driver (*.mdb)};DBQ=" 
    & server.MapPath("/mdb-database/ARCHIVIO.mdb"),"SELECT * FROM eventi"
    .EnabledAspUpload	= True
    .EnabledImageSize	= False
    .EnabledLog 		 = False
    .AutoRename 		 = False
    .Overwrite			 = True
    .SetPath "allegatiEventi/"
    .Load
    .MoveFirst
    if .EOF then
    	NumFiles = .Count()
    else
    	.Database.Open()
    	While Not .EOF
    			.Save ()
    			response.Write "il file " & .GetFileName &" è stato salvato 
    "
    			'Inserimento dei valori
    			.Database.Fields("Titolo") = .Form("titolo")
    			.Database.Fields("Descrizione") = .Form("descrizione")
    			.Database.Fields("Allegato") = .GetHTTPPathFile
    			'Inserimento
    			.Database.Addnew()
    	.MoveNext
    	Wend
    end if
    End With
    Set oUpload = Nothing
    
    end if

    Che cosa devo cambiare? la Select e scrivere al suo posto un insert into? Grazie

  4. #4
    Moderatore di ASP e MS Server L'avatar di Roby_72
    Registrato dal
    Aug 2001
    Messaggi
    19,559
    Prova a lasciare il contenuto

    codice:
    			.Save ()
    			response.Write "il file " & .GetFileName &" è stato salvato 
    "
    			'Inserimento dei valori
    			.Database.Fields("Titolo") = .Form("titolo")
    			.Database.Fields("Descrizione") = .Form("descrizione")
    			.Database.Fields("Allegato") = .GetHTTPPathFile
    			'Inserimento
    			.Database.Addnew()
    togliendo il resto da if a end if
    Ti da errore?

    Roby

  5. #5
    Utente di HTML.it L'avatar di jspippo
    Registrato dal
    Jul 2005
    Messaggi
    358
    Nessun errore ma non inserisce i dati nel db...

  6. #6
    Moderatore di ASP e MS Server L'avatar di Roby_72
    Registrato dal
    Aug 2001
    Messaggi
    19,559
    Rivediamo lo script.

    Roby

  7. #7
    Utente di HTML.it L'avatar di jspippo
    Registrato dal
    Jul 2005
    Messaggi
    358
    Grazie rob funzia. Avevo eliminato sbadatamente "End With"

    Grazie ancora e buona domenica

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.