operazioni di carico e scarico con database e asp

**daxie** · 04-06-2008, 08:56

ciao a tutti,

ho bisognoso di fare un database che gestisca una specie di magazzino con carico e scarico di materiale. Ho cominciato a fare una tabella in cui ho i campi "codice parte", "descrizione" "SR" e "quantità".
volevo sapere se facendo una maschera di inserimento è possibile far in modo che il sistema si "accorga" che gli sto inserendo un determinato prodotto già presente nel db e fare in modo che aggiunga solo la quantità che gli inserisco o nel caso dello scarico che la sottragga.
è possibile fare una cosa del genere? e come?
grazie mille!

**Domenix** · 04-06-2008, 09:49

Conosci SQL?
Sai fare una SELECT? E una UPDATE?
Conosci la clausola WHERE?

**daxie** · 04-06-2008, 09:59

si la so fare..come la devo impostare?

avevo pensato di fare un update impostato in questo modo:

io ho una pagina dove sono elencate tutte le mie parti

cliccando su una di queste parti apro una pagina in cui i dati che sn presenti nella riga del db li vedo inseriti in un form che posso modificare quindi faccio una pagina di riepilogo, confermo e faccio l'update cn rs.update

che ne dici? potrebbe funzionare?

è un pò macchinoso ma mi sembra fili...

ora faccio un pò d prove se funziona posto il codice così se a qualcun'altro serve lo può usare

**Domenix** · 04-06-2008, 10:22

La logica è giusta.
Cliccando sul prodotto in elenco chiami una pagina che ti mostra la FORM con i dati da modificare.
In un campo HIDDEN metti l'ID del record da aggiornare.
Modificati i dati e fatto submit li passi ad una pagina che fa l'UPDATE dei campi dove ID = ID preso dal campo HIDDEN della FORM.

**daxie** · 04-06-2008, 10:35

perfetto...lo sto già facendo..poi posto il codice!
grazie mille! dom!

D.

**daxie** · 04-06-2008, 11:54

allora io ho fatto così:

pagina 1
visualizzo l'elenco delle parti presenti nel database (codice parte, descrizione, Service Request e quantità)

<%@LANGUAGE="VBSCRIPT"%>

<% Response.Expires= -1500%>
<html>
<head>
<title>STA Solution - Trunkstock</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="stile.css" rel="stylesheet" type="text/css">
</head>

<body>
<%
Set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&server.MapPath("mdb-database/trunkstock.mdb")
sql="select * from T_PARTI"
set rs =server.CreateObject("adodb.recordset")
rs.open sql,conn
%>

<table width="755" align="center" border="0">
<tr>
<td align="center" colspan="2">[img]logo.jpg[/img]</td>
</tr>
<tr>
<td width="755" colspan="2" bgcolor="E4E4E4" align="right">
<a href="AreaRiservata.asp">
<font color="#006633" size="+1">
.:indietro:.
</font>
</a>
</td>
</tr>
<tr>
<td align="center"> <font color="#006633" size="+1"> Pannello di controllo
trunkstock</font> </td>
</tr>
<tr>
<td>
<table border="0" width="755">
<tr>
<td height="20">Codice parte</td>
<td height="20">Descrizione parte</td>
<td height="20">SR</td>
<td height="20">Quantità</td>
<td height="20">Modifica</td>

(il codice qui sotto nel caso di un elenco serve a colorare una riga di grigio e una di bianco)
<%
i=1
do until (rs.eof)
If i Mod 2=0 Then
bg="#EAEAEA" 'colore sfondo
ft="#000000" 'colore carattere
Else
bg="#FFFFFF"
ft="#000000"
end if
%>
<tr bgcolor="<%= bg %>">
<td height="20"><font color="<%= ft %>"><%= rs("cod_parte") %></font></td>
<td height="20"><font color="<%= ft %>"><%= rs("descrizione") %></font></td>
<td height="20"><font color="<%= ft %>"><%= rs("SR") %></font></td>
<td height="20"><font color="<%= ft %>"><%= rs("quantita") %></font></td>
<td>"><div align="center">[img]images/images_modifica.gif[/img]</div></td>

</tr>
<%
i=i+1
rs.movenext
loop
%>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

</td>
</tr>

</table>

</body>
</html>

clicco su modifica -> tramite l'id della parte accedo alla pagina 2 dove posso modificare la quantità (usando la stessa procedura si può modificare anche gli altri dati -> part number descrizione e SR)

