تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!

مُساهمة من طرف أحمد مناع في الخميس نوفمبر 01, 2012 10:17 am

بسم الله الرحمن الرحيم



أخوانى الكرام أهلا بكم ...ميعادنا اليوم أن شاء الله تعالى مع درس جديد من دروس منتدى مصر التقنى ....الدرس سيكون عن كيفية ربط أو عرض بيانات ملف Excel فى أداة عرض البيانات DataGrid ....فيها بنا نبدأ :



1_ قم بأنشاء مشروع جديد قياسى ثم قم بإدراج أداة عرض البيانات DataGrid الى الفورم .



2_ قم بأدراج المكتبة Microsoft Activex Data Objects للمشروع .



3_ قم بكتابة الكود التالى فى حدث Load للفورم :



الرمز:


 

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sconn As String
Dim sFile As String


sFile = App.Path & "\m.xls"
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockBatchOptimistic


sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile
rs.Open "SELECT * FROM [25$]", sconn
Set DataGrid1.DataSource = rs

 







شرح الكود :



السطر الاول و الثانى : قمنا بإشتقاق سجل أو مؤشر rs ليعبر عن جدول البيانات أو ورقة البيانات الموجودة فى الاكسل .



السطر الثالث : قمنا بالاعلان عن متغير نصى sconn وذلك لتخزين نص الاتصال بملف الاكسل .



السطر الرابع : قمنا بالاعلان عن متغير نصى أخر sFile وذلك لتخزين مسار ملف الاكسل .



السطر الخامس : قمنا بتخزين مسار ملف الاكسل المطلوب الاتصال به فى المتغير sFile .



اما السطر السادس و السابع و الثامن :هى اكواد خاصة بتحديد خواص rs .



السطر التاسع :قمنا بتخزين نص الاتصال الخاص بالاكسل فى المتغير sconn .



اما السطر العاشر : قمنا بعمل جملة استعلام لفتح الشيت 25 الموجود فى ملف الاكسل m والذى مساره مخزن فى المتغير sconn .



اما السطر العاشر : وضعنا مصدر البيانات لاداة عرض البيانات DataGrid تساوى rs





وفى النهاية ارجو ان يكون الدرس سهل الفهم و اليكم المشروع فى المرفقات .
المرفقات
test.zip لا تتوفر على صلاحيات كافية لتحميل هذه المرفقات.(10 Ko) عدد مرات التنزيل 70

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة

أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 810
النقاط : 1479
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!

مُساهمة من طرف NEXT في الجمعة نوفمبر 02, 2012 2:24 pm

ابداع يا ريس

NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 262
النقاط : 378
التقيم : 10
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!

مُساهمة من طرف VB.NET في الخميس أغسطس 15, 2013 8:56 am

مشكووووور

VB.NET
المراقبين
المراقبين

تاريخ التسجيل : 18/02/2011
المساهمات : 117
النقاط : 185
التقيم : 6
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!

مُساهمة من طرف end.sub في الإثنين سبتمبر 30, 2013 5:30 am

جزالك الله خيرا ...لكن هل فية امكانية لعمل العكس ...بمعنى عرض بيانات DataGrid الى أكسل ؟

end.sub
.....
.....

تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 131
التقيم : 9
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!

مُساهمة من طرف saadalhadi في الثلاثاء أكتوبر 01, 2013 7:13 am

مشكوووووووووور يااستاذ بس انا طالب منك ومن جميع الاخوان في المنتدي يعني لو امكن اني اعمل لي زر وهذا الزر يعمل browes لجميع الاشياء ومن ثم اقوم بفتح ملف الاكسل المطلوب ويقوم البرنامج بجلب هذه البيانات علي الdataGrid وجزاكم الله خيييييييير ^_^

saadalhadi
...
...

تاريخ التسجيل : 14/05/2013
المساهمات : 32
النقاط : 44
التقيم : 0
الدولة : السودان
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!

مُساهمة من طرف alfakeehy في الثلاثاء نوفمبر 25, 2014 1:47 pm

السلام عليكم


مساء الخير اخوان


هذا المشروع في المرفقات اتمنى منكم مساعدتي في تعديل الاكواد والبرنامج


الله يعطيكم العافيه ولا يحرمنا واياكم الاجر والموبه والف شكر لكم على تفاعلكم واهتمامكم وهذا ليس بالغريب على عمالقة الصرح الكبير


تحياتي وودي لمعاليكم

alfakeehy
.....
.....

تاريخ التسجيل : 21/11/2014
المساهمات : 84
النقاط : 120
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!

مُساهمة من طرف alfakeehy في الثلاثاء نوفمبر 25, 2014 1:50 pm

معليش اخوان بالغلط المشاركة هذي  Crying or Very sad Crying or Very sad Crying or Very sad Crying or Very sad

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ

alfakeehy
.....
.....

تاريخ التسجيل : 21/11/2014
المساهمات : 84
النقاط : 120
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!

مُساهمة من طرف RANA في الثلاثاء نوفمبر 25, 2014 3:21 pm


