นำเข้าข้อมูลจาก Excel ไปยัง Access โดยมีเงื่อนไขว่าสร้างตารางใน Access แล้ว
การเชื่อมต่อแบบสลัว
สลัว con2
ตั้ง conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=c:book1.mdb"
set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;คุณสมบัติเพิ่มเติม=Excel 5.0;แหล่งข้อมูล=c:book1.xls"
sql = "เลือก * จาก [Sheet1$]"
ตั้งค่า rs = conn2.execute (sql)
ในขณะที่ไม่ใช่ rs.eof
sql = "ใส่ลงใน xxx([a],[b],[c],[d]) ค่า ('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) & "','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"')"
conn.execute(sql)
rs.movenext
เวนด์
คอนปิด
ตั้ง conn = ไม่มีอะไร
con2.ปิด
set conn2 = ไม่มี
ฟังก์ชัน fixsql(str)
ข่าวสลัว
นิวสเตร = STR
ถ้า isnull(newstr) แล้ว
ข่าว = ""
อื่น
newstr = แทนที่ (newstr,"'","''")
สิ้นสุดถ้า
fixsql = newstr
ฟังก์ชันสิ้นสุด
ถูกนำเข้าไปยังฐานข้อมูล Sql Server หากไฟล์ Excel และฐานข้อมูลไม่ได้อยู่บนเซิร์ฟเวอร์เดียวกัน โปรดดูโค้ดด้านบน บนเครื่องเดียวกันคุณสามารถดูโค้ดต่อไปนี้ (ไม่จำเป็นต้องสร้างตารางก่อนโปรแกรมจะสร้างตารางโดยอัตโนมัติโดยใช้แถวแรกของข้อมูลใน Excel เป็นชื่อฟิลด์ของตาราง):
dim conn
ตั้ง conn=CreateObject("ADODB.Connection")
conn.Open ("driver={SQL Server};server=localhost;uid=sa;pwd=sa;database=hwtemp;")
sql = "SELECT * เป็นตารางใหม่จาก OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=""c:book1.xls"";User ID=Admin;Password=;Extensed properties=Excel 5.0') ...[Sheet1$] "
conn.execute(sql)
conn.ปิด
set conn = ไม่ได้
เลือกอะไรจากบล็อกของ sxycgxj