从EXCEL导出到ACCESS有的情况前几行数据会丢失，这是什么原因呢？

wolfmare

把’用其他的字符代替，“'”这种也不好使

gcloveu

ivccav 发表于 2018-6-26 15:39
数据库一直都严格数据类型，你这个问题跟数据库没有关系，是ADO自己判断之后把数据传给数据库的。

...

我把所有数据都加了撇了，可还是一样，只有一列数据。不是这个原因吧

gcloveu

wolfmare 发表于 2018-6-26 16:16
把’用其他的字符代替，“'”这种也不好使

是啊，用'也不行,用其他字符?那数据就不对了啊

wolfmare

gcloveu 发表于 2018-6-26 17:03
是啊，用'也不行,用其他字符?那数据就不对了啊

你应该不会直接使用数据库吧？如果是导入导出都是基于excel，那你导入数据库前将’换成其他符号，导出数据库的时候再换回来就可以了，完全看不出来的。
如果你的数据全是文本类型，那你导入前直接去掉’，导出的时候再加上就可以了。
附上我自己使用的代码

1. '数据修改
   
2. Function RecChg(RecStr As String, Optional RecIn As Boolean = True, Optional Rpl As Boolean = True)
   
3.     Dim RslStr As String
   
4.    
   
5.     If RecIn Then
   
6.         '输入记录
   
7.         If RecStr <> "" Then
   
8.             RslStr = RecStr
   
9.         Else
   
10.             RslStr = "Null"
    
11.         End If
    
12.     Else
    
13.         '输出记录
    
14.         If RecStr <> "Null" Then
    
15.             RslStr = RecStr
    
16.         Else
    
17.             RslStr = ""
    
18.         End If
    
19.     End If
    
20.    
    
21.     If Rpl Then RslStr = StrRpl(RslStr) '更换部分不支持的符号
    
22.    
    
23.     RecChg = RslStr
    
24. End Function
    
25. '符号取代
    
26. Function StrRpl(OrgStr As String, Optional RvsRpl As Boolean = False)
    
27.     Dim RslStr As String
    
28.    
    
29.     If RvsRpl Then
    
30.         RslStr = Replace(OrgStr, "`", "'")
    
31.     Else
    
32.         RslStr = Replace(OrgStr, "'", "`")
    
33.     End If
    
34.    
    
35.     StrRpl = RslStr
    
36.    
    
37. End Function
    

复制代码

gcloveu

wolfmare 发表于 2018-6-27 08:02
你应该不会直接使用数据库吧？如果是导入导出都是基于excel，那你导入数据库前将’换成其他符号，导出数 ...

谢谢你，我仔细看一下先！

gcloveu

wolfmare 发表于 2018-6-27 08:02
你应该不会直接使用数据库吧？如果是导入导出都是基于excel，那你导入数据库前将’换成其他符号，导出数 ...

你的代码就是把空白单元格填上“Null”是吧，没用的，还是一样，只能导出第一列，郁闷，找不到办法了

ivccav

gcloveu 发表于 2018-6-27 09:12
你的代码就是把空白单元格填上“Null”是吧，没用的，还是一样，只能导出第一列，郁闷，找不到办法了

我在第10楼说过了，用ADO的Recordset对象把数据循环写入数据库，这样肯定不会有遗漏。

用这种方法导入数据库，工作表的形式都没有限制，你能把不规则的单据（比如送货单）数据写入数据库。

用ADO而不用Recordset对象，一大半的功能都浪费了。Recordset功能非常完善，你自己看帮助吧。

gcloveu

ivccav 发表于 2018-6-27 09:22
我在第10楼说过了，用ADO的Recordset对象把数据循环写入数据库，这样肯定不会有遗漏。

用这种方法导入 ...

好的，谢谢了,我用RECORDSET试试，麻烦您了！

opiona

终于上传附件了，
可惜没有Access部分！

这样别人无法帮助你的！

gcloveu

opiona 发表于 2018-6-27 11:53
终于上传附件了，
可惜没有Access部分！

ACCESS部分是自动生成的，谢谢你，希望能得到您的帮助！