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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] طريقة البحث ابو يوسف النواوي 2 1 72 أمس, 08:03 PM
آخر رد: Awad Issa
  عرض معلومات ف DatagridView Emam emam 6 171 أمس, 04:46 PM
آخر رد: Emam emam
  طريقة عمل موقع على النت salah mansour 0 30 15-12-18, 11:44 PM
آخر رد: salah mansour
  جمع الكمية لصنف واحد داخل datagridview atef_020 22 488 15-12-18, 03:09 PM
آخر رد: atef_020
  [VB.NET] جمع قيمة اثناء عملية تحديث البيانات محمد اسماعيل 0 38 14-12-18, 07:32 PM
آخر رد: محمد اسماعيل
  استفسار عن كود تلوين صف معين بناءًا على تحقق شرط بخلية في الداتاجريدفيو Hazem1 9 241 14-12-18, 02:31 PM
آخر رد: عبدالله الدوسري
  استفسار حول أداة Checkbox Hazem1 2 73 11-12-18, 10:04 AM
آخر رد: Hazem1
  تقرير كريستل ريبورت يطلب كلمة المرور علي جهاز العميل makky 1 60 10-12-18, 11:59 PM
آخر رد: ahmadpal
  [VB.NET] استفسار :- مشكله اعاني منها كثير is not valid for 'rowIndex dubai.eig 1 43 10-12-18, 02:43 PM
آخر رد: elgokr
  [سؤال] استيراد بيانات لقاعدة البيانات وعمل مقارنة nandy2016 1 69 08-12-18, 02:22 PM
آخر رد: nandy2016

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


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