Impor data dari Excel ke Access, asalkan tabel di Access sudah dibuat.
koneksi redup
koneksi redup2
set koneksi=CreateObject("ADODB.Koneksi")
samb.Buka "Penyedia=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Kata Sandi Basis Data=;Sumber Data=c:book1.mdb"
set conn2=CreateObject("ADODB.Connection")
samb2.Buka "Penyedia=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Kata Sandi Basis Data=;Properti yang diperluas=Excel 5.0;Sumber Data=c:book1.xls"
sql = "PILIH * DARI [Lembar1$]"
setel rs = conn2.execute(sql)
sementara bukan rs.eof
sql = "masukkan ke dalam xxx([a],[b],[c],[d]) nilai('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) & "','"& memperbaikisql(rs(2)) &"','"& memperbaikisql(rs(3)) &"')"
samb.execute(sql)
rs.movenext
pergi
samb. tutup
setel sambungan = tidak ada
sambungan2.tutup
setel conn2 = tidak ada
fungsi fixsql(str)
redup newtr
beritatr = str
jika isnull(newstr) maka
beritatr = ""
kalau tidak
newstr = ganti(newstr,"'","''")
berakhir jika
fixsql = newtr
fungsi akhir
diimpor ke database Sql Server, jika file Excel dan database tidak berada di server yang sama, silakan merujuk ke kode di atas. Pada mesin yang sama, Anda dapat merujuk ke kode berikut (tidak perlu membuat tabel terlebih dahulu, program akan secara otomatis membuat tabel, menggunakan baris data pertama di Excel sebagai nama bidang tabel):
dim conn
set koneksi=CreateObject("ADODB.Koneksi")
samb.Buka ("driver={SQL Server};server=localhost;uid=sa;pwd=sa;database=hwtemp;")
sql = "PILIH * ke dalam tabel baru DARI OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Sumber Data=""c:book1.xls"";ID Pengguna=Admin;Kata Sandi=;Properti yang diperluas=Excel 5.0') ...[Lembar1$] "
samb.execute(sql)
samb.close
set conn = tidak ada
yang dipilih dari Blog sxycgxj