استيراد بيانات Excel إلى Access، نموذج التعليمات البرمجية في Sql Server

استيراد البيانات من Excel إلى Access، بشرط أن يكون الجدول في Access قد تم إنشاؤه.

كون خافت
خافت conn2
مجموعة conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB: كلمة مرور قاعدة البيانات=;مصدر البيانات=c:book1.mdb"

set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB: كلمة مرور قاعدة البيانات=;الخصائص الموسعة=Excel 5.0;مصدر البيانات=c:book1.xls"

sql = "حدد * من [ورقة1$]"
مجموعة rs = conn2.execute (sql)
في حين لا rs.eof
sql = "أدخل في قيم xxx([a],[b],[c],[d])('"&fixsql(rs(0)) &"','"&fixsql(rs(1)) & "','"& Fixsql(rs(2)) &"','"& Fixsql(rs(3)) &"')"
كون.تنفيذ (SQL)
rs.movenext
ويند

conn.Close
مجموعة كون = لا شيء
conn2.Close
تعيين conn2 = لا شيء

وظيفة Fixsql(str)
أخبار خافتة
newstr = str
إذا كان فارغًا (newstr) إذن
نيوستر = ""
آخر
newstr = استبدال(newstr،"'"،''")
نهاية إذا
fixsql = newstr

استيراد

الوظيفة النهائية

على نفس الجهاز، يمكنك الرجوع إلى الكود التالي (ليست هناك حاجة لإنشاء جدول أولاً، سيقوم البرنامج تلقائيًا بإنشاء الجدول، باستخدام الصف الأول من البيانات في Excel كاسم حقل للجدول):

dim conn
مجموعة conn=CreateObject("ADODB.Connection")
conn.Open ("driver={SQL Server};server=localhost;uid=sa;pwd=sa;database=hwtemp;")
sql = "SELECT * into newtable FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=""c:book1.xls""; معرف المستخدم=المسؤول;كلمة المرور=;الخصائص الموسعة=Excel 5.0') ...[الورقة1$] "
conn.execute(sql)

conn.إغلاق
set conn = لم

يتم تحديد أي شيء من مدونة sxycgxj