CSV文件的内容并导入到数据库中.doc

功能：读取CSV文件的内容并导入到数据库中环境：Access2003 语言：VBA（对于使用VB6.0同样适用）数据库：D:db1.mdb数据表：testuserId 数值型 userName 文本型 CSV文件：D:test.csv （使用Excel打开）编号 姓名 123 王五 456 李“四 789 张三 注意，在实际处理CSV文件前，程序开发者必须了解CSV文件的真实结构。为了说明在处理CSV文件时可能遇到的特殊情况，用于测试的CSV文件的最后两行的“姓名”列均插入了特殊字符。由于在显示CSV文件内容时，Excel已经对CSV文件进行了处理，因此，上面使用Excel所看到的内容并不是CSV的真实内容。如果使用文本编辑器打开，可以看到真实的内容为：-编号, 姓名123, 王五456, 李“四789, 张三-之所以出现这样的内容，是因为我们通常使用Excel编辑CSV文件，然后使用另存为命令保存为CSV文件。这一过程中，Excel会隐蔽地进行如下处理：1 CSV文件将Excel的同一行中不同单元格的内容使用,（半角逗号分隔开） 2 当内容中出现半角双引号时会自动被转义为两个双引号，即 ；同时内容整体的两端自动被双引号引起来。例如：李“四 - 李“四 了解了数据表和CSV文件的结构，下面就可以编写代码了。-1. Option Compare Binary 声明作用：声明当前VB环境中字符串的比较方式这里的 Binary 声明当前VB环境中的字符串依照其在内存中的字节码来进行比较如果你使用的是普通VB6.0环境，默认的字符串比较就是依照字节码比较但是，如果你使用的是Access VBA进行开发，就要特别注意了。Access VBA开发时会在全部代码之前默认追加声明：Option Compare Database也就是说，Access VBA默认依照Access数据库中存储的比较规则进行字符串比较所以，普通VB6.0开发环境与Access VBA开发环境的默认字符串比较方式不同。VB6.0的默认字符串比较方式是Binary,Access VBA的默认字符串比较方式是Database。注意：Database比较方式对全角和半角不敏感。例如，“，”， 与 在Database方式下将被视为相等所以，如果你的程序使用Access VBA开发，同时又要进行全角与半角的比较时应当使用Binary比较方式，而不是接受Access VBA的默认设置，即你的程序的首行必须是：Option Compare Binary2.全部代码如下：声明当前VB环境中字符串的比较方式为字节码Option Compare Binary要测试本例的文件操作，就新建一个窗体，在上面添加一个名为“cmdImport”的按钮，单击后即执行下面的方法，完成文件读取和写入数据库的操作函数开始-主函数，执行的开始Private Sub cmdImport_Click() Dim cn As New ADODB.Connection 指定连接字符串，本例连接到 D:db1.mdb 数据库 cn.ConnectionString = _ Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:db1.mdb 开启连接，准备对数据库操作 cn.Open 定义存储文件名的对象 Dim fileName As String 指定要读取的CSV文件的名称本例为 D:test.csv fileName = D:test.csv 执行ImportFile函数，完成以下操作： 1 读取 D:test.csv 文件的内容 2 将读取的文件内容写入 D:db1.mdb 数据库的 test 表中 ImportFile cn, test, fileName 完成操作后关闭连接 cn.Close 将连接设置为 Nothing ，及时释放其所占用的内存空间 Set cn = NothingEnd Sub函数结束-函数开始-参数-1. cn 使用的数据库联接，本例连接到 D:db1.mdb2. tblName 使用的数据库表名称，本例为 test3. FileFullPath 读取的CSV文件目录（包括文件名），本例为 D:test.csv4. FieldDelimiter 指定CSV文件同一行内容以哪种字符分隔 默认为 ,（半角逗号）5. RecordDelimiter 指定CSV文件不同行内容以哪种字符分隔 默认为 vbCrLf（回车换行符）参数- Public Sub ImportFile(cn As Object, _ ByVal tblName As String, FileFullPath As String, _ Optional FieldDelimiter As String = , _ Optional RecordDelimiter As String = vbCrLf) Dim cmd As New ADODB.Command Dim rs As New ADODB.Recordset Dim iFileNum As Integer Dim sFileContents As String Dim sTableSplit() As String Dim sRecordSplit() As String Dim lCtr As Integer Dim iCtr As Integer Dim lRecordCount As Long Dim iFieldsToImport As Integer Dim asFieldNames() As String Dim abFieldIsString() As Boolean Dim iFieldCount As Integer Dim sSQL As String 判断传入的cn参数是否是数据库连接对象，如果不是，退出程序 If Not TypeOf cn Is ADODB.Connection Then Exit Sub 判断指定目录下的CSV文件是否真实存在，如果不是，退出程序 If Dir(FileFullPath) = Then Exit Sub 判断数据库联接是否已打开，如果没有则打开连接 If cn.State = 0 Then cn.Open 使用数据库联接 cn 打开一个数据集 rs rs 的数据来源是指定表名 tblName 中的全部数据，打开方式是 adOpenKeyset rs.Open select * from & tblName, cn, adOpenKeyset 取得数据集字段数目 iFieldCount = rs.Fields.Count 重新定义asFieldNames的大小，用来存放数据表（本例为 test）的字段名 ReDim asFieldNames(iFieldCount - 1) As String 与上面的asFieldNames中存储的字段名一一对应，记录数据表的每一个字段是否是字符串类型 ReDim abFieldIsString(iFieldCount - 1) As Boolean 遍历数据表的所有字段： For iCtr = 0 To iFieldCount - 1 记录数据表的字段名 asFieldNames(iCtr) = & rs.Fields(iCtr).Name & 记录数据表的字段是否是字符串类型 abFieldIsString(iCtr) = FieldIsString(rs.Fields(iCtr) Next 使用FreeFile分配一个文件号 iFileNum = FreeFile 打开指定路径下的文件（本例中即 D:test.csv 文件） 注意：这里使用字节（Binary）方式打开文件， 原因：在下面读取CSV文件内容的操作中使用了LOF函数取得文件长度 如果使用文本方式打开文件，那么，由于文件中存在中文字符， 长度计算就会不正确，因此，采用Binary方式打开文件 Open FileFullPath For Binary As #iFileNum 使用LOF计算文件长度，分配所需的内存空间，并使 sFileContents 变量指向这一空间 sFileContents = Space(LOF(iFileNum) 将文件内容全部读取到 sFileContents 变量中 Get #iFileNum, , sFileContents 读取完成后，关闭文件 Close #iFileNum 以vbCrLf（回车换行符）作为换行标志，将CSV文件的内容分解为一个由若干字符串行组成的数组 并把数组内容存储到 sTableSplit 数组中 sTableSplit = Split(sFileContents, RecordDelimiter) 获得 sTableSplit 数组上界（即CSV文件行数），存储到 lRecordCount 中 lRecordCount = UBound(sTableSplit) 开始事务处理 cn.BeginTrans lRecordCount 记录了CSV文件的行数，下面通过循环依次处理CSV文件的每一行 For lCtr = 1 To lRecordCount - 1 以 ,（半角逗号）将CSV文件同一行中的内容划分为一个字符串数组， 并把数组内容存储到 sRecordSplit 数组中 sRecordSplit = Split(sTableSplit(lCtr), FieldDelimiter) CSV文件的一行中以 ,（半角逗号）划分出的数组长度和数据表的字段数可能不一致 因此，取两者之中长度最小的作为处理的基准 例如，文件的某一行数据为马，牛，羊 这一行数据划分后获得的 sRecordSplit 数组内容为 sRecordSplit = 马,牛,羊，长度为 3 而数据表有 userId 和 userName 两个字段，字段数为 2，那么最终将 iFieldsToImport = 2 iFieldsToImport = IIf(UBound(sRecordSplit) + 1 _ iFieldCount, UBound(sRecordSplit) + 1, iFieldCount) 下面，要把CSV文件当前行的内容插入到数据表中，为此开始准备SQL文本 sSQL = INSERT INTO & tblName & ( 使用循环将 asFieldNames 数组中存储的字段名依次追加到SQL文中 For iCtr = 0 To iFieldsToImport - 1 sSQL = sSQL & asFieldNames(iCtr) If iCtr iFieldsToImport - 1 Then sSQL = sSQL & , Next iCtr sSQL = sSQL & ) VALUES ( sRecordSplit 是在上面的处理中，由CSV文件同一行中的内容所转化成的数组 现在，将这个数组的内容添加到SQL文本的VALUES集合中 For iCtr = 0 To iFieldsToImport - 1 If abFieldIsString(iCtr) Then 如果值为文本，需要做特别处理（主要是针对CSV文件中的半角单引号和半角双引号） sSQL = sSQL & prepStringForSQL(sRecordSplit(iCtr) Else 如果不是文本，就直接添加到SQL文本的VALUES集合中 sSQL = sSQL & sRecordSplit(iCtr) End If 如果不是最后一个值，那么，在追加到SQL文本的VALUES集合时，不要忘记 在其后追加一个半角逗号 If iCtr 李“四 If Len(sAns) 0 Then If Left(sAns, 1) = Chr(34) Then sAns = Right(sAns, Len(sAns) - 1) If Len(sAns) 0 Then If Right(sAns, 1) = Chr(34) Then sAns = Left(sAns, Len(sAns) - 1) End If End If End If End If 去掉字符串中可能被自动追加的半角双引号 例如： 李“四 - 李“四 sAns = Replace(sAns, Chr(34