منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طباعة معلومات من قاعدة البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : طباعة معلومات من قاعدة البيانات (/showthread.php?tid=281)

طباعة معلومات من قاعدة البيانات - m7md2991 - 26-09-13

السلام عليكم ارجوا المساعدة في كود 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


RE: طباعة معلومات من قاعدة البيانات - تركي قرمزلي - 27-09-13

السلام عليكم و رحمة الله و بركاته
بهذا الكود لا يمكنك إظهلر إلا السجل الأخير في الليبل 
أذا أرذت إظهار جميع السجلات استعمل أداة DataGridView
السلام عليكم و رحمة الله و بركاته

RE: طباعة معلومات من قاعدة البيانات - m7md2991 - 27-09-13

شكرا لكم وهذا الكود للاستفادة 
كود :
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"


RE: طباعة معلومات من قاعدة البيانات - العزابي - 27-09-13

من وجهة نظري للطباعة أستخدم تقارير rdcl المرفقة مع الفيجوال

[صورة مرفقة: 15-06-2012%2022.50.49.jpg]