ciao a tutti
ho bisogno di un consiglio
spiego il prob...
io ho una tabella Archi che corrisponde a gli archi che formano le strade di una citta
Ogni archo ha un suo identivicativo e un NodoIniziale e un NodoFinale che li cogiungono ad altri archi....
Ora io per tracciare una strada (tot archi)
la prima volta scelgo l'arco da cui partire.
poi chiedo di trovarmi tutti gli archi in connessi tramite i nodi....
e ne scelgo uno
Ora da questo devo continuare ma eliminando a prescindere il nodo da cui arrivo....
allora avevo deciso di salvare nell'oggetto arco una proprieta NodoPartenza dove va a metter il valore del nodo da dove faccio la select pero me vien un problema
come faccio a fare che le due select che devo far poi visualzzare su datagrid siano unite??? considerando che nn lo posso fare da sql (che stousando come base dati)
Posto il codice che forse spiega meglio di me ehehehe!!!!!
*************************************************
Public Function GetarchiConnessi(arcosel as arco)
sql = New SqlConn ' nuovo oggeto per le connessioni a sql
sql.Tabella = "archi" 'tabella su cui si lavora
Dim data As New DataSet
Try
sql.Query = ""
'IMPOSTO LA SELECT DA FARE
'sql.Query = "select * from archi where (REF_IN_ID = '" & ArcoDaFermata.NodoIniziale & "' or NREF_IN_ID = '" & ArcoDaFermata.NodoIniziale & "' or REF_IN_ID = '" & ArcoDaFermata.NodoFinale & "' or NREF_IN_ID = '" & ArcoDaFermata.NodoFinale & "') and Link_Id <> '" & ArcoDaFermata.Link_ID & "' "
sql.Query = "Select * From Archi Where (REF_IN_ID = '" & ArcoSel.NodoIniziale & "' or NREF_IN_ID = '" & ArcoSel.NodoIniziale & "') and link_id <> '" & ArcoSel.Link_ID & "' "
DOPO AVERLA ESEGUITA CARICO NEL DATASET
data = sql.Vista
sql.Close()
QUA FACCIO IN MODO CH PER OGNI OGGETTO RIGA CHE TROVA NE DATASET CRAEA UN OGETTO ARCO E LO VALORIZZA E INSERISCE NELLA PROPRIETA NODOPARTENZA IL NODOINIZIALE DEL ARCO SU CUI FACCIO LA SELECT
For Each myTable In data.Tables
For Each myRow In myTable.Rows
Dim arco As New Arco
list.Add(arco)
arco.NodoPartenza = ArcoSel.NodoIniziale
For Each myColumn In myTable.Columns
arco.Link_ID = myRow("Link_Id")
arco.NodoIniziale = myRow("REF_IN_ID")
arco.NodoFinale = myRow("NREF_IN_ID")
arco.Categoria = myRow("Func_Class")
If myRow("St_Name") Is DBNull.Value Then
arco.Nome = ""
Else
arco.Nome = myRow("St_Name")
End If
Next
Next
Next
ORA DOVREI RIFARE LA SELECT PER NODO FINALE E VALORIZZARE LA PROPRIETA NODOPARTENZA DEGLI ARHCI CHE ANDRA A CREARE CON IL VALORE DEL NODO FINALE DA DOVE PARTO
sql.Query = "Select * From Archi Where (REF_IN_ID = '" & ArcoSel.NodoFinale & "' or NREF_IN_ID = '" & ArcoSel.NodoFinale & "') and link_id <> '" & ArcoSel.Link_ID & "' "
data = sql.Vista
sql.Close()
For Each myTable In data.Tables
For Each myRow In myTable.Rows
Dim arco As New Arco
list.Add(arco)
arco.NodoPartenza = ArcoSel.NodoFinale
For Each myColumn In myTable.Columns
arco.Link_ID = myRow("Link_Id")
arco.NodoIniziale = myRow("REF_IN_ID")
arco.NodoFinale = myRow("NREF_IN_ID")
arco.Categoria = myRow("Func_Class")
If myRow("St_Name") Is DBNull.Value Then
arco.Nome = ""
Else
arco.Nome = myRow("St_Name")
End If
Next
Next
Next
Return data
Catch ex As Exception
MsgBox("errror")
End Try
end function
************************************************** ***************+
Rispondi quotando
