导出没问题了,可是导入不对

Question

我只有30分了,老师,不好意思,先给你,以后有了再加给你....我导出的时候一点问题都没的,就是导入的时候不行.说有一个未知字段,我都检查了,没什么问题,就不知道问题出在什么地方了...麻烦高手再告诉我一下

Answer 1

Dim cn As ADODB.ConnectionPrivate Sub Form_Load()
  Set cn = New ADODB.Connection
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\软件开发\sy\系统数据库.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
End SubPrivate Sub cmdExport_Click()
  CommonDialog1.ShowSave            '请用户指定 Excel 文件路径和文件名
  xlsFile = CommonDialog1.FileName  If Dir(xlsFile) > "" Then Kill xlsFile
  cn.Execute "Select * Into [Sheet1] In """ & xlsFile & """ ""Excel 5.0;"" From 员工登陆验证详情表"
End SubPrivate Sub cmdImport_Click()
  CommonDialog1.ShowOpen            '请用户指定 Excel 文件路径和文件名
  xlsFile = CommonDialog1.FileName  cn.Execute "Insert Into 客户基本资料详情表 Select * From [Sheet1$] In """ & xlsFile & """ ""Excel 5.0;"""
End Sub'Private Sub Form_Unload()
  'cn.Close
  'Set cn = Nothing
'End Sub这是所有的代码,,导出的功能没有一点问题,就是导入的不行....我估计是我表格和数据库的设计问题,希望你们能列点注意事项给我...是关于字段和段值的还有,我希望能在导出的时候程序能自动完成对表格单元格格式的设置,所以我录了一个宏,但不知道怎么在程序中调进去调进去...希望能指导一下

Answer 2

首先在 VB 的立即窗口敲一个 ? 号，紧接着你所 Execute 的 SQL 字符串，敲回车。这样就得到你的 SQL 内容。看看是否正确。如果还不能确定，放到 Access 的查询编辑器中运行一下，它会指出哪里有问题。

Answer 3

编号 帐号 密码 姓名 所属部门 职务
001 sanxia sanxia sanxia 三峡建行 客户经理
002 aaaa aaa aaaa aaa aaaa
这个是我导出来的,但问题是,我按照这个格式做个表格它就导不进去了...如:编号 帐号 密码 姓名 所属部门 职务
003 admin admin admin 三峡建行 客户经理
004 admin1 admin1 admin1 admin1 admin1