vb excel access表和数据库中的表互相导？

Question

vb excel access表和数据库中的表互相导？
  自己在网上看了些代码，总是有错误，自己改来改去没有修改好。
现在向大家求助！
为保证数据录入的准确性。现需实现excel和access的表的互导。
可以将abc中sheet1的表内容通过一个command1的单击事件导入到mdb.mdb数据库中inquire表中。
因为登录的身份不一样，固需要录入的字段内容也不一致。有三个登录权限。三个人可以在自己的电脑上填写好sheet1的内容后，导入到数据库中（注：字段个数不一致）。也可以在自己的权限内将数据库的数据导出。以便计算等。这样的结果怎么用代码实现呢？
分就这点了。全给大家了。感谢咯。在线等！

Answer 1

dim cn_excel as new ADODB.connection
dim rs_excel as new ADODB.Recordset
dim sql_excel as string
dim strEXCEL as stringdim cn_access new ADODB.connection
dim rs_access as new ADODB.Recordset
dim sql_access as string
dim strACCESS as stringstrEXCEL = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source= X:\...\X..xls"    
cn_excel.open strEXCEL
cn_access.CursorLocation =adUseClientsql_excel="select * from sheel1 "       
rs_excel.open sql,cn
straccess = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source= X:\...\X..mdb"    
cn_access.open straccess
cn_access.CursorLocation =adUseClientsql_access="select * from data1 "       
rs_access.open sql,cn

Answer 2

有安装msdn吗？建议去看visdata，VB自带的例子...

Answer 3

导入本身没有难度。事情往往出在：1 Excel 表不对，例如字段根本就不对应。2 Excel 记录中有 Null 字段，如果在 Access 端不允许，则要有处理规则。3 Excel 记录中有数据类型不对的，可能需要检查并要有处理规则。4 更多……

Answer 4

去看看这个
http://www.vbgood.com/home.php?mod=space&uid=94128&do=blog&id=34157