upload di baol, inserimento simultaneo di più record

**bibuz** · 11-02-2010, 15:45

Salve ragazzi sono di nuovo qui a rompervi le scatole per chiedere come sempre il vostro aiuto.
Devo inserire contemporaneamente più record nel database (Access) usando l'upload di baol visto che devo caricare delle immagini.
Tra i suoi esempi ci sta quello che permette di inserire più immagini contemporaneamente. Solo che io oltre alle immagini devo inserire il rispettivo titolo.
L'esempio di codice è quello base di Baol. ho provato a modificarlo, anche aggiungendo altri campi titolo nel modulo ma nulla non va

Questo è il form:

codice:

<FORM METHOD="Post" enctype="multipart/form-data" ACTION="upload_Database.asp">
File 1: 
  <INPUT TYPE="file" NAME="file_1">

File 2: 
<INPUT TYPE="file" NAME="file_2">

File 3: 
<INPUT TYPE="file" NAME="file_3">


<label>
<input name="Titolo1" type="text" id="Titolo1" />
</label>


<input name="Titolo2" type="text" id="Titolo2" />


<INPUT TYPE="submit" NAME="Enter">
</FORM>

E questa è la pagina che elabora i dati:

codice:

<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
'La riga seguente impoosta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("news.mdb"),"SELECT Top 1 * FROM news"
.EnabledAspUpload	= False
.EnabledImageSize	= False
.EnabledLog 		 = False
.AutoRename 		 = True
.Overwrite			 = False
.SetPath "files\"
.Load
.MoveFirst
if .EOF then
	NumFiles = .Count()
	Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il ttipo di file."
else
	.Database.Open()
	While Not .EOF
			.Save
			response.Write "il file " & .GetFileName &" è stato salvato 
"
	'		'Inserimento dei valori
			.Database.Fields("Titolo") = .Form("Titolo")
			.Database.Fields("Percorso") = .GetCompletePathFile
	'		'Inserimento
			.Database.AddNew()
	.MoveNext
	Wend
end if
End With
Set oUpload = Nothing
%>

In questo modo lui carica quaanti record per quanto sono le immagini da caricare però per tutte le immagini caricate mi associa giustamente lo stesso titolo.

Come posso fare in modo da assegnare ad ogni immagine caricata il suo corrispettivo titolo?

Ho provato in qualche modo ad inserire lo script che uso per l'inserimento multiplo di record ma non ci sono riuscito.

Potete cortesemente aiutarmi?

**Fabioweb76** · 11-02-2010, 16:46

ic codice che hai implementato è corretto:

<FORM METHOD="Post" enctype="multipart/form-data" ACTION="upload_Database.asp">
File 1:
<INPUT TYPE="file" NAME="file_1">

File 2:
<INPUT TYPE="file" NAME="file_2">

File 3:
<INPUT TYPE="file" NAME="file_3">

<label>
<input name="Titolo1" type="text" id="Titolo1" />
</label>

<input name="Titolo2" type="text" id="Titolo2" />

<INPUT TYPE="submit" NAME="Enter">
</FORM>

in questo caso hai 3 file e due titoli, potresti modificare così :

<FORM METHOD="Post" enctype="multipart/form-data" ACTION="upload_Database.asp">
File 1:
<INPUT TYPE="file" NAME="file_1">

File 2:
<INPUT TYPE="file" NAME="file_2">

File 3:
<INPUT TYPE="file" NAME="file_3">

<label>
<input name="Titolo1" type="text" id="Titolo1" />
</label>

<input name="Titolo2" type="text" id="Titolo2" />

<INPUT TYPE="submit"
<input name="Titolo3" type="text" id="Titolo3" />

NAME="Enter"></FORM>

ora hai tre 3 file e tre campi input per i titoli, ora non ti resta che modificare il codice di importazione qui :

.Database.Fields("Titolo") = .Form("Titolo")---> al posto di titolo devi mettere il nome del campo input corrispondente all'immagine che stai caricando (tittolo1, titolo2 ecc)...spero di essermi spiegato.

Fabio

**bibuz** · 11-02-2010, 17:07

Allora ho proveto come dici te ma in questo modo nn mi inserisce nulla di cio che scrivo nei rispettivi campi testo.
Ecco il codice aggiornato:
Questo è il form:

codice:

