تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!
صفحة 1 من اصل 1 • شاطر
تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!
بسم الله الرحمن الرحيم
أخوانى الكرام أهلا بكم ...ميعادنا اليوم أن شاء الله تعالى مع درس جديد من دروس منتدى مصر التقنى ....الدرس سيكون عن كيفية ربط أو عرض بيانات ملف Excel فى أداة عرض البيانات DataGrid ....فيها بنا نبدأ :
1_ قم بأنشاء مشروع جديد قياسى ثم قم بإدراج أداة عرض البيانات DataGrid الى الفورم .
2_ قم بأدراج المكتبة Microsoft Activex Data Objects للمشروع .
3_ قم بكتابة الكود التالى فى حدث Load للفورم :
شرح الكود :
السطر الاول و الثانى : قمنا بإشتقاق سجل أو مؤشر rs ليعبر عن جدول البيانات أو ورقة البيانات الموجودة فى الاكسل .
السطر الثالث : قمنا بالاعلان عن متغير نصى sconn وذلك لتخزين نص الاتصال بملف الاكسل .
السطر الرابع : قمنا بالاعلان عن متغير نصى أخر sFile وذلك لتخزين مسار ملف الاكسل .
السطر الخامس : قمنا بتخزين مسار ملف الاكسل المطلوب الاتصال به فى المتغير sFile .
اما السطر السادس و السابع و الثامن :هى اكواد خاصة بتحديد خواص rs .
السطر التاسع :قمنا بتخزين نص الاتصال الخاص بالاكسل فى المتغير sconn .
اما السطر العاشر : قمنا بعمل جملة استعلام لفتح الشيت 25 الموجود فى ملف الاكسل m والذى مساره مخزن فى المتغير sconn .
اما السطر العاشر : وضعنا مصدر البيانات لاداة عرض البيانات DataGrid تساوى rs
وفى النهاية ارجو ان يكون الدرس سهل الفهم و اليكم المشروع فى المرفقات .
أخوانى الكرام أهلا بكم ...ميعادنا اليوم أن شاء الله تعالى مع درس جديد من دروس منتدى مصر التقنى ....الدرس سيكون عن كيفية ربط أو عرض بيانات ملف 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
وفى النهاية ارجو ان يكون الدرس سهل الفهم و اليكم المشروع فى المرفقات .
- المرفقات
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!
ابداع يا ريس
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
NEXT- الادارة
- تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
VB.NET- المراقبين
- تاريخ التسجيل : 18/02/2011
المساهمات : 121
النقاط : 189
التقيم : 6
الدولة :
الجنس :
رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!
جزالك الله خيرا ...لكن هل فية امكانية لعمل العكس ...بمعنى عرض بيانات DataGrid الى أكسل ؟
end.sub- .....
- تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 132
التقيم : 10
الدولة :
الجنس :
رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!
مشكوووووووووور يااستاذ بس انا طالب منك ومن جميع الاخوان في المنتدي يعني لو امكن اني اعمل لي زر وهذا الزر يعمل browes لجميع الاشياء ومن ثم اقوم بفتح ملف الاكسل المطلوب ويقوم البرنامج بجلب هذه البيانات علي الdataGrid وجزاكم الله خيييييييير ^_^
saadalhadi- ...
- تاريخ التسجيل : 14/05/2013
المساهمات : 32
النقاط : 44
التقيم : 0
الدولة :
الجنس :
رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!
السلام عليكم
مساء الخير اخوان
هذا المشروع في المرفقات اتمنى منكم مساعدتي في تعديل الاكواد والبرنامج
الله يعطيكم العافيه ولا يحرمنا واياكم الاجر والموبه والف شكر لكم على تفاعلكم واهتمامكم وهذا ليس بالغريب على عمالقة الصرح الكبير
تحياتي وودي لمعاليكم
alfakeehy- .....
- تاريخ التسجيل : 21/11/2014
المساهمات : 87
النقاط : 129
التقيم : 0
الدولة :
الجنس :
رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!
معليش اخوان بالغلط المشاركة هذي
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
اللهم صلي وسلم على الحبيب المصطفى
محمد بن عبد الله عليه افضل الصلاة والسلام
alfakeehy- .....
- تاريخ التسجيل : 21/11/2014
المساهمات : 87
النقاط : 129
التقيم : 0
الدولة :
الجنس :
رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!
أخى لا تستخدم المرفقات قم برفع المشروع على سرفر المنتدى الخارجى و ستجدة شمال اعلى شريط الادوات الجانبى
RANA- .....
- تاريخ التسجيل : 01/08/2013
المساهمات : 79
النقاط : 124
التقيم : 3
الدولة :
الجنس :
رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!
اخى الكريم ياريت ايكون العكس من داتا اقريد الى اكسل
او التعديل على هذه الكود المعمول بلفلكس اقريد الى داتا اقريد
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
او التعديل على هذه الكود المعمول بلفلكس اقريد الى داتا اقريد
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
المساهمات : 45
النقاط : 57
التقيم : 0
الدولة :
الجنس :
gadr- ...
- تاريخ التسجيل : 16/11/2014
المساهمات : 45
النقاط : 57
التقيم : 0
الدولة :
الجنس :
رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!
gadr كتب:وينك اخى احمد
لما قرات مشاركة حضرتك اعتقدت ان الشفرة التى اتيت بها هى لفعل العكس
RANA- .....
- تاريخ التسجيل : 01/08/2013
المساهمات : 79
النقاط : 124
التقيم : 3
الدولة :
الجنس :
رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!
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
المساهمات : 249
النقاط : 465
التقيم : 26
الجنس :
رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!
نعم اخى هو يقوم بلعكس ولكن بفلكس اقريد وليس الداتا قريدRANA كتب:
لما قرات مشاركة حضرتك اعتقدت ان الشفرة التى اتيت بها هى لفعل العكس
gadr- ...
- تاريخ التسجيل : 16/11/2014
المساهمات : 45
النقاط : 57
التقيم : 0
الدولة :
الجنس :
رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!
gadr كتب:وينك اخى احمد
هل يكفيك ما اتى به الاخ الكريم السنى ؟
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
رد: تعلم كيفية عرض بيانات ورقة Excel فى اداة عرض البيانات DataGrid !!!
نعم اخى الكريم احمد الاستاذ السنى بارك الله فبه بس هذه الطريقة موجودة عندى ولا احب التعامل مع
- الكود:
Adodc
gadr- ...
- تاريخ التسجيل : 16/11/2014
المساهمات : 45
النقاط : 57
التقيم : 0
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
اليوم في 10:02 am من طرف mona mohamed
» شركة مكافحة حشرات بالرياض
السبت سبتمبر 14, 2024 6:21 pm من طرف moslema_r
» شركة تنظيف بالقصيم
الجمعة سبتمبر 13, 2024 1:58 pm من طرف على جمال
» تصميم تطبيق جوال لشركة سياحة
الخميس سبتمبر 12, 2024 6:59 am من طرف mona mohamed
» شركة رش مبيدات بالرياض
الثلاثاء سبتمبر 10, 2024 6:44 pm من طرف moslema_r
» تصميم تطبيق جوال لجمعية خيرية
الثلاثاء سبتمبر 10, 2024 6:47 am من طرف mona mohamed
» شركة مكافحة الصراصير بالرياض
السبت سبتمبر 07, 2024 1:38 pm من طرف moslema_r
» تصميم تطبيق جوال لمغسلة ملابس
الخميس سبتمبر 05, 2024 7:22 am من طرف mona mohamed
» تصميم تطبيق جوال لشركة عقارات
الأربعاء سبتمبر 04, 2024 11:34 am من طرف mona mohamed
» شركة مكافحة النمل الابيض بالرياض
الثلاثاء سبتمبر 03, 2024 7:04 pm من طرف moslema_r