تقييم الموضوع :
  • 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)عبد العزيز البسكري كتب :
السّلام عليكم و رحمة الله و بركاته
و كيف يتم ملء الداتا جريد بالبيانات أخي الكريم ؟؟
تحياتي

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة في الكريستال ريبورت abu.hanen4u 2 65 اليوم, 04:48 AM
آخر رد: abu.hanen4u
  [VB.NET] تصدير البيانات من عدة جداول الى قالب وورد معد مسبقا" aljzazy 1 72 21-05-19, 02:03 PM
آخر رد: alshandodi
  أدوات قواعد البيانات في الدوت نت وطريقة استخدامها معتز حسن 4 158 16-05-19, 01:42 PM
آخر رد: elgokr
Heart [VB.NET] كل عام وانتم بخير ... محتاج كود نسخ قاعدة البيانات تلقائيا abdullhadi999 32 721 15-05-19, 08:24 PM
آخر رد: asemshahen5
  خطأ أثناء عملية البحث في DATAGRIDVIEW ahmedfa71 5 72 14-05-19, 04:10 PM
آخر رد: elgokr
  [VB.NET] تعديل اكتر من صف بقاعدة البيانات محمد اسماعيل 7 209 11-05-19, 09:21 PM
آخر رد: elgokr
  datagridview combo box ghias 3 85 11-05-19, 04:25 PM
آخر رد: elgokr
  [VB.NET] استفسار بسيط اسامه الهرماوي 3 90 05-05-19, 07:26 PM
آخر رد: asemshahen5
  [VB.NET] قواعد البيانات MDF اسامه الهرماوي 3 138 05-05-19, 01:24 AM
آخر رد: ابراهيم ايبو
  فلترة البيانات باستخدام رسم بياني العيدروس 11 244 03-05-19, 01:34 AM
آخر رد: العيدروس

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


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