Recupero campo db con Upload Baol

[Giubass]

Ciao,

Vorrei recuperare il campo di un Db, sto usando l'upload di Baol e per l'inserimento utilizzo il metodo

...
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;...
.Database.Open()
.Database.Fields("Prezzo") = .Form("Prezzo")]
.Database.AddNew()
.Database.close()
....

Mi servirebbe quindi l'equivalente del canonico objRS("nome_campo") che uso normalmente.
Grazie

[viki1967]

forse questo?

.Database.Fields("nome_campo")

[Giubass]

Effettivamente avevo già provato questa soluzione ma non andava!

...
ID = .Database.Fields("Id_Categoria") 
Response.Write(ID)
...

Non mi stampa nulla

[viki1967]

<%
Dim oUpload,SaveOK
Set oUpload = new cUpload
	SaveOK = True
	oUpload.OverWrite=True
	oUpload.AutoRename=False
	OuPLOAD.EnabledImageSize=fALSE 'DISABILITA IL RILEVAMENTO DELLE DIMENSIONI DELLE IMMAGINI
	oUpload.SetPath "foto\"
	oUpload.Load
	oUpload.SetDatabase MM_connessione_STRING,"SELECT Top 1 * FROM ARTICOLI"
	oUpload.Database.Open()
	Do While Not oUpload.EOF
	oUpload.Save()
	If oUpload.Files("ErrorNumber")<>0 then
		SaveOK=False
		Exit Do
	End if
	oUpload.Database.Fields(oUpload.Files("InputName").Value) = oUpload.GetHTTPPathFile()
	oUpload.MoveNext
	Loop

	If Not SaveOK then
		oUpload.Movefirst
		Do While oUpload.EOF
			If oUpload.Files("Saved") then oUpload.Fso.DeleteFile oUpload.GetCompletePathFile(),true
			oUpload.MoveNext
		Loop
	Else
		'Inserimento dei valori
		oUpload.Database.Fields("ID_CAT") = oUpload.Form("select")
		oUpload.Database.Fields("ID_SOTTOCAT") = oUpload.Form("select2")
		oUpload.Database.Fields("ID_TIPO") = oUpload.Form("select3")
		oUpload.Database.Fields("ARTICOLO") = oUpload.Form("ARTICOLO")
		oUpload.Database.Fields("DESCRIZIONE") = oUpload.Form("DESCRIZIONE")
		oUpload.Database.Fields("PAG") = oUpload.Form("PAG")
		oUpload.Database.Fields("DIDASCALIE") = oUpload.Form("DIDASCALIE")
		oUpload.Database.AddNew()
		risultato = "INSERIMENTO AVVENUTO CON SUCCESSO!"
	End if
	oUpload.Database.Close()
Set oUpload=Nothing
%>

[Giubass]

Grazie Viki domani ci darò un occhiata!!

[Giubass]

Viki il tuo script è molto simile al mio, ma avrei l'esigenza di recuperare il campo Id in un punto ben preciso dello script!

<% 
Dim oUpload
Set oUpload= new cUpload
With oUpload
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../../../mdb-database/prodotti.mdb"), "SELECT Top 1 * FROM Articoli"
.EnabledAspUpload	= False
.EnabledImageSize	= False 'Se impostata a true , vengono calcolate le dimensioni delle immagini.
.EnabledLog 		= False
.AutoRename 		= False
.Overwrite		    = True
.SetPath "../../../public/immagini"
.Load
.UploadOnly "Images"

If Not .EOF then
.Database.Open()

	While Not .EOF
				
		.Save
		 Response.Write "<Div align=""Center"">Il file  " & .GetFileName & "  è stato inserito correttamente!</Div>
"
        
		 Descrizione=Replace(.Form("Descrizione"), VbCrLf, "
")
		 Descrizione=Replace(Descrizione,"'","''")
		 Descrizione=Replace(Descrizione, "[", "<")	
		 Descrizione=Replace(Descrizione, "]", ">")
		 Descrizione=Replace(Descrizione, "URL=", "a href=")
		 Descrizione=Replace(Descrizione, "/URL", "/a")
		 Descrizione=Replace(Descrizione, "EMAIL=", "a href=mailto:")
		 Descrizione=Replace(Descrizione, "/EMAIL", "/a")
		 .Database.Fields("Descrizione") = Descrizione
		 .Database.Fields("Prezzo") = .Form("Prezzo")
         .Database.Fields("Foto") = .GetHTTPPathFile
		 .Database.AddNew()
		 
		 'cambio tabella
		 .Database.close()
		  
		 .SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../../../mdb-database/prodotti.mdb"), "SELECT * FROM Categorie"

		 .Database.Open()
		  
		  If .Form("Categoria_Tipo") = 2 Then
		     Categoria = .Form("Categoria")
			 If Categoria = "" Then
			 Response.write("<Div align=""center"">Nessuna Categoria inserita!

Torna indietro                             </Div>")
		     Else
		     .Database.Fields("Nome_Categoria") = Categoria
			 .Database.AddNew()

		    ' Quì dovrei recuperare l'ID 
                             ' e memorizzarlo in una variabile!

                                ?????
	 
			 .Database.close()
			 End If
	                  ElseIf .......

...............