المساعدة في انشاء استعلام

السلام عليكم ورحمة الله وبركاته

اخوتي الكرام اعضاء المنتدى

كل عام وانتم بخير

ارجو منكم جميعا المساعدة فانا في اشد الحاجة اليها حيث اعمل على مشروع لابد لي من تسليمه خلال ايام

تواجهني في هذا المشروع عقبة الا وهي انه لدي جدول

edges (parent_id,child_id)

يحتوي هذا الجدول على حقلين

Parent_id: يمثل النقطة الأب

child_id :يمثل النقطة التابعة لها في العلاقة

المطلوب في هذا المثال ان اجد المسارات بمعنى انه لو عندي

تصبح المسارات المتاحة لدينا هي

p1,p2,p5

p1,p2,p7

p1,p3,p15

p1,p4,p25

لذلك قممت بانشاء جدول اسمه path

هذا الجدول بناء على استعلام

select * from edges;

ثم قمت بالعمل على الناتج

   sql = "select parent_id,child_id from edges"
   ' MsgBox(sql)
   conn.Open()
   cmd = New OleDbCommand(sql, conn)
   dr = cmd.ExecuteReader

   While dr.Read
	Dim path As String = dr.Item(0) & "," & dr.Item(1)
	'   MsgBox(path)
	Dim sql1 As String = " insert into path values('" & dr.Item(0) & "','" & dr.Item(1) & "','" & path & "')"
	If con.State = ConnectionState.Closed Then
	 con.Open()
	End If
	cmd1 = New OleDbCommand(sql1, con)
	cmd1.ExecuteNonQuery()
   End While
   cmd1.Dispose()
   con.Close()
   conn.Close()

ثم للوصول للنتيجة النهائية كتبت هذا الاستعلام والذي قرأته في مثال تمت كتابته في mysql

ولكنه لم يعطني اي نتائج

sql = "SELECT path.node_id, edges.child_id FROM path, edges WHERE path.child_id=edges.parent_id"
   '  MsgBox(sql)
   conn.Open()
   cmd = New OleDbCommand(sql, conn)
   dr = cmd.ExecuteReader
   If Not dr.Read Then
	MsgBox("no result pathes")
   End If

   While dr.Read
	Dim pathes As String = dr.Item(2) & "," & dr.Item(1)

	Dim sql1 As String = "insert into pathes values('" & pathes & "')"
	MsgBox(sql1)
	con.Open()
	cmd1 = New OleDbCommand(sql1, con)
	cmd1.ExecuteNonQuery()

مع العلم ان الكود الاصلي المكتوب بال mysql مكتوب كالتالي

CREATE OR REPLACE VIEW nextroutes AS
  SELECT
 routes.depart,
 flights.arrive,
 CONCAT(routes.route, ',', flights.arrive) AS route,
  FROM routes INNER JOIN flights
 ON routes.arrive = flights.depart
 GROUP BY depart,arrive;

لذا أرجو منكم مساعدتي هل هناك خطأ في كتابة الاستعلام او هل هناك من لديه اي فكرة للوصول للنتيجة الطلوبة نداء من محترفي البرمجة مساعددتي

ولكم جزيل الشكر