Question

急求VB EXCEL导入ACCESS数据库代码

我急用可以在VB中通过读取EXCEL表中信息，可以填加进数据库对应表中的程序代码！请知道的帮忙！谢谢！

Answer 1

Dim Conn As ADODB.Connection

Set Conn = New ADODB.Connection
Conn.Open "连接到你的数据库XJGL.MDB的字符串"
Conn.Execute "select * into tmptable from [excel 8.0;database=" + 你的excel表名 + "].[sheet名$]"
Conn.Execute "insert into xsda(学籍号,准考证号,姓名,性别,出生年月,班级)select 学籍号,准考证号,姓名,性别,出生年月,班级 from tmptable"
Conn.Execute "drop tabel tmptable"
Set Conn = Nothing