تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] شباب عند كتابة جملة SELECT ظهرت لى هذه الرسالة
#1
بسم الله الرحمن الرحيم
السلام عليكم شباب
قمت بعمل قوم SELECT للتركيز على حقلين من جدولين معينين
هذا هو الكود
PHP كود :
[align=leftDataAdapter1 = 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
فظهرت لى هذه الرساله


الملفات المرفقة صورة/صور
   
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد }}}}
تم الشكر بواسطة:
#2
شكرا جزيلا على ردك
المشكله انحلت لاكن ظهرلى البيانات متكررة
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد }}}}
تم الشكر بواسطة:
#3
شكرا جزيلا لك اخى العزيز انا مش عارف اقلك ايه على حضورك الكريم معى وردك الكريم لاكن بردو ما نفعت انا وراها وراها لحد ما احلها وانشاء الله برفع الحل هنا
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد }}}}
تم الشكر بواسطة:
#4
اخي العزيز التكرار يظهر عندك لانك مو رابط الجدولين مع بعض
انت تستلم نتائج من جدولين فلازم يكون اكو شرط يربط بين الجدول الاول والجدول الثاني
لتكون جملة الاستعلام
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]
الرد }}}}
تم الشكر بواسطة: سعود
#5
اخى العزيز شكرا جذيلا لكانا عملت اكثر من ذلك
لاكن توصلت طريقة جميله جدا وهى

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(Sql1Con)
        
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(Sql3Con)
        
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() 
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] تغير لون كتابة التيكست بوكس ؟ Mido9 5 2,347 30-11-16, 10:16 PM
آخر رد: omferas
  [SQL] مشكلة عند الاتصال بالسيكوال سيرفر تظهر الرسالة التالية Asmaa adel 8 178 21-11-16, 11:58 PM
آخر رد: Asmaa adel
  [سؤال] ماهى جملة الاستعلام المناسبة للاستعلام عن قيم طبقا لاحدث تاريخ محمود بكرى 5 155 12-11-16, 12:52 AM
آخر رد: محمود بكرى
  اضافىة نص الي جملة الاستعلام makky 2 59 10-11-16, 01:42 AM
آخر رد: makky
Photo ما هو سبب هذه الرسالة samira20 1 45 30-10-16, 06:18 AM
آخر رد: أبو عمر
Lightbulb المساعدة في معرفة طريقة كتابة الأكواد بشكل صحيح ... Arabia 0 70 26-10-16, 03:18 PM
آخر رد: Arabia
  مشكلة ظهرت بعد تغيير الكمبيوتر abdalla89 11 289 20-10-16, 02:01 AM
آخر رد: محمود بكرى
  listview select item Mohamed20 1 77 12-10-16, 03:00 AM
آخر رد: LoveVb
  [VB.NET] طلب انشاء جملة update في مشروعي Codack 7 193 11-10-16, 04:41 PM
آخر رد: Codack
  [سؤال] كود كتابة ارقام فقط في داتا جريد فيو ابو يوسف النواوي 2 144 30-09-16, 11:58 PM
آخر رد: ابو يوسف النواوي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم