تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استيراد البيانات من إكسل
#1
PHP كود :
Dim ofd As New OpenFileDialog
        ofd
.Filter "Excel 2003|*.xls|Excel 2007|*.xlsx"
        
If ofd.ShowDialog Windows.Forms.DialogResult.OK Then
            Dim Path 
As String ""
            
Path ofd.FileName
            Dim con 
As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" Path ";Extended Properties = Excel 12.0;")
            
Dim str As String "Select * From [Sheet1$]"

            
Dim da As New OleDbDataAdapter(strcon)
            
Dim dt As New DataTable
            da
.Fill(dt)

            
Me.DataGridView1.DataSource dt
        End 
If 
إسرائيل إلى زوال ... وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة: HASAN6.0
#2
السلام عليكم
أخي الفاضل مشكور على الدرس ولكن يظهر معي خطأ في OleDbConnection كيف أعالج المشكلة
الرد
تم الشكر بواسطة:
#3
السلام عليكم
اخي الفاضل مشكور على الدرس
الاخ sdbalushi
لكي يعمل الكود لديك يجب اضافة هذا الكود Imports System.Data.OleDb قبل عبارة Public Class Form1
الرد
تم الشكر بواسطة: khodor1985
#4
السلم عليكم

الكود لم يعمل حتى بعد اضافة المكتبة

وتظهر هذه الرسالة
The 'Microsoft.ACE.OLEDB.12.0' provider is not registered on the local machine.
الرد
تم الشكر بواسطة:
#5
يمنكنك الاستفادة من هذه الدروس
http://vb.net-informations.com/excel-200..._oledb.htm
الرد
تم الشكر بواسطة:
#6
(15-12-15, 09:22 AM)sdbalushi كتب : السلام عليكم
أخي الفاضل مشكور على الدرس ولكن يظهر معي خطأ في OleDbConnection كيف أعالج المشكلة

أسلام عليكم ورحمت الله وبركاته إن واجهتك مشكلة في الإتصال مع قاعدة البيانات إليك هداالكود:
في قسم التصریحات العامة نكتب وھي استیراد المكتبات
اللازمة للتعامل مع البرنامج .
Imports System.Data.OleDb
Imports System.Data
Public Class Frm ثم بعد ذلك نذھب ل
ونضع طریقة الاتصال بقاعدة البیانات الخاصة بالبرنامج وھي
مسار قاعدة البیانات
Public Class frm   
Dim CnString As String =
"provider=microsoft.jet.oledb.4.0;data source=" &
Application.StartupPath & "\data.mdb;user id=admin;jet
oledb:database password=987"
Dim Conn As New OleDbConnection(CnString)
Dim DataSet1 As New DataSet
Dim DataAdapter1 As OleDbDataAdapter
Dim CMD As New OleDbCommand
Dim SQLstr As String = "SELECT * FROM item"
شرح الكود
السطر الأول من الكود وھو المسئول عن الاتصال بقاعدة
البیانات ونقل البیانات من قاعدة البیانات الي الداتا سورس
(Data source)
ثم قمنا بتعریف بعض المتغیرات
وھو كائن الاتصال بقاعدة البیانات conn الكائن الاول
وھو وظیفتھ القیام بعملیة حفظ DataSet الكائن الثاني 1
Conn البیانات بداخلة بعد فتح قاعدة البیانات من خلال
الذى DataAdapter ونقل البیانات من خلال ال 1
سوف نقوم بالتصریح عنھ
وھو كائن نقل وقراءة DataAdapter الكائن الثالث 1
DataSet البیانات الي الداتا 1
الكائن الأخیر وھو المسئول عن جملة الاستعلام والتعامل مع
item الجدول المطلوب التعامل معھ وھو جدول الأصناف
الذي سوف نتعامل معھ لحفظ الأصناف وإدارتھا ویمكن أن
نتعامل مع أكثر من جدول في قاعدة البیانات وھذا سوف نتعلم
كیفیة التعامل معھ في الدروس التالیة ...
ومن ھنا نكون قد انتھینا من الاتصال بقاعدة البیانات وتعریف

وإليك هدا الكود أيضا
Imports system.DateTime
Imports system.Data.oleDb
لتعريف المتغيرات التي سنتعامل معه في قواعد البيانات
Dim conn AS New OleDb connection ("provider=msdaora;user id =scott;password=tiger")
Dim db1 AS New oleDbdataAdapter
Dim db2 AS New oleDbCommand
Dim dset1 AS New Dataset
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 54 9,081 13-06-18, 03:23 PM
آخر رد: atefkhalf2004
  مشروع التعامل مع قواعد البيانات من خلال الكلاسس viv 10 253 11-05-18, 01:08 PM
آخر رد: viv
  اريد مساعدتك في كود النسخة الاحتياطيه للقاعدة البيانات واستراجها ب الفيجوال بيسك nosa 0 79 01-05-18, 05:38 PM
آخر رد: nosa
  [مشروع] البحث بشبيكة البيانات بعد ربطها سعود 25 6,880 19-03-18, 04:52 PM
آخر رد: mikedz
  [مثال] حفظ ملفات لـ PDF و الوورد والاكسيل داخل قاعدة البيانات( تحديث جديد) جميل علي 12 3,120 01-11-17, 09:48 PM
آخر رد: mohamed2316
Rainbow مثال - استيراد البيانات من Excel إلي ListView Genius Live 8 4,765 06-09-17, 07:12 PM
آخر رد: محمد سالم المحترف
  [مشروع] حفظ جدول البيانات كصفحة انترنت sooriaty03 4 1,700 04-04-17, 09:30 PM
آخر رد: naderalbanna
  مشروع أخذ نسخه أحتياطيه من قاعدة البيانات أتمنى يعجبكم adel27 3 1,790 17-03-17, 09:58 AM
آخر رد: IBRA939
  مشروع شامل في قواعد البيانات ابوهديل 15 8,477 17-02-17, 11:05 PM
آخر رد: EnormousSoft
  الاضافة التلقائيه من قاعدة البيانات لاكثر من textbox swengineeer 1 1,325 26-12-16, 04:30 PM
آخر رد: IBRA939

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


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