أخى لا تستخدم المرفقات قم برفع المشروع على سرفر المنتدى الخارجى و ستجدة شمال اعلى شريط الادوات الجانبى

RANA
....
....

تاريخ التسجيل : 01/08/2013
المساهمات : 64
النقاط : 103
التقيم : 1
الدولة : فلسطين
الجنس : انثى

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!

مُساهمة من طرف gadr في الخميس نوفمبر 27, 2014 4:45 pm

اخى الكريم ياريت ايكون العكس من داتا اقريد الى اكسل
او التعديل على هذه الكود المعمول بلفلكس اقريد الى داتا اقريد
Dim irow As Integer
    Dim icol As Integer
    Dim objExcl As Excel.Application
    Dim objWk As Excel.Workbook
    Dim objSht As Excel.Worksheet
    Dim iHead As Integer
    Dim vHead As Variant
    Set objExcl = New Excel.Application
    objExcl.Application.Visible = True
    Set objWk = objExcl.Workbooks.Add
    Set objSht = objWk.Sheets(1)
    vHead = Split(MSFlexGrid1.FormatString, "|")
    For iHead = 1 To UBound(vHead)
        If Len(Trim(vHead(iHead))) > 0 Then objSht.Cells(1, iHead) = vHead(iHead)
    Next
    For irow = 1 To MSFlexGrid1.Rows - 1
        For icol = 1 To MSFlexGrid1.Cols - 1
            MSFlexGrid1.Row = irow
            MSFlexGrid1.Col = icol
            objSht.Cells(irow + 1, icol) = MSFlexGrid1.Text
        Next icol
    Next irow
    '''''''''''''''''''''''''''''
    Set objSht = Nothing
    Set objWk = Nothing
    Set objExcl = Nothing

gadr
...
...

تاريخ التسجيل : 16/11/2014
المساهمات : 44
النقاط : 56
التقيم : 0
الدولة : ليبيا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!

مُساهمة من طرف gadr في السبت نوفمبر 29, 2014 9:54 am

وينك اخى احمد

gadr
...
...

تاريخ التسجيل : 16/11/2014
المساهمات : 44
النقاط : 56
التقيم : 0
الدولة : ليبيا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!

مُساهمة من طرف RANA في السبت نوفمبر 29, 2014 6:08 pm

gadr كتب:وينك اخى احمد

لما قرات مشاركة حضرتك اعتقدت ان الشفرة التى اتيت بها هى لفعل العكس

RANA
....
....

تاريخ التسجيل : 01/08/2013
المساهمات : 64
النقاط : 103
التقيم : 1
الدولة : فلسطين
الجنس : انثى

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!

مُساهمة من طرف السنى في السبت نوفمبر 29, 2014 7:40 pm

gadr كتب:وينك اخى احمد

أستخدم الكود التالى مع ملاحظة أن مصدر البيانات أو طريقة الاتصال بقاعدة البيانات هى الاداة adodc 


الرمز:
private sub cmdexport_click()
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
 
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Add
   Set oSheet = oBook.Worksheets(1)
   On Error GoTo errcode
 
   With oBook.Worksheets("sheet1").Rows(1)
        .Font.Bold = True
        For j = 0 To DataGrid1.Columns.Count - 1
            Worksheets("sheet1").Cells(1, j + 1).Value = DataGrid1.Column(j).Caption
        Next j
   End With
 
   oSheet.Range("A2").CopyFromRecordset Adodc1.Recordset
 
   oBook.SaveAs
   oBook.Close
   oExcel.Quit
   Exit Sub
errcode:
   MsgBox Err.Description, , Err.Source
 
End Sub
 

السنى
.......
.......

تاريخ التسجيل : 18/02/2011
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!

مُساهمة من طرف gadr في الإثنين ديسمبر 01, 2014 1:07 pm

RANA كتب:

لما قرات مشاركة حضرتك اعتقدت ان الشفرة التى اتيت بها هى لفعل العكس
نعم اخى هو يقوم بلعكس ولكن بفلكس اقريد وليس الداتا قريد

gadr
...
...

تاريخ التسجيل : 16/11/2014
المساهمات : 44
النقاط : 56
التقيم : 0
الدولة : ليبيا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!

مُساهمة من طرف أحمد مناع في الثلاثاء ديسمبر 02, 2014 8:06 pm

gadr كتب:وينك اخى احمد

هل يكفيك ما اتى به الاخ الكريم السنى ؟

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة

أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 810
النقاط : 1479
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!

مُساهمة من طرف gadr في الثلاثاء ديسمبر 02, 2014 11:11 pm

نعم اخى الكريم احمد الاستاذ السنى بارك الله فبه بس هذه الطريقة موجودة عندى ولا احب التعامل مع
الرمز:
Adodc
وكنت اود كود نفس الى فى المشاركة بداتا اقريد وليس الفلكس اقريد

gadr
...
...

تاريخ التسجيل : 16/11/2014
المساهمات : 44
النقاط : 56
التقيم : 0
الدولة : ليبيا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى