I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
masterkain
masterkain
l'11 giugno 2001 alle 16:50
12 messaggi dal 08 giugno 2001
salve a tutti, chiedevo un'istruzione per inserire un record in un determinato punto in un database access.. mettiamo che ho una colonna chiama ID e questa ha valore 10, le altre colonne sono vuote. ad un certo punto dove proprio la riga dell'Id è 10 io dovrei riempire gli altri campi.. dovrebbe avere i permessi impostati ad 2 e 3, se qualcuno mi posterebbe il codice almeno di esempio mi farebbe un grosso favore..

si apre la connession con il database tramite connection
si apre con connessione recordset
si seleziona la riga interessata
mettiamo i valori nelle istanze dell'oggetto
e facciamo un update :o)

solo che STRANAMENTE non va.. vabbè vediamo se c'è nu buon cuore che mi aiuta :)

kain
18


RispondiQuoting
biz
biz
l'11 giugno 2001 alle 17:31
22 messaggi dal 22 maggio 2001
In questo codice i dati vengono postati da un form. I dati postati sono: ID (per trovare per esempio la tua riga 10) e i campi da modificare ... se i dati postati sono vuoti allora non modifica il corrispondente campo del database. Opentable e closeteble sono funzioni che ho scritto a parte ... praticamente è la connessione less DSN.

<%
'===================== MAIN ======================================
ID = Request.Form("ID")*1
data = Request.Form("data")
titolo = Request.Form("titolo")
occhiello = Request.Form("occhiello")
testo = Request.Form("testo")
'Response.Write("<br>id:" & ID)
'Response.Write("<br>" & data)
'Response.Write("<br>" & titolo)
'Response.Write("<br>" & occhiello)
'Response.Write("<br>" & testo)

dim arr_campi(4), arr_nome_campo(4)
arr_campi(0) = "data"
arr_campi(1) = "titolo"
arr_campi(2) = "occhiello"
arr_campi(3) = "testo"

arr_nome_campo(0) = data
arr_nome_campo(1) = titolo
arr_nome_campo(2) = occhiello
arr_nome_campo(3) = testo

OpenTable("news")
do while rs.EOF = false
xID = rs.Fields("ID")
'Response.Write("<br>ID del database: " & xID)
'Response.Write("<br>ID passato dal form: " & ID)
if xID = ID then
'Response.Write("<br>TROVATO1!")
trovato = true
' verifica che il campo non sia vuoto
' fa un ciclo per i 4 cam
for i = 0 to 3 step 1
' se il campo è vuoto allora viene lasciato il campo preesistente
if not arr_nome_campo(i) = empty then
'Response.Write("<br>arr_nome_campo(i): " & arr_nome_campo(i))
'Response.Write("<br>arr_campi(i): " & arr_campi(i))
rs.Fields(arr_campi(i)) = arr_nome_campo(i)
rs.update
'Response.Write("<br>TROVATO2!")
end if
next
end if
rs.movenext
loop
Call CloseTable()
Response.Redirect ("index.html")
%>
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.