تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طباعة معلومات من قاعدة البيانات
#1
السلام عليكم ارجوا المساعدة في كود vb لطباعة معلومات من قاعدة البيانات 
فبعد ما اعمل select للمعلومات كيف يمكنني طباعتها بشكل منظم ومرتب فمثلا في php وال asp.net يمكننا فعلها من خلال tables فكيف يمكن ذلك في vb
انا استخدم visual basic 2008,لغة c++ وليس c# واستخدم قاعدة بيانات sql وليس access
وكنت قد جربت هذا الكود ولكن لم ياتي بالنتيجة المطلوبة ارجوا المساعدة ولكم الاجر والثواب
كود :
Dim da As SqlDataAdapter
       Dim dt As DataTable
       Dim sqlconn As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\m7md\Documents\Visual Studio 2008\Projects\Cars\Cars\cars.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
       dt = New DataTable
       da = New SqlDataAdapter
       Dim sql As String = ("select * from tbl_cars ")
       da = New SqlDataAdapter(sql, sqlconn)
       sqlconn.Open()
       da.Fill(dt)
       For Each drRow As DataRow In dt.Rows
           Label6.Text= (drRow.Item("db_type").ToString)
           Label7.Text = (drRow.Item("db_gender").ToString)
           Label8.Text = (drRow.Item("db_color").ToString)
           Label9.Text = (drRow.Item("db_price").ToString)

       Next
الرد
تم الشكر بواسطة:
#2
السلام عليكم و رحمة الله و بركاته
بهذا الكود لا يمكنك إظهلر إلا السجل الأخير في الليبل 
أذا أرذت إظهار جميع السجلات استعمل أداة DataGridView
السلام عليكم و رحمة الله و بركاته
الرد
تم الشكر بواسطة:
#3
شكرا لكم وهذا الكود للاستفادة 
كود :
Dim currentDate As DateTime = DateTime.Now
        Dim da As SqlDataAdapter
        Dim sqlconn As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\m7md\Documents\Visual Studio 2008\Projects\Cars\Cars\cars.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
        Dim cm As String = ("select * from tbl_cars ")
        Dim ds As New DataSet
        da = New SqlDataAdapter(cm, sqlconn)
        ds.Clear()
        DataGridView1.DataSource = Nothing
        da.Fill(ds, "tbl_cars")
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "tbl_cars"
        DataGridView1.Columns(0).Width = 50
        DataGridView1.Columns(1).Width = 200
        DataGridView1.Columns(1).Width = 200
        DataGridView1.Columns(3).Width = 200
        DataGridView1.Columns(4).Width = 200
        DataGridView1.Columns(0).HeaderText = "N"
        DataGridView1.Columns(1).HeaderText = "TYPE"
        DataGridView1.Columns(2).HeaderText = "Gender"
        DataGridView1.Columns(3).HeaderText = "COLOR"
        DataGridView1.Columns(4).HeaderText = "PRICE"
الرد
تم الشكر بواسطة:
#4
من وجهة نظري للطباعة أستخدم تقارير rdcl المرفقة مع الفيجوال

[صورة مرفقة: 15-06-2012%2022.50.49.jpg]
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [SQL] مشكلة في ربط قاعدة البيانات SQLSERVER2014 بـ فيجول بيسك 2017 اباذر 4 102 16-03-19, 12:00 AM
آخر رد: اباذر
  طريقة ادخال اعداد تحتوي على فاصلة في قاعدة البيانات segma 21 396 12-03-19, 10:23 PM
آخر رد: segma
  [VB.NET] البحث عن مسار مجلد ضمن قاعدة البيانات اكسس وفتحه من الفورم EMADSSS 1 107 21-02-19, 04:38 PM
آخر رد: elgokr
  (سؤال؟)كود اضافة التاريخ في قاعدة البيانات اسمهان 1 155 20-02-19, 11:08 AM
آخر رد: alfaiz678
  [VB.NET] فتح مسار مجلد موجود بقاعدة البيانات خاص بكل اسم EMADSSS 0 93 13-02-19, 01:03 AM
آخر رد: EMADSSS
  قاعدة بيانات بيانات ال sql مع الفجوال 2008 raaddawood 0 151 02-02-19, 11:16 AM
آخر رد: raaddawood
  تصحيح كود الحفظ لقاعدة البيانات raaddawood 15 319 28-01-19, 08:53 PM
آخر رد: raaddawood
  كود sql اضافة او تغير كلمة المرور لقاعدة البيانات اللورد محمود 1 122 28-01-19, 06:56 PM
آخر رد: عبد العزيز البسكري
  اجمالى الفواتير فى قاعدة البيانات atef_020 10 408 22-01-19, 03:44 PM
آخر رد: atef_020
  [سؤال] اريد جعل قاعدة البينات تقبل ادخل لاكثر من يوزر فى نفس الوقت issamsaidd 2 241 30-12-18, 08:33 PM
آخر رد: issamsaidd

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


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