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 更多……
[解决办法]
