Recuperare codice di vendita

[Enrique_Rojas]

Originariamente inviato da rixx
io avevo capito che tu volevi portare copiare il codice di vendita nella tabella due non estrarlo ogni volta dalla tabella 1!

Rixx

Capisco che il mio nome vi fa capire che sono di madrelingua spagnola, però pensavo d'essermi ben spiegato... la lingua italiana la conosco discretamente bene...

[rixx]

 
strSQL = "SELECT * FROM anagrafica"
'ricorda che qua devi fare un where quello che ti interessa se ho capito
'bene
   Set RS = ConnDown.Execute(strSQL)
id = Rs("nome_articolo")


SQL = "SELECT * FROM storico WHERE nome_articolo = '"&id&"' ORDER BY IDART ASC"

tra parentesi la soluzione di inserire un nuovo campo nella tabella due e copiarci dentro i dati che ti servono ti fa risparmiare te mpo

Rixx

[Enrique_Rojas]

Non estrae più nulla nemmeno dalla tabella storico...

[rixx]

certo se incolli il codice cosi come te l'ho passato mi pare probabile :rollo:
deve funzionare in quel modo ma se hai un codice particolare per la prima stringa di connessione questo non lo so :S

Rixx

psosta tutto il tuo codice va

[Roby_72]

Non ho ancora capito una cosa: le due tabelle hanno almeno un campo in comune?

Roby

[Enrique_Rojas]

Originariamente inviato da Roby_72
Non ho ancora capito una cosa: le due tabelle hanno almeno un campo in comune?

Roby

grazie, ne hanno più di uno:
-prima tabella (anagrafica):
ID = contatore chiave primaria
IDLinea = numerico
nome_articolo = testo
prezzo = valuta
codice_di_vendita = numerico


-seconda tabella (storico):
IDART = numerico
IDLinea = numerico
nome_articolo = testo
prezzo = valuta

[rixx]

si sono tutti in comune o quasi il punto è come devi visualizzare i dati e quali dati vuoi visualizzare..

Rixx

[Roby_72]

SQL = "SELECT storico.*,anagrafica.codice_di_vendita FROM storico, anagrafica WHERE anagrafica.id = storico.idart AND storico.nome_articolo = '"& quelloche ti pare&"' ORDER BY IDART ASC"

Roby

[Enrique_Rojas]

Originariamente inviato da rixx
certo se incolli il codice cosi come te l'ho passato mi pare probabile :rollo:
deve funzionare in quel modo ma se hai un codice particolare per la prima stringa di connessione questo non lo so :S

Rixx

psosta tutto il tuo codice va

ma chi l'ha incollato come lo hai scritto tu? ecco il code:

Dim ConnDown, SQLDown, RS, SQL

nome_Articolo = request.form("nome_Articolo")
 
Set ConnDown = Server.CreateObject("ADODB.Connection") 
ConnDown.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"anagrafica.mdb") 

Set RS = server.CreateObject("ADODB.Recordset")

SQL = "SELECT * FROM anagrafica WHERE nome_articolo = '"& nome_articolo &"' "
Set RS = ConnDown.Execute(SQL)


id = RS("nome_articolo")

SQLDown = "SELECT * FROM storico WHERE nome_articolo = '"& id &"' ORDER BY IDCD ASC"
Set RS = ConnDown.Execute(SQLDown)

if RS.eof then 
response.write "NESSUN RECORD CORRISPONDE IN QUESTO MOMENTO AI CRITERI DI SELEZIONE 
 
" 
else 
While Not RS.EOF 
%>

<tr> 

<td align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=RS("nome_articolo")%></td>

....

<%
RS.MoveNext
Wend
end if

RS.Close
Set RS = Nothing

ConnDown.Close
Set ConnDown = Nothing
%>

[rixx]

fatti un response.write della variabile


id = RS("nome_articolo")


per vedere se è vuota

Rixx