تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استفسار عن طريقة نقل البيانات من Datagridview إلى الكريستال ريبورت
#1
السلام عليكم ورحمة الله وبركاته 

شاكرا لكم مقدماً مجهودكم الرائع في المنتدى 

أريد أن أعرف طريقة نقل البيانات من Datagridview إلى الكريستال ريبورت بالتفصيل لو سمحتوا 
أأتعبني هذا الموضوع بدرجة كبيرة 
الرد
تم الشكر بواسطة:
#2
السّلام عليكم و رحمة الله و بركاته
و كيف يتم ملء الداتا جريد بالبيانات أخي الكريم ؟؟
تحياتي
الرد
تم الشكر بواسطة:
#3
Imports System.Data.OleDb

Public Class Form1

Dim con As New OleDbConnection

Dim adapter As New OleDbDataAdapter

Dim dtmain_Moad, dtShoab, dtStudents As New DataTable

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

adapter = New OleDbDataAdapter(" select * from main_Moad ", con)

adapter.Fill(dtmain_Moad)

ComboBox1.DataSource = dtmain_Moad

ComboBox1.DisplayMember = "Lable"

ComboBox1.ValueMember = "ID"

Label1.Visible = False



End Sub

Public Sub New()

' This call is required by the designer.

InitializeComponent()

con.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\newTemp1\newTemp1.accdb")

' Add any initialization after the InitializeComponent() call.

End Sub

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

Try

dtShoab.Clear()

adapter = New OleDbDataAdapter(" select * from Shoab where ID_Mada =" & ComboBox1.SelectedValue, con)

adapter.Fill(dtShoab)

ComboBox2.DataSource = dtShoab

ComboBox2.DisplayMember = "Lable"

ComboBox2.ValueMember = "ID"

Catch ex As Exception

End Try

End Sub

Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged

Try

dtStudents.Clear()

adapter = New OleDbDataAdapter(" select * from Students where Id_Shoba =" & ComboBox2.SelectedValue, con)

adapter.Fill(dtStudents)

DataGridView1.DataSource = dtStudents

Label1.Text = DataGridView1.Rows.Count - 1

Label1.Visible = False

If DataGridView1.Rows.Count - 1 > 0 Then

Label1.Visible = True

End If

Catch ex As Exception

End Try

End SubEnd Sub
(20-10-18, 08:35 PM)عبد العزيز البسكري كتب :
السّلام عليكم و رحمة الله و بركاته
و كيف يتم ملء الداتا جريد بالبيانات أخي الكريم ؟؟
تحياتي

هذا هو الكود أخي الكريم
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برجاء تجربة المثال المرفق لتصدير البيانات الى اكسيل new_programer 7 122 منذ 4 ساعة مضت
آخر رد: new_programer
  [سؤال] عرض الصورة من قاعدة البيانات محمد اسماعيل 3 72 أمس, 06:28 AM
آخر رد: princelovelorn
  [VB.NET] استفسار :- هل صحيح كتابه الكود بهذه الطريقه dubai.eig 8 167 14-02-19, 06:52 PM
آخر رد: ابراهيم ايبو
  تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات عبدالله اااا 4 102 14-02-19, 06:46 PM
آخر رد: عبد العزيز البسكري
Rainbow [VB.NET] أسرع طريقة للتحقق من هل الجدول فارغ sniperjawadino 6 224 12-02-19, 06:46 PM
آخر رد: ابراهيم ايبو
  [VB.NET] ماهي أفضل طريقة لتخزين رقم والنداء عليه في كل مرة sniperjawadino 9 207 12-02-19, 04:20 PM
آخر رد: princelovelorn
  تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات عبدالله اااا 3 96 11-02-19, 11:39 PM
آخر رد: princelovelorn
  طريقة عمل زر تراجع عن الامر undo احمد خطاب 0 58 11-02-19, 08:22 AM
آخر رد: احمد خطاب
  [VB.NET] استفسار بخصوص تحريك الماوس والضغط dubai.eig 0 54 08-02-19, 06:42 PM
آخر رد: dubai.eig
  عرض صورة في الكريستال ريبورت ولكنها موجوده في جدول منفصل Emam emam 8 179 07-02-19, 04:34 PM
آخر رد: عبد العزيز البسكري

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


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