vb excel access表和数据库中的表互相导？该怎么解决

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

自己在网上看了些代码，总是有错误，自己改来改去没有修改好。


现在向大家求助！
为保证数据录入的准确性。现需实现excel和access的表的互导。
可以将abc中sheet1的表内容通过一个command1的单击事件导入到mdb.mdb数据库中inquire表中。
因为登录的身份不一样，固需要录入的字段内容也不一致。有三个登录权限。三个人可以在自己的电脑上填写好sheet1的内容后，导入到数据库中（注：字段个数不一致）。也可以在自己的权限内将数据库的数据导出。以便计算等。

这样的结果怎么用代码实现呢？
分就这点了。全给大家了。感谢咯。在线等！

------解决方案--------------------
VB6专家百度Hi群1358368
------解决方案--------------------
dim cn_excel as new ADODB.connection
dim rs_excel as new ADODB.Recordset
dim sql_excel as string
dim strEXCEL as string

dim cn_access new ADODB.connection
dim rs_access as new ADODB.Recordset
dim sql_access as string
dim strACCESS as string

strEXCEL = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source= X:\...\X..xls"
cn_excel.open strEXCEL
cn_access.CursorLocation =adUseClient

sql_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 =adUseClient

sql_access="select * from data1 "
rs_access.open sql,cn


------解决方案--------------------

导入本身没有难度。

事情往往出在：

1 Excel 表不对，例如字段根本就不对应。

2 Excel 记录中有 Null 字段，如果在 Access 端不允许，则要有处理规则。

3 Excel 记录中有数据类型不对的，可能需要检查并要有处理规则。

4 更多……
------解决方案--------------------

探讨

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


自己在网上看了些代码，总是有错误，自己改来改去没有修改好。


现在向大家求助！
为保证数据录入的准确性。现需实现excel和access的表的互导。
可以将abc中sheet1的表内容通过一个command1的单击事件导入到mdb.mdb数据库中inquire表中。
因为登录的身份不一样，固需要录入的字段内容也不一……