Uno-a-molti in access 2000

[fraude]

Soliti problemi con le relazioni in un databse access, ho due tabelle:

tabella_A = ID, Nome
tabella_B = ID, Nome, Operazione

la tabella_B registra (discriminando per ID) tutte le operazioni eseguite da quel determinato Nome della tabella_A.

devo associare il campo ID della tabella_A con il campo Nome della tabella_B con relazione uno-a-molti ma quando al creo nel database mi viene restituito:

'Espressione digitata non correttamente o troppo complessa per essere valutata... Semplificare assegnando parti dell'espressioni a variabili'

che significa?

Grazie

[kalosjo]

:gren:

Se lo fai con le tabelle già piene può fallire....

Comunque ID della tabella_B non deve essere chiave...

[fraude]

Originariamente inviato da kalosjo
:gren:

Se lo fai con le tabelle già piene può fallire....

Comunque ID della tabella_B non deve essere chiave...

Grazie per il suggerimento, ma relazionando ID di tabella_A e nome di tabella_B (mettendo ID di tabella_B non chiave) non funziona...
le tabelle sono semivuote...

[kalosjo]

Ho capito....

non puoi relazionare id e nome.......

nella tabella b occorre un campo di relazione, che credevo fosse id

quindi:

Tabella_B
ID (proprio, chiave primaria)
ID_A (corrispondente id della tabella A)
Nome
Operazione

a questo punto quando inserisci nella tabella B metti in
ID un numero univoco
ID_A l'ID della tabella A a cui si riferisce
Nome e Operazione come da programma

e relazioni ID della tabella_A con ID_A della tabella_B

[fraude]

Grazie mille, risolto il problema della relazione... adesso però devo spostare in asp quanto detto ed ho scritto:

<% 
pagina = request.servervariables("path_info") 
id = request.querystring("id") 

if len(id) > 0 and isnumeric(id) then 
id = clng(id) 
else 
id = 0 
end if 

set conn = server.createobject("adodb.connection") 
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};" &_ 
"DBQ="& Server.MapPath("lond.mdb") 

sql = "select * from tabella_A order by Nome" 

set rs = conn.execute(sql) 

Function ConvertiData(data)
    giorno = Mid(data, InStr(1, data, "/") + 1, InStrRev(data, "/") - InStr(1, data, "/") - 1)
    mese = Left(data, InStr(1, data, "/") - 1)
    anno = Right(data, Len(data) - InStrRev(data, "/"))
    ConvertiData = giorno & "/" & mese & "/" & anno
End Function


if not rs.eof then 


%> 
<% do until rs.eof %> 
<option value="<%=pagina%>?id=<%=rs("ID")%>"<% if rs("ID") = id then %> selected<% end if %>><%=rs("Nome")%></option> 
<% 
rs.movenext 
loop 
end if 
%> 
</select> 
<% 
rs.close 
set rs = nothing 

if ID > 0 then 

sql = "select * from tabella_B where ID = " & ID 

set rs = conn.execute(sql) 

if not rs.eof then 

DATA = ConvertiData(CStr(RS("DATA")))

%> 
<h1><%=rs("Nome")%></h1> 

ID: <%=rs("Nome")%>
 
Data: <%=DATA%>

  
 
<% 
end if 
end if
rs.close 
set rs = nothing 

end if 'fine if id > 0 then 
conn.close 
set conn = nothing 


%>

ma restituisce errore alla riga 84:
Microsoft VBScript compilation error '800a0400'
Expected statement

end if 'fine if id > 0 then

se elimino la riga 84:
Microsoft VBScript runtime error '800a01a8'
Object required: 'rs'
riga 81:

rs.close

[Joe Taras]

end if 'fine if id > 0 then
conn.close
set conn = nothing

Questo end if mi sembra di troppo.

[Joe Taras]

Altrimenti è di troppo il secondo end if alla riapertura del tag <%

[fraude]

Originariamente inviato da Joe Taras
end if 'fine if id > 0 then
conn.close
set conn = nothing

Questo end if mi sembra di troppo.

Infatti eliminadolo, restituisce:

Microsoft VBScript runtime error '800a01a8'
Object required: 'rs'
riga 81:

rs.close

[Joe Taras]

<%
end if
end if --> Questo è di troppo
rs.close
set rs = nothing

end if 'fine if id > 0 then
conn.close
set conn = nothing


%>

[fraude]

ok, grazie adesso non dà errore, ma non estrae nulla...