<FORM METHOD="Post" enctype="multipart/form-data" ACTION="upload_Database.asp">
File 1: 
  <INPUT TYPE="file" NAME="file_1">

File 2: 
<INPUT TYPE="file" NAME="file_2">

File 3: 
<INPUT TYPE="file" NAME="file_3">


<label>
Titolo 1<input name="Titolo1" type="text" id="Titolo1" />
</label>


Titolo 2<input name="Titolo2" type="text" id="Titolo2" />


Titolo 3<input name="Titolo3" type="text" id="Titolo3" />


<INPUT TYPE="submit" NAME="Enter">
</FORM>

E questa è lapagina per upload e inserimento.

codice:

<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
'La riga seguente impoosta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("news.mdb"),"SELECT Top 1 * FROM news"
.EnabledAspUpload	= False
.EnabledImageSize	= False
.EnabledLog 		 = False
.AutoRename 		 = True
.Overwrite			 = False
.SetPath "files\"
.Load
.MoveFirst
if .EOF then
	NumFiles = .Count()
	Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il ttipo di file."
else
	.Database.Open()
	While Not .EOF
			.Save
			response.Write "il file " & .GetFileName &" è stato salvato 
"
	'		'Inserimento dei valori
			.Database.Fields("Titolo") = .Form("Titolo1")
			.Database.Fields("Titolo") = .Form("Titolo2")
			.Database.Fields("Titolo") = .Form("Titolo3")
			.Database.Fields("Percorso") = .GetCompletePathFile
	'		'Inserimento
			.Database.AddNew()
	.MoveNext
	Wend
end if
End With
Set oUpload = Nothing
%>

Potre essere la strada giustao utilizzare la sintassi "case"???

:master:

**bibuz** · 11-02-2010, 17:44

Allora ho proveto come dici te ma in questo modo nn mi inserisce nulla di cio che scrivo nei rispettivi campi testo.
Ecco il codice aggiornato:
Questo è il form:

codice:

<FORM METHOD="Post" enctype="multipart/form-data" ACTION="upload_Database.asp">
File 1: 
  <INPUT TYPE="file" NAME="file_1">

File 2: 
<INPUT TYPE="file" NAME="file_2">

File 3: 
<INPUT TYPE="file" NAME="file_3">


<label>
Titolo 1<input name="Titolo1" type="text" id="Titolo1" />
</label>


Titolo 2<input name="Titolo2" type="text" id="Titolo2" />


Titolo 3<input name="Titolo3" type="text" id="Titolo3" />


<INPUT TYPE="submit" NAME="Enter">
</FORM>

E questa è lapagina per upload e inserimento.

codice:

<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
'La riga seguente impoosta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("news.mdb"),"SELECT Top 1 * FROM news"
.EnabledAspUpload	= False
.EnabledImageSize	= False
.EnabledLog 		 = False
.AutoRename 		 = True
.Overwrite			 = False
.SetPath "files\"
.Load
.MoveFirst
if .EOF then
	NumFiles = .Count()
	Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il ttipo di file."
else
	.Database.Open()
	While Not .EOF
			.Save
			response.Write "il file " & .GetFileName &" è stato salvato 
"
	'		'Inserimento dei valori
			.Database.Fields("Titolo") = .Form("Titolo1")
			.Database.Fields("Titolo") = .Form("Titolo2")
			.Database.Fields("Titolo") = .Form("Titolo3")
			.Database.Fields("Percorso") = .GetCompletePathFile
	'		'Inserimento
			.Database.AddNew()
	.MoveNext
	Wend
end if
End With
Set oUpload = Nothing
%>

Potre essere la strada giustao utilizzare la sintassi "case"???

:master:

**bibuz** · 17-02-2010, 10:51

Scusate ma mi sono arenato...

ho provato ma non riesco a uscirne fuori.

Un piccolo aiutino è possibile?

**bibuz** · 23-02-2010, 18:00

Ho risolto il problema.

Prima tramite l'upload di Baol carico uno o più file sul server.

Poi succesivamente recupero i file caricati ed inserisco le singole descrizioni dove richiesto.

Sono due passaggi ma alla fine per le mie esigenze va bene lo stesso.

Ciao a tutti e buona serata.

Discussione: upload di baol, inserimento simultaneo di più record

Strumenti discussione

Ricerca discussione

Visualizza

upload di baol, inserimento simultaneo di più record

Permessi di invio