Estrarre coppie di record

[Giubass]

Ciao Raga scusate per il titolo ma non sapevo cosa mettere.

Vi spiego il mio problema: ho un database così strutturato:

Dovrei in sostanza estrarre le coppie di cani ovviamente maschio/femmina in modo tale da ottenere un risultato di questo tipo:
Come potete vedere le coppie che dovrei estrarre dovrei ricavarle dai nomi presenti in AccoppiatoCon1, tenendo conto ovviamente del campo nome.

Per fare tutto ciò che logica dovrei usare?
Grazie

[buji]

Fai una query solo sui maschi e per ogni record ripercorri la tabella cercando tutte le femmine con lui accoppiate (a naso direi che ogni maschio può essere usato per più accoppiamenti).
Grosso modo potrebbe essere una logica adatta

[Giubass]

Originariamente inviato da buji
Fai una query solo sui maschi e per ogni record ripercorri la tabella cercando tutte le femmine con lui accoppiate (a naso direi che ogni maschio può essere usato per più accoppiamenti).
Grosso modo potrebbe essere una logica adatta

Se ho ben capito dovrei, all'interno della query (maschi), estrarre tramite un' altra query (femmine) le femmine?

Avevo abbozzato una cosa del genere:

strSQL=" SELECT * FROM Cani WHERE (InAccoppiamento=True) And (Sesso='Maschio') And (AccoppiatoCon1<>Null)"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText
		  
If Not objRS.EOF Then		  

While Not objRS.EOF

strSQL=" SELECT * FROM Cani WHERE (InAccoppiamento=True) And (Sesso='Femmine') And (AccoppiatoCon1='"&CosaMetto?&"')"
   Set objRS = Server.CreateObject("ADODB.Recordset")
   objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText

...  

objRS.MoveNext
Wend

...

Ma mi manca qualche passaggio...

[Teo80]

Se ho ben capito quello che vuoi fare:

strSQL=" SELECT * FROM Cani WHERE (InAccoppiamento=True) And (Sesso='Femmine') And (AccoppiatoCon1='"&objRS("NOME")&"')" 

occhio che sotto riusi gli stessi nomi per gli oggetti e riapri (inutilmente) due volte la connessione.

[Giubass]

Ho provato così ma non succede nulla:

      
strSQL_M=" SELECT * FROM Cani WHERE (InAccoppiamento=True) And (Sesso='Maschio') And (AccoppiatoCon1<>Null)"
Set objRS_M = Server.CreateObject("ADODB.Recordset")
Set objRS_M = objConn.Execute(strSQL_M)
		  
If Not objRS_M.EOF Then		  

While Not objRS_M.EOF

   strSQL_F=" SELECT * FROM Cani WHERE (InAccoppiamento=True) And (Sesso='Femmine') And (AccoppiatoCon1='"&objRS_M("AccoppiatoCon1")&"')" 
   Set objRS_F = Server.CreateObject("ADODB.Recordset")
   Set objRS_F = objConn.Execute(strSQL_F)
   
   While Not objRS_F.EOF
   
   Response.Write(objRS_M("Nome") & objRS_F("Nome"))
   
   objRS_F.MoveNext
   Wend

objRS_M.MoveNext
Wend

:rollo:

[Giubass]

Avevo commesso un errore, "Femmine" invece di "Femmina" :

<%        
strSQL_M=" SELECT * FROM Cani WHERE (InAccoppiamento=True) And (Sesso='Maschio') And (AccoppiatoCon1<>Null)"
Set objRS_M = objConn.Execute(strSQL_M)
	  
If Not objRS_M.EOF Then		  

While Not objRS_M.EOF

   strSQL_F=" SELECT * FROM Cani WHERE (InAccoppiamento=True) And (Sesso='Femmina') And (AccoppiatoCon1='"&objRS_M("Nome")&"')" 
   Set objRS_F = objConn.Execute(strSQL_F)
   
   While Not objRS_F.EOF
%>

....

Grazie a tutti