ciao a tutti, ho la seguente pagina asp: crea_fattura.asp dove all'interno ho una select dinamica del seguente tipo:

<%
sql = "SELECT cognome,nome1,nome2,data_nascita FROM carico_scarico group by cognome,nome1,nome2,data_nascita"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
%>
                                   <%
Response.write( "<select name='cliente'>")
'Ciclo Recordset
do until rs.eof
Response.write ("<option value='"& rs("cognome") &" "& rs("nome1") &" "& rs("nome2") &" "& rs("data_nascita") &"'>")
Response.write (" "& rs("cognome") &" - ")
Response.write (" "& rs("nome1") &" - ")
Response.write (" "& rs("nome2") &" - ")
Response.write (" "& rs("data_nascita") &"</option>")
rs.movenext
loop
Response.write("</select>")
%>

dalla quale invio alla pagina1.asp i Valori: Cognome, Nome1, Nome2, Data Nascita.

Nella Pagina1.asp

devo visualizzare tutti i valori nel db in base alla scelta precedente però non so come farlo....

Io ho creato la sequente query:

<%
ID=Request("cliente")

sql = "SELECT cognome,nome1,nome2,data_nascita FROM carico_scarico WHERE cognome="& ID
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
%>

però mi cerca solo il cognome all'interno della tabella del db.

Come posso fare ad effettuare la ricerca?.

Grazie

se caricarsi i valori di minimo_scorta in un array e poi li confrontassi con la sql?. Non ho mai usato un array quindi non saprei da che punto iniziare. Tu come faresti a risolvere questo problema?. Non so proprio come fare....

"select quantita, Sum(quantita) As Totale from magazzino where Totale < " & minimo_scorta & " Group By quantita"

però non mi funziona

per prima cosa ti ringrazio per la disponibilità sia per questo thread che per l'altro a cui mi hai risposto.

mi spiego meglio, ho realizzato una cosa più semplice:

ho raggruppato il tutto in una sola tabella chiamata magazzino

nella quale ho:

...
articolo
quantità
minimo_scorta
...

quello che devo creare è il seguente:

se il valore quantità è < del minimo_scorta, mi deve uscire una scritta: L'Articolo XXXX è inferiore al minimo della scorta quindi si prega di provvedere ad ordinarlo

se il valore quantità è > del minimo_scorta non devo visualizzare nulla.

Mi potresti dare una mano a creare questa parte di programma?

Grazie

ho modicficato come segue:

 <%
 Dim rsReport__MMColParam
rsReport__MMColParam = "1"
If (Request.QueryString("data") <> "") Then 
rsReport__MMColParam = Request.QueryString("data")
End If
%>
         <%
dataInizio = month(Request.QueryString("dataInizio")) & "/" & day(Request.QueryString("dataInizio")) & "/" & year(Request.QueryString("dataInizio")) 
dataFine = month(Request.QueryString("dataFine")) & "/" & day(Request.QueryString("dataFine")) & "/" & year(Request.QueryString("dataFine")) 
    
Dim mdb
mdb = "../../Database/db.mdb"
'creiamo l'oggetto Connection
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
'apriamo la connessione
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath(mdb)
'settiamo la nostra stringa SQL 
Dim str_sql
str_sql = "SELECT articolo_carico,  Sum(quantita_carico) AS totale1 FROM magazzino WHERE (data between #"&dataInizio&"# And #"&dataFine&"#)"
'creiamo l'oggetto RS 
set rs = conn.execute(str_sql)
DO WHILE NOT RS.EOF
%>
                       <input type="text" name="quantita_carico" value="<%=rs("totale1")%>">
                       <%
RS.MOVENEXT
LOOP
%>

però mi da il seguente errore:

Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC Microsoft Access] Impossibile eseguire una query che non include l'espressione "articolo_carico" specificata come parte di una funzione di aggregazione.
/test/magazzino/dati/intervallo_date/pagina1.asp, line 68

Chi mi può aiutare???.

ciao a tutti, devo realizzare una interrogazione su db access che mi estragga i valori all'interno di due date. Ho scritto la seg. stringa:

