我们在使用DTS向导,或是DTS对象做Excel文件导入SQL数据库时,很可能遇到一点小麻烦,下面以两个经常碰到的小问题来介绍一下处理的技巧。
问题一
在导入后,发现某些列中的一些内容被莫名其妙地置空了,明明Excel文件的这一行是有内容的,到了表里却变成了Null。怎么回事?
原因是这样的,假设你的Excel文件中有如下的数据:
1001 a1001 ab1001
1002 a1002 ab1002
1003 a1003 1000
...
这时,1003这行的1000这一列就被置空了,原因是当这一列中有一个数据是字符串类型的数据,那么Excel就认为这一列的类型为字符串型,而当中在有int型的数据时,即Execl认为1000是int字符串型的数据。所以当导入到SQL中就把它默认为Null了。
解决的直接办法是在Excel中将这些int型的数据转为char型的,即:
1000 -> '1000
但在实际当中,Excel的数据量会很大,总不可能一个一个的修改吧,其实简单且有效的方法是将此Excel文件另存为Text文件来导入。例如在VB的代码中可以这样实现:
xlDestSheet.SaveAs App.Path & "\temp.txt", xlUnicodeText
问题二
在导入后,发现多出了很多全空的列。本来我的Excel文件只有5列,导入后发现多出了两列,且是全空的。Why?
原因是这样,SQL在处理Excel的时,它会找所有行中列数最多的,然后以这个列的最大值做为目标表列的个数。在我们对Excel文件进行录入操作的时候,一不小心,可能会在本来没有列的地方多打了一个空格,或其它的字符,比如,我们的Excel文件应该只有A->D这四列,在我们在Excel文件中写数据的时候,可能不注意在E10这一列打了一个空格,这样就导致了象SQL导入时发生了上述的错误。在实际当中,这一现象也可能经常出现。
解决的好办法,是先确定你要导入Excel文件的实际列数,然后将这些列复制到一个新的sheet当中,这样再导的时候,就可以避免这一问题了。
例如在VB的代码中可以这样写:
'加一个临时sheet
Set xlDestSheet = xlApp.Worksheets.Add(after:=xlBook.Worksheets(1))
xlDestSheet.name = "Temp"
'假设Execl文件中有100行4列的数据
xlWorksheet.Range("A1:D100").Copy Destination:=xlDestSheet.Range("A1")
xlBook.Save
在DTS的使用当中,还有很多小的技巧,让我们多总结,共同探讨吧
minajo21(大眼睛) May 23 2003
本文地址:http://com.8s8s.com/it/it21239.htm