+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] شباب عند كتابة جملة SELECT ظهرت لى هذه الرسالة (/showthread.php?tid=11736)
شباب عند كتابة جملة SELECT ظهرت لى هذه الرسالة - احمد عبد الحكيم - 16-03-15
بسم الله الرحمن الرحيم
السلام عليكم شباب
قمت بعمل قوم 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]
RE: شباب عند كتابة جملة SELECT ظهرت لى هذه الرسالة - احمد عبد الحكيم - 16-03-15
شكرا جزيلا على ردك
المشكله انحلت لاكن ظهرلى البيانات متكررة
RE: شباب عند كتابة جملة SELECT ظهرت لى هذه الرسالة - احمد عبد الحكيم - 16-03-15
شكرا جزيلا لك اخى العزيز انا مش عارف اقلك ايه على حضورك الكريم معى وردك الكريم لاكن بردو ما نفعت انا وراها وراها لحد ما احلها وانشاء الله برفع الحل هنا
RE: شباب عند كتابة جملة SELECT ظهرت لى هذه الرسالة - محمد العبيدي - 17-03-15
اخي العزيز التكرار يظهر عندك لانك مو رابط الجدولين مع بعض
انت تستلم نتائج من جدولين فلازم يكون اكو شرط يربط بين الجدول الاول والجدول الثاني
لتكون جملة الاستعلام
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]
RE: شباب عند كتابة جملة SELECT ظهرت لى هذه الرسالة - احمد عبد الحكيم - 18-03-15
اخى العزيز شكرا جذيلا لكانا عملت اكثر من ذلك
لاكن توصلت طريقة جميله جدا وهى
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()