تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سؤال بخصوص داتا قريد فيو
#1
السلام عليكم

اذا قلنا بأن كود لاظهار البيانات داخل ليست فيوا هذا :
كود :
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
           Dim sql As String = " Select * from [Rent_Equipment] WHERE [Ren_NO] = @Ren_NO "
           Using da As New OleDbDataAdapter(sql, conn)
               da.SelectCommand.Parameters.AddWithValue("@Ren_NO", Val(ComboBox1.Text))
               Using dt As New DataTable
                   da.Fill(dt)
                   ListView1.Items.Clear()
                   For Each row As DataRow In dt.Rows
                       ListView1.Items.Add(New ListViewItem({row("Equ_ID"), row("Equ_Name"), row("Equ_Quantity"), row("Ren_Date")}))
                   Next
               End Using
           End Using
       End Using
فما هو الكود للداتا قريد فيو ؟؟
الرد }}}}
تم الشكر بواسطة:
#2
Datagridview1.Datasource(dt)
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: الطالب
#3
سلام


كود :
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
    Dim sql As String = " Select * from [Rent_Equipment] WHERE [Ren_NO] = @Ren_NO "
    Using da As New OleDbDataAdapter(sql, conn)
        da.SelectCommand.Parameters.AddWithValue("@Ren_NO", Val(ComboBox1.Text))
        Using dt As New DataTable
            da.Fill(dt)

            DataGridView1.DataSource = dt

        End Using
    End Using
End Using

او

كود :
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
    Dim sql As String = " Select * from [Rent_Equipment] WHERE [Ren_NO] = @Ren_NO "
    Using da As New OleDbDataAdapter(sql, conn)
        da.SelectCommand.Parameters.AddWithValue("@Ren_NO", Val(ComboBox1.Text))
        Using dt As New DataTable
            da.Fill(dt)

            DataGridView1.Rows.Clear()
            For Each row As DataRow In dt.Rows
                DataGridView1.Rows.Add(New String() {row("Equ_ID"), row("Equ_Name"), row("Equ_Quantity"), row("Ren_Date")})
            Next

        End Using
    End Using
End Using


موفقين
متغيب
الرد }}}}
تم الشكر بواسطة:
#4
لم افهم حاولت اضعها واعدل على الكود مع تغيير مايلزم
ممكن اخي ان تشرح لي اكثر

مشكور اخوي الطالب شغال 100%
الرد }}}}
تم الشكر بواسطة:
#5
كود :
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
          Dim sql As String = " Select * from [Rent_Equipment] WHERE [Ren_NO] = @Ren_NO "
          Using da As New OleDbDataAdapter(sql, conn)
              da.SelectCommand.Parameters.AddWithValue("@Ren_NO", Val(ComboBox1.Text))
              Using dt As New DataTable
                  da.Fill(dt)
                  DataGridView1.DataSource = dt
              End Using
          End Using
End Using
الرد }}}}
تم الشكر بواسطة:
#6
شاهد الفيديو التالي:
https://www.youtube.com/watch?v=e5LV7XoNS6U
الرد }}}}
تم الشكر بواسطة:
#7
شباب ارجو النتباه تم حل المشكلة بفضل مجهود الاخ الكريم الطالب وشكرا
الرد }}}}
تم الشكر بواسطة:
#8
تعدد الحلول لا يضر.
الرد }}}}
تم الشكر بواسطة:
#9
شكرا اخوي على الرد الجميل
الرد }}}}
تم الشكر بواسطة: أبوبكر سويدان


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة ياشباب بخصوص الطباعة 0theghost0 0 90 16-08-16, 10:45 AM
آخر رد: 0theghost0
  [سؤال] بخصوص محاذاة محتويات التقرير الي يمين الصفحة eldmasy11 0 114 01-08-16, 02:20 PM
آخر رد: eldmasy11
  سؤال : بخصوص ReportViewr في اللغة العربية ؟ abid 2 176 01-06-16, 09:50 PM
آخر رد: abid
  [سؤال] سؤال حول التقارير بواسطة FastReport OsamaVB 6 1,070 07-10-15, 03:12 PM
آخر رد: OsamaVB
  [VB.NET] مساعدة بخصوص الريبورت theghost 13 1,365 28-08-15, 09:02 PM
آخر رد: theghost
  استفسار بخصوص الطباعة بالكريستال ريبورت hatem555 1 677 14-08-15, 06:35 PM
آخر رد: العزابي
  [سؤال] سؤال بخصوص تعديل التقارير mzdr 0 396 28-04-15, 11:40 PM
آخر رد: mzdr
  طباعة السجلات المحددة في الداتا قريد aftfm 2 944 28-11-14, 11:22 PM
آخر رد: atefkhalf2004
  اختيار للطباعة في داتا جريد محاسب يوسف 7 672 23-06-14, 12:45 PM
آخر رد: محاسب يوسف
  سؤال mesm23 0 300 14-05-14, 09:09 PM
آخر رد: mesm23

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


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