طريقة نقل بيانات من ملف Excel إلى قاعدة البيانات



لنفترض أن لديك بيانات مخزنة في ملف إكسل وتريد نقلها إلى قاعدة البيانات …الطريقة سهلة وبسيطة

1- ليكن ملف الإكسل التالي هو الملف الذي تريد نقل بياناته إلى قاعدة البيانات

2- يجب في البداية أن تقوم بالاتصال بملف الإكسل لقراءة بياناته وتخزينها في Data Table   وسيكون بالطريقة التالية :

 

Dim strConn As String strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("../db/Book1.xls") & ";" & _ "Extended Properties=Excel 8.0;"
Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM [Sheet1$]", strConn)
Dim dt As DataTable = New DataTable()
myCommand.Fill(dt)

ولا تنسى أن تستورد مجال الأسماء Imports System.Data.OleDb  

وأيضا يجب أن تضع $ بعد اسم صفحة الإكسل وهي هنا sheet1 وذلك لأنها ليست اسم جدول

3- الآن سيتم نقل بيانات الإكسل من ال Data Table التي تم تخزينها فيها إلى الجدول الخاص بها في قاعدة البيانات ولنفترض أنه باسم Users:

Using conn As New SqlConnection(ConfigurationManager.ConnectionStrings("connstr").ConnectionString)
Dim cmd As SqlCommand = conn.CreateCommand
conn.Open()
For i As Integer = 0 To dt.Rows.Count – 1
cmd.CommandText = "insert into Users (userid,username) values(@userid,@username)"
cmd.Parameters.AddWithValue("@userid", dt.Rows(i)("userid"))
cmd.Parameters.AddWithValue("@username", dt.Rows(i)("username"))
cmd.ExecuteNonQuery()
cmd.Parameters.Clear()
Next
conn.Close()
End Using
 

وهكذا نكون قد انتهينا

عن الكاتب

خليل سليم

اترك تعليق

18 + خمسة =

هذا الموقع يستخدم Akismet للحدّ من التعليقات المزعجة والغير مرغوبة. تعرّف على كيفية معالجة بيانات تعليقك.