تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 28 2,322 أمس, 09:34 PM
آخر رد: مبتدئه برمجه
  [مثال] حفظ ملفات لـ PDF و الوورد والاكسيل داخل قاعدة البيانات( تحديث جديد) جميل علي 9 995 02-12-16, 03:40 PM
آخر رد: thecareep
  مثال لنسخ وإستعادة قاعدة البيانات mysql صبري زينوبي 2 215 29-09-16, 05:06 PM
آخر رد: صبري زينوبي
Rainbow مثال - استيراد البيانات من Excel إلي ListView Genius Live 7 3,444 28-09-16, 01:16 AM
آخر رد: adel27
  مشروع أخذ نسخه أحتياطيه من قاعدة البيانات أتمنى يعجبكم adel27 1 723 10-09-16, 03:06 AM
آخر رد: mutaz_17
  [VB.NET] كيفية استيراد ملف .csv اكسل الى listview و تصديره الى ملف اكسل زيد زينوبي 2 306 09-04-16, 11:47 AM
آخر رد: زيد زينوبي
Information مثال صغير لعرض البيانات وحذف صف بكلمة سر boudyonline 0 313 18-02-16, 10:05 PM
آخر رد: boudyonline
  مشروع شامل في قواعد البيانات ابوهديل 12 5,921 04-02-16, 11:57 PM
آخر رد: VB_Local
  تصدير البيانات إلى إكسل khodor1985 0 386 07-12-15, 09:42 PM
آخر رد: khodor1985
  تصدير واستيراد البيانات من xml khodor1985 0 270 07-12-15, 08:12 PM
آخر رد: khodor1985

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


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