Dim mdb
mdb = "../../Database/db.mdb"
'creiamo l'oggetto Connection
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
'apriamo la connessione
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath(mdb)
'settiamo la nostra stringa SQL 
Dim str_sql
str_sql = "SELECT codice_articolo_carico,  Sum(quantita_carico) AS totale1 FROM magazzino WHERE (data between #"&dataInizio&"# And #"&dataFine&"#) GROUP BY articolo_carico"
'creiamo l'oggetto RS 
set rs = conn.execute(str_sql)
DO WHILE NOT RS.EOF
%>
                        <input type="text" name="quantita_carico" value="<%=rs("totale1")%>">
                        <%
RS.MOVENEXT
LOOP
%>

però mi da il seguente errore:

Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC Microsoft Access] Errore di sintassi nella data nell'espressione della query '(data between ## And ##)'.
/test/magazzino/dati/intervallo_date/pagina1.asp, line 58

Come posso fare a correggerlo?.

ciao a tutti, ho il seguente problema:

ho un modulo asp dove inserisco:

cod_articolo
articolo
descrizione
quantita
prezzo
giacenza

nella tabella articolo

ho un modulo asp dove inserisco

cod_articolo
articolo
quantita
prezzo

nella tabella carico_scarico:

avrei bisogno di creare una sql dove faccio una interrogazione che mi permetta la visualizzazione solo dei valori presenti che hanno una giacenza inferiore a quella inserita nella tabella articolo.

Come posso fare?. Grazie

questa è la stringa:

<!--#include file="nomepagina.asp"-->

dove nomepagina.asp è quella che devi sostituire con quella che vuoi inserire nel tuo contesto

Ciao a tutti non so proprio da dove iniziare:

Devo creare una fattura del seguente tipo con FPDF però non ho nessuna idea su come farla. Mi aiutate per favore?.

Estrarre i dati da asp per popolare la fattura lo so fare però il problema è scrivere il PDF con i campi della fattura. Grazie.

Vi allego il modello di fattura che devo realizzare.

ciao a tutti, ho il seguente problema:

devo realizzare un pdf che mi estrae i dati da un database; riesco a farlo solo se non inserisco un header ed un footer. altrimenti mi da il seguente errore:

Tipo di errore:
Errore di compilazione di Microsoft JScript (0x800A03EC)
Previsto ';'
/test/magazzino/articoli/pdf_header.asp, line 35, column 4
Set Conn=Server.CreateObject("ADODB.Connection")
---^

vi posto il codice così magari mi date una mano nel trovare l'errore. grazie

<%@language=javascript%>
<!--#include file="fpdf.asp"-->
<%
// Creazione dell'oggetto
pdf=new FPDF();
// Ridefinizione delle funzioni
pdf.Header=function Header()
{
this.Image('foto.jpg',10,8,80,40);
this.SetFont('Arial','B',18);
this.Cell(80);
this.Cell(0,10,'Nome della Ditta',0,0,'C');
this.Ln(6);
this.SetFont('Arial','B',14);
this.Cell(80);
this.Cell(0,10,'Nome Cognome Proprietario',0,0,'C');
this.Ln(5);
}
pdf.Footer=function Footer()
{
this.SetY(-15);
this.SetFont('Arial','I',8);
this.Cell(0,10,'Page '+ this.PageNo()+ '/{nb}',0,0,'C');
}
// Main
pdf.CreatePDF()
pdf.SetPath("fpdf/")
pdf.Open()
pdf.AddPage()
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("../Database/db.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM articoli"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
do while not(rs.eof)
// Valorizzazione variabili
prodotto = rs.Fields("codice_articolo")
totale = rs.Fields("articolo")
quantita = rs.Fields("descrizione")
pippo = rs.Fields("catalogo")
peppo = rs.Fields("fornitore")
pdf.SetFont "Arial","",8
pdf.Cell 10,2," "&prodotto&" ",0
pdf.Cell 50,2," "&totale&" ",0
pdf.Cell 30,2," "&quantita&" ",0
pdf.Cell 30,2," "&catalogo&" ",0
pdf.Cell 30,2," "&fornitore&" ",0
pdf.Ln(5)

rs.movenext
i=i+1
Loop

rs.close

pdf.Close()
pdf.Output()
%>

ciao a tutti, ho il seguente problema:

ho una pagina dalla quale estraggo i dati da una tabella di un db access in cui ho diversi campi tra cui uno di tipo data.

Quando li visualizzo però la data me la mette in formato anglosassone e non italiano; come posso fare a risolvere questo problema?.

cutted

grazie per la collaborazione

grazie mille, il response mi da la seguente stringa:

[CENTER]SELECT * FROM ddt_finale WHERE (data BETWEEN #10/1/2007# And/30/2007#) AND nome_esercizio= 'I Caffi S.R.L.' ORDER BY esercizio ASC[/CENTER]

lo devo mettere così il response?

      <%
 Dim rsReport__MMColParam

rsReport__MMColParam = "1"
If (Request.QueryString("data") <> "") Then
rsReport__MMColParam = Request.QueryString("data")
End If
%>
<%
dataInizio = month(Request.QueryString("dataInizio")) & "/" & day(Request.QueryString("dataInizio")) & "/" & year(Request.QueryString("dataInizio"))
dataFine = month(Request.QueryString("dataFine")) & "/" & day(Request.QueryString("dataFine")) & "/" & year(Request.QueryString("dataFine"))

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("../Database/db.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM ddt_finale WHERE (data BETWEEN #"&dataInizio&"# And #"&dataFine&"#) AND nome_esercizio= '" &REQUEST("nome_esercizio")& "' ORDER BY esercizio ASC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
do while not(rs.eof)

response.write str_sql

%>

non mi da nessun valore a video

no non mi da errori però mi prende intervalli di date sbagliate

non funziona.... mi da sempre intervalli di dati sbagliati
es gli dico: dal 01/10/2007 al 30/10/2007, mi mette anche dei valori del mese 09

ho provato a modificare come mi hai detto però mi da il seguente errore:

str_sql = "SELECT articolo, Sum(quantita) AS totale1 FROM calcolo_fattura WHERE (data >=#"&dataInizio&"# AND data <= #"&dataFine"&#) AND nome_esercizio= '" &REQUEST("nome_esercizio")& "' GROUP BY articolo"

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0401)
Prevista fine istruzione
/test/Lavanderia_Rivalta/fattura/pagina1.asp, line 289, column 129
**str_sql = "SELECT articolo, Sum(quantita) AS totale1 FROM calcolo_fattura WHERE (data >=#"&dataInizio&"# AND data <= #"&dataFine"&#) AND nome_esercizio= '" &REQUEST("nome_esercizio")& "' GROUP BY articolo"
**

grazie per la risposta; no, non ho mai provato a farlo in access perchè non so come si fa. Mi puoi aiutare a farlo?

ciao a tutti ho il seguente problema:

ho una pagina che mediante un form mi manda due date:

data inizio e data fine.

Ho bisogno di elaborarle per la visualizzazione dei valori sono in quel periodo
ho fatto come segue ma non funziona:

<%
dataInizio=request("dataInizio")
dataFine=request("dataFine")

Dim rsReport__MMColParam
rsReport__MMColParam = "1"
If (Request.QueryString("data") <> "") Then
rsReport__MMColParam = Request.QueryString("data")
End If
%>
<%
dataInizio = month(Request.QueryString("dataInizio")) & "/" & day(Request.QueryString("dataInizio")) & "/" & year(Request.QueryString("dataInizio"))
dataFine = month(Request.QueryString("dataFine")) & "/" & day(Request.QueryString("dataFine")) & "/" & year(Request.QueryString("dataFine"))

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("../Database/db.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM ddt_finale WHERE (data BETWEEN #"&dataInizio&"# And #"&dataFine&"#) AND nome_esercizio= '" &REQUEST("nome_esercizio")& "' ORDER BY esercizio ASC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

Ciao a tutti e un grosso saluto; sono nuovo del forum e volevo ringraziarvi tutti per l'aiuto che mi potrete dare su questo problema che ho.

il problema è il seguente:

ho una pagina asp dove richiamo con due select dinamiche la persona a cui voglio emettere la fattura e poi ho due campi testo uno chiamato dataInizio e l'altro dataFine dove inserisco l'intervallo di tempo in cui voglio che avvenga la fatturazione e poi passo questi valori ad una seconda pagina in cui li richiamo mediante una query.string e faccio l'interrogazione del db con una select. Però ho il seguente problema: quando visualizzo i dati, non mi da i valori richiesti nell'intervallo specificato ma, me li prende tutti....

vi passo il codice così potete vedere di persona:

fattura.asp:

[Cut]

grazie mille per tutto e a presto