<%@LANGUAGE="VBSCRIPT"%>

<% Response.Expires= -1500%>
<html>
<head>
<title>STA Solution - Trunkstock</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="stile.css" rel="stylesheet" type="text/css">
</head>

<body>
<%
Set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&server.MapPath("mdb-database/trunkstock.mdb")
sql="select * from T_PARTI where ID_parte="&request("idpart")
set rs =server.CreateObject("adodb.recordset")
rs.open sql,conn
%>
<form action="confermamodificaparte.asp" method="post">
<input type="hidden" value="<%= rs("ID_parte") %>" name="idpart" class="testo">
<table width="755" align="center" border="0">
<tr>
<td align="center" colspan="2">[img]logo.jpg[/img]</td>
</tr>
<tr>
<td width="755" colspan="2" bgcolor="E4E4E4" align="right">
<a href="trunkstock.asp">
<font color="#006633" size="+1">
.:torna all'elenco:.
</font>
</a>

<a href="AreaRiservata.asp">
<font color="#006633" size="+1">
.:area riservata:.
</font>
</a>
</td>
</tr>
<tr>
<td align="center"> <font color="#006633" size="+1"> Pannello di controllo
trunkstock </font> </td>
</tr>
<tr>
<td>
<table border="0" width="755">
<tr>
<td height="20">Codice parte</td>
<td height="20">Descrizione parte</td>
<td height="20">SR</td>
<td height="20">Quantità</td>
<%
i=1
do until (rs.eof)
If i Mod 2=0 Then
bg="#EAEAEA" 'colore sfondo
ft="#000000" 'colore carattere
Else
bg="#FFFFFF"
ft="#000000"
end if
%>
<tr bgcolor="<%= bg %>">
<td height="20"><font color="<%= ft %>"><%= rs("cod_parte") %></font></td>
<td height="20"><font color="<%= ft %>"><%= rs("descrizione") %></font></td>
<td height="20"><font color="<%= ft %>"><%= rs("SR") %></font></td>
<td height="20"><font color="<%= ft %>"><input type="text" name="quantita" value="<%= rs("quantita") %>" width="100%"></font></td>

</tr>
<%
i=i+1
rs.movenext
loop
%>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

</td>

</tr>
<tr>
<td><input type="submit" value="Esegui la modifica"></td>
</tr>
</table>
</form>
</body>
</html>

Cliccando su esegui modifica mi manda alla pagina di update del campo nel database e mi reindirizza alla pagina 1:

<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
Set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&server.MapPath("mdb-database/trunkstock.mdb")
set rs =server.CreateObject("adodb.recordset")
sql="select * from T_PARTI where ID_parte="&request("idpart")
rs.open sql, conn,3,3
rs("quantita")=request("quantita")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect("trunkstock.asp")
%>

</body>
</html>

ecco qui...spero sia chiaro e utile a chi ne ha bisogno

**Domenix** · 04-06-2008, 11:58

Io cambierei qualcosa su pagina 2:

codice:

<%
idpart = request("idpart")
if len(idpart) = 0 or (not isNumeric(idpart)) then idpart = 0(idpart)
Set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&server.MapPath("mdb-database/trunkstock.mdb")
sql="select * from T_PARTI where ID_parte="& idpart
set rs =server.CreateObject("adodb.recordset")
rs.open sql,conn
%>

In questo modo eviti che se la pagina 2 riceve un parametro non valido vada in errore

**daxie** · 04-06-2008, 12:01

si ma come farebbe ad andare in errore? l'id part corrisponde a un campo nel db che si chiama ID_parte ed è un contatore quindi i valori che genera sono numerici e univochi..

**Domenix** · 04-06-2008, 12:07

Chiama direttamente sul browser la pagina 2 (senza aver aggiunto le mie modifiche) e poi mi dici.

**daxie** · 04-06-2008, 12:13

ho fatto cm mi hai detto e avevi ragione, quindi ho inserito il codice che mi hai detto e mi da questo errore:

Microsoft VBScript runtime error '800a000d'

Type mismatch: '[number: 0]'

/modifica_parte_arcuni.asp, line 16

la linea 16 corrisponde a:

if len(idpart) = 0 or (not isNumeric(idpart)) then idpart = 0(idpart)

Discussione: operazioni di carico e scarico con database e asp

Strumenti discussione

Ricerca discussione

Visualizza

operazioni di carico e scarico con database e asp

Permessi di invio