NO non va bene, ci avevo provato
Infatti se sposto le righe prima del close poi non le legge più e mi dà il seguente errore:
ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal. /protetta_home.asp, line 121
cioè come si fa puoi aiutarmi?
Salve a tutti,
Problemino con la somma dei valori da tabelle in access (spero che la spiegazione sia abbastanza chiara).
Nella pagina protetta del cliente devo far vedere la sua situazione contabile, esattamente quanto ha pagato, il valore dei preventivi inviati, e il saldo. Mi ritrovo quindi più tabelle concatenate fra loro e creare due somme che asua volta devono essere sommate fra loro.
io ho fatto cosi:
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT SUM(costo) AS Totale, SUM(ImportoPagamento) AS Totalep, Utenti.Paese, immagine, NomeSocietà, NomeContatto, CognomeContatto, IndirizzoFatturazione, Città, StatoOProvincia, dare, aver' e, contratto, Utenti.id"
SQL = SQL & " FROM [inviipreventivi],[Pagamenti],[Utenti],[Contatti]"
SQL = SQL & " where username = '" & session("username") &"' and inviipreventivi.id = Utenti.ID and inviipreventivi.idContatto = Contatti.ID "
SQL = SQL & " and Pagamenti.IDCliente = Utenti.ID "
SQL = SQL & " GROUP BY costo, ImportoPagamento, Utenti.Paese, immagine, NomeSocietà, NomeContatto, CognomeContatto, IndirizzoFatturazione, Città, StatoOProvincia, dare, avere, contratto, Utenti.i' d"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
e funziona però mi da valori sballati ed esattamente la prima somma la moltiplica per la somma dei record del TotaleP
e la seconda somma la moltiplica per il totale dei record dl Totale.
per essere più chiaro:
il cliente ha fatto 3 pagamenti per un totale di ?.400
e ha ricevuto 15 preventivi per un totale di ?. 300
il risultato che ottengo è:
somma dei pagamenti (400 x 15)
somma preventivi (300 x 3)
la differenza tra pagamenti e preventivi la esegue correttamente
Strano vero!!!
Ho modificato inserendo una sola somma per ogni RecSet e funziona ma il problema e che chiudendo il RecSet per avere poi la differenza non ho più i dati.
e cioè:
<td width="693"><p align="center"> <font size="3" face="Verdana"><b><i>Situazione Contabile:</i></b></font></p>
<%
RecSet.Close
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT SUM(ImportoPagamento) AS Totalep FROM [Pagamenti],[Utenti] where username = '" & session("username") &"' and Pagamenti.IDCliente = Utenti.ID"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
%>
<p align="center"><font size="3" face="Verdana"><b><i>importi versati: ?. <%=RecSet("Totalep")%></i></b></font></p>
<%
RecSet.Close
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT SUM(costo) AS Totale FROM [inviipreventivi],[Utenti],[Contatti] where username = '" & session("username") &"' and inviipreventivi.id = Utenti.ID and inviipreventivi.idContatto = Contatti.ID"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
%>
<p align="center"><font size="3" face="Verdana"><b><i>importi di preventivi
ricevuti: ?. <%=RecSet("Totale")%></i></b></font></p>
<p align="center"><font size="3" face="Verdana"><b><i>saldo: ?. <%
n1= RecSet("Totalep")
n2= RecSet("Totale")
' =Response.Write(IsNumeric("dare")+IsNumeric("avere"))
Response.Write (n1-n2)
%></i></b></font></p>
Qualcuno di Voi saprebbe aiutarmi (se avete capito qualcosa) in tutto questo casino.
problema risolto (mi sono dimenticato di scriverlo)
funziona così:
SQL = "SELECT * FROM [inviipreventivi],[Utenti],[Contatti] where Utenti.ID = " & Request.QueryString("id") &" and inviipreventivi.id = Utenti.ID and inviipreventivi.idContatto = Contatti.ID"
provato anche ad eliminare le quadre da tutte le tabelle ma il risultato e lo stesso
solo dai contatti? e le altre due tabelle?
si da lo stesso errore
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'inviipreventivi.id = Utenti.id inner join [Contatti] ON inviipreventivi.idContatto = Contatti.IDContatto'
e i nomi sono corretti
No purtroppo non è quello avevo solo digitato in modo errato.
Correzione dell' ortografia (faceva schifo)
scusami se rompo ancora ma adesso il problema nasce nell'inserimento della terza tabella [contatti] che mi riporta al punto iniziale.
ti riporto la riga corretta:
SQL = "SELECT * FROM [inviipreventivi] inner join [Utenti] ON inviipreventivi.id = Utenti.id inner join [Contatti] ON inviipreventivi.idContatto = Contatto.IDContatto where Utenti.ID = " & Request.QueryString("id") &""
dove sbaglio?
P.s. la tabella innviipreventivi e quella che possiede gli id delle altre due tabelle.
scusami se rompo ancora ma adesso il prblema nasce nell'inserimento della tera tabella [contatti] che mi riporta al punto iniziale.
ti riporto la riga corretta:
SQL = "SELECT * FROM [inviipreventivi] inner join [Utenti] ON inviipreventivi.id = Utenti.id inner join [Contatti] ON inviipreventivi.idContatto = Contatto.IDContatto where Utenti.ID = " & Request.QueryString("id") &""
dove sbaglio?
P.s. la tabella innviipreventivi e quella cha possiede gli id delle altre due tabelle.
provato e funziona grazie mille!!!
si ha lo spazio, provo ad eliminarlo e ti faccio sapere
Salve a tutti,
Vi sembrerà banale (e sicuramente lo è) ma mi sono bloccato su un semplice collegamento tra due tabelle di un db.
Mi spiego meglio devo far vedere sulla pagina protetta di un cliente le richieste di preventivo che gli sono state inviate. Il cliente quindi deve aprire con un link una pagina dove visualizza le sue ruchieste. a questo punto io creo una relazione tra le due tabelle:
<%
' PERCORSO DEL DATABASE
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/fpdb/mdb-database/database.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB
Set RecSet = Server.CreateObject("ADODB.Recordset")
' PRELEVA I DATI DELL'UTENTE SELEZIONATO
SQL = "SELECT * FROM Utenti inner join invii preventivi ON Utenti.id = invii preventivi.id where Utenti.ID = " & Request.QueryString("id") &""
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
' CONTROLLA SE L'UTENTE ESISTE...
IF Not RecSet.Eof Then
%>
ma da questo comando ottengo il seguente errore:
Microsoft OLE DB Provider for ODBC Driverserror '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'Utenti.id = invii preventivi.id'. /elenco_preventivi.asp, line 35
strano perchè si le tabelle sia i campi sono digitati in modo corretto.
Ringrazio anticipatamente chiunque voglia aiutarmi.
se sapevo cosa c'era d'altro avrei cercato di porvi rimedio...
La cosa strana e che ripeto dall'avvio della campagna è tutto ok non ho errori e non ho messaggi da google (ignorano anche le mie email) l'unica cosa e quella benedetta frase sulle paroli chiavi (HAI SUPERATO IL BUDGET GIORNALIERO) e dato che ho latre due campagne attive per altri siti, penso di sapere come si imposta e come si procede. Inoltre le alltre due campagne procedono tranquillamente...
strano vero?
allora sei riusciuto a sbloccare?
ad oggi sono già trascorsi circa 20 giorni e non è cambiato nulla, campagna ancora ferma nessuna risposta e nulla di nulla.
ti ringrazio per la risposta mister.jinx
mi sembra che il problema sia recente, infatti guardando su vari forum ho notato poche segnalazioni e tutte recenti, mi confermi questo dato?
inoltre cosa devo fare assistere impotente e pazientare? 
scusate ma anch' io da ieri ho lo stesso problema,
attivazione nuovo account, tutto attivo ma non funziona. Sulle parole chiave appare la scritta che ho superato il budget. sapete dirmi se avete risolto il problema? e come?