منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - شباب عند كتابة جملة SELECT ظهرت لى هذه الرسالة

بسم الله الرحمن الرحيم
السلام عليكم شباب
قمت بعمل قوم SELECT للتركيز على حقلين من جدولين معينين
هذا هو الكود

PHP كود :

[align=left] DataAdapter1 = New OleDbDataAdapter("SELECT * FROM entag1,entag2 where entag1.entagID = " & TextBox1.Text & " AND entag2.entagID =" & TextBox1.Text & "'", Con)
        Dim dt As New DataTable()
        DataAdapter1.Fill(dt)
        Dim cr As New CrystalReport3
        cr.SetDataSource(dt)
        reportMa.CrystalReportViewer1.ReportSource = cr
        reportMa.ShowDialog()[/align] 

فظهرت لى هذه الرساله

شكرا جزيلا على ردك
المشكله انحلت لاكن ظهرلى البيانات متكررة

شكرا جزيلا لك اخى العزيز انا مش عارف اقلك ايه على حضورك الكريم معى وردك الكريم لاكن بردو ما نفعت انا وراها وراها لحد ما احلها وانشاء الله برفع الحل هنا

اخي العزيز التكرار يظهر عندك لانك مو رابط الجدولين مع بعض
انت تستلم نتائج من جدولين فلازم يكون اكو شرط يربط بين الجدول الاول والجدول الثاني
لتكون جملة الاستعلام
SELECT * FROM entag1,entag2 where entag1.entagID =entag2.ntagID AND entntag2.ntagID =" & TextBox1.Text

[url=http://vb4arb.com/vb/private.php?action=send&uid=7095][/url]

اخى العزيز شكرا جذيلا لكانا عملت اكثر من ذلك
لاكن توصلت طريقة جميله جدا وهى

PHP كود :

Dim FrmPr As New reportMa

        Dim Sql1 As String = "Select * from entag1 where entagID like " & TextBox1.Text & ""

        Dim MyDs2 As New DataSet
        Dim DAdp2 As New OleDbDataAdapter(Sql1, Con)
        MyDs2.Clear()
        DAdp2.Fill(MyDs2, "entag1")
        Dim rpt As New CrystalReport7
        rpt.Load()
        rpt.SetDataSource(MyDs2.Tables("entag1"))
  

        Dim Sql3 As String = "Select * from entag2 where entagID like " & TextBox1.Text & ""
        Dim DAdpt3 As New OleDbDataAdapter(Sql3, Con)
        Dim Ds1 As New DataSet
        Ds1.Clear()
        DAdpt3.Fill(Ds1, "entag2")
        DAdpt3.Dispose()
      

      

        FrmPr.CrystalReportViewer1.ReportSource = rpt
        FrmPr.CrystalReportViewer1.ShowGroupTreeButton = False
        FrmPr.CrystalReportViewer1.RightToLeft = Windows.Forms.RightToLeft.Yes
        FrmPr.CrystalReportViewer1.Zoom(90%)
        FrmPr.CrystalReportViewer1.Refresh()
        FrmPr.CrystalReportViewer1.Show()
        FrmPr.ShowDialog()
        DAdp2.Dispose()
        Con.Close() 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

احمد عبد الحكيم

احمد عبد الحكيم

احمد عبد الحكيم

محمد العبيدي

احمد عبد الحكيم