導入文本文件時如何指定字段類型？

===========================================================================
問題：
我有一個文本文件需要導入 Access ，但是文本文件中有一列數據原本是文本，
但是導入數據庫后自動變成了“雙精度”類型，我該如何讓各個字段按我需要的
數據類型生成哪？

如何讓 ACCESS 按照我規定的構架、規格從文本文件、XLS文檔中導入數據？ 

==========================================================================
方法：
用 Schema.ini 文件

作用：Schema.ini用于提供文本文件中記錄的構架信息。
每個 Schema.ini 項都用于指定表的五個特征之一：
1、文本文件名
2、文件格式
3、字段名、字段長度、字段類型
4、字符集
5、特別數據類型轉換

======================================================================
指定文件名
文件名要用方括號括起來，例如如果要對 Sample.txt 使用數據構架信息文件，
那么它的對應的項應該是
[Sample.txt] 


=======================================================================
指定文件格式
格式說明         表格式		               Schema.ini 格式描述 
Tab 制表符分隔   文件中的字段用制表符分隔     Format=TabDelimited 
CSV 分隔         文件中的字段用逗號來分隔    Format=CSVDelimited 
自定義分隔       文件中的字段可以用任何字符   Format=Delimited(自定義分隔符)
                 來分隔，所有的字符都可以
                 用來分隔，包括空格，但是
                雙引號 ( " ) 除外 
                - 或者沒有分隔符 -           Format=Delimited( )
固定寬度         文件中的字段為固定長度  


===============================================================
指定字段

你可以有兩種方法在一個字符分隔的文本文件中指定字段名

1、在文本文件中的第一行包含字段名，并且設置 ColNameHeader 為 True 。
2、用數字編號指定每一列并且指定每一列的名字以及數據類型

你必須用數字編號指定每一列并且指定每一列的名字、數據類型以及長度
（在固定長度分隔的文本文件中需要指定長度）

注意，設定了 ColNameHeader 選項，在 Schema.ini 中 Windows 注冊時會忽略
FirstRowHasNames 選項。

你也可以指定字段的數據類型，使用 MaxScanRows 選項用來指定在確定列的
數據類型時要掃描多少行數據。設置 MaxScanRows 為 0 將掃描整個文件。

如果文本文件第一行包含字段名，并且要掃描整個文件，改項目就要定義如下：
ColNameHeader=True
MaxScanRows=0 

接下來的項目用來指定表中的字段，使用列編號(Coln)選項來指定列。字段長度在
“固定分隔文本文件中”是必填項目，在“字符分隔文本文件”中是可選項目。

示例：定義 2 個字段，CustomerNumber 是長度為 10 的文本字段、
CustomerName 是長度為 30 的文本字段。

Col1=CustomerNumber Text Width 10
Col2=CustomerName Text Width 30 


語法如下：
Coln=ColumnName type [Width #]

參數解釋如下：
參數 說明 
ColumnName 文本，標識字段名，如果包含空格要用雙引號括起來 
type 數據類型包括：
Microsoft Jet 數據類型：Bit Byte Short Long Currency Single Double DateTime Text Memo

ODBC 數據類型： Char (same as Text) Float (same as Double) Integer (same as Short) 
LongChar (same as Memo) Date date format

其中date format 是日期的格式字符串例如：Date YYYY-MM-DD 
 
Width 字符串的長度，后面的數字用來指定字段的長度（“固定分隔文本文件”為必填，
“文字分隔文本文件”為可選） 
# 整形數字，標識字段長度 


===================================================================
指定字符集
CharacterSet 項有兩個選擇：ANSI | OEM
選擇 ANSI 字符集用如下方法：
CharacterSet=ANSI 

====================================================================
特別數據類型轉換 
特別數據類型轉換主要是定義比如日期、貨幣型數據如何轉換或者如何顯示的，
你可以參考下面這張表：
選項 說明 
DateTimeFormat
 Can be set to a format string indicating dates and times. You should specify this entry if all date/time fields in the import/export are handled with the same format. All Microsoft Jet formats except A.M. and P.M. are supported. In the absence of a format string, the Windows Control Panel short date picture and time options are used.
 
DecimalSymbol
 Can be set to any single character that is used to separate the integer from the fractional part of a number. 
 
NumberDigits
 Indicates the number of decimal digits in the fractional portion of a number. 
 
NumberLeadingZeros
 Specifies whether a decimal value less than 1 and greater than –1 should contain leading zeros; this value can either be False (no leading zeros) or True. 
CurrencySymbol
 Indicates the currency symbol to be used for currency values in the text file. Examples include the dollar sign ($) and Dm.
 
CurrencyPosFormat
 Can be set to any of the following values: 
· Currency symbol prefix with no separation ($1) 

· Currency symbol suffix with no separation (1$) 

· Currency symbol prefix with one character separation ($ 1) 

· Currency symbol suffix with one character separation (1 $) 

 
CurrencyDigits
 Specifies the number of digits used for the fractional part of a currency amount. 
 
CurrencyNegFormat
 Can be one of the following values: 
· ($1) 

· –$1 

· $–1 

· $1– 

· (1$) 

· –1$ 

· 1–$ 

· 1$– 

· –1 $ 

· –$ 1 

· 1 $– 

· $ 1– 

· $ –1 

· 1– $ 

· ($ 1) 

· (1 $) 

This example shows the dollar sign, but you should replace it with the appropriate CurrencySymbol value in the actual program.

 
CurrencyThousandSymbol
 Indicates the single-character symbol to be used for separating currency values in the text file by thousands.
 
CurrencyDecimalSymbol
 Can be set to any single character that is used to separate the whole from the fractional part of a currency amount. 
 
　
====================================================================
下面給出一個簡單的例子，假設有一個表Contacts.txt類似下面：
姓名 單位 聯系日期 
王海 上海有機化學研究所 2002-1-1 
羅炙 數字化機床研究院 2004-1-1  



導入 Access 應該類似下面表格：
姓名 單位 聯系日期 
王海 上海有機化學研究所 2002-1-1 
羅炙 數字化機床研究院 2004-1-1 



那么 Schema.ini 則是類似下面的INI文件：
[Contacts.txt]
ColNameHeader=True
format=Delimited(" ")
MaxScanRows=0
CharacterSet=ANSI
Col1="姓名" Char Width 10
Col2="單位" Char Width 9
Col3="聯系日期" Date Width 8 


注釋如下：
[Contacts.txt] ///文本文件名
ColNameHeader=True ///帶有表頭
format=Delimited( ) ///空格作為分隔符，如果是分號，請用format=Delimited(;) 來解決
MaxScanRows=0 ///掃描整個文件
CharacterSet=ANSI ///ANSI 字符集
Col1="姓名" Char Width 10 ///字段1
Col2="單位" Char Width 9 ///字段2
Col3="聯系日期" Date Width 8 ///字段3
///如果有更多字段可 Col4 .... ColN  


注意，Schema.ini 必須和需要導入的文本文件在同一目錄。

此后，我們就可以利用下面的語句來導入數據了：

CurrentProject.Connection.Execute "SELECT * INTO NewContact FROM [Text;FMT=Delimited;HDR=Yes;DATABASE=C:\;].[Contacts#txt];"