运行时提示“表被其他用户或进程使用”，请问哪出问题啦？

zjszjs27

1. LineText = FileText.readline
   
2.                     
   
3.                     ''''''''''''''''''''''''''''''''''''按行读取的记录,如果不是已"/"开始的,进行处理'''''''''''''''''''''''''''''
   
4.                                       
   
5.                     
   
6.                         If (Left(LineText, 1) <> "/" And LineText <> "") Then    '---------------------(2)--------------------------------
   
7.                         '获取BSC名称,只在第一行有效数据中出现，才会获取BSC名称
   
8.                            If bsc_search_biaoji = True And InStr(LineText, "SET SYS") Then
   
9.                                BscName = Mid(LineText, InStr(LineText, "SYSOBJECTID") + 13, InStr(InStr(LineText, "SYSOBJECTID") + 13, LineText, ",") - 2 - (InStr(LineText, "SYSOBJECTID") + 13) + 1)
   
10.                            End If
    
11.                             '获取列名和列值\表名空格间隔形式
    
12.                            linetext_str = str_sp(LineText, ",", ":")
    
13.                            '获取表名
    
14.                            tableName = Replace(linetext_str(0), " ", "_")
    
15.                     
    
16.                             colon_name = ""
    
17.                             colon_value = ""
    
18. 
    
19.                             If dic_tbl.Exists(tableName) = False Then  '---------------------(1)--------------------------------
    
20.                             ''''''''''''''''''''''''''''''''''''''查找需要创建的表是否已经在数据库中'''''''''''''''''''''''''''''''''''''''
    
21.                            
    
22.                                       '该表不存在，则创建表，并增加所有列
    
23.                                         '''''''''''''''''''查询结果,在数据库中没有找到需创建的表,所以进行创建新表的操作'''''''''''''''''''''''''''
    
24.                                         dic_value = "-"
    
25.                                         '创建表，默认包含一列BSC_NAME
    
26.                                         sql_str = "create   table   " & tableName & "   (" & "HBSC_NAME" & "   text(255))"
    
27.                                         CurrentProject.Connection.Execute sql_str
    
28.                                             For I = LBound(linetext_str) + 1 To UBound(linetext_str) Step 2
    
29.                                                 '获取列名和列值
    
30.                                                 colon_name = colon_name & ", " & linetext_str(I)
    
31.                                                 colon_value = colon_value & ", " & """" & linetext_str(I + 1) & """"
    
32.                                                 '创建各列
    
33.                                                 If (Len(linetext_str(I + 1)) <= 255) Then
    
34.                                                     sql_str = "Alter   Table   " & tableName & "   Add   " & "COLUMN " & linetext_str(I) & "   text(255)"
    
35.                                                     CurrentProject.Connection.Execute sql_str
    
36.                                                 
    
37.                                                 Else
    
38.                                                     sql_str = "Alter   Table   " & tableName & "   Add   " & "COLUMN " & linetext_str(I) & "   longtext"
    
39.                                                     CurrentProject.Connection.Execute sql_str
    
40.                                             
    
41.                                                 End If
    
42.                                                 dic_value = dic_value & linetext_str(I) & "-"
    
43.                                             Next I
    
44.                                             dic_tbl.Add tableName, dic_value
    
45.                             Else   '--------------------(1)-----------------------------------------
    
46.                                       '该表存在，则判断各列是否都存在，不存在的增加列
    
47.                                        
    
48.                                         For I = LBound(linetext_str) + 1 To UBound(linetext_str) Step 2
    
49.                                             '获取列名和列值
    
50.                                             colon_name = colon_name & ", " & linetext_str(I)
    
51.                                             colon_value = colon_value & ", " & """" & linetext_str(I + 1) & """"
    
52.                                             '判断列名在表中是否存在
    
53.                                             If InStr(dic_tbl.Item(tableName), linetext_str(I)) = 0 Then  '不存在
    
54.                                                 '更新字典中列名值
    
55.                                                 dic_tbl.Item(tableName) = dic_tbl.Item(tableName) & linetext_str(I) & "-"
    
56.                                                 '在表中增加缺少的列
    
57.                                                 If (Len(linetext_str(I + 1)) <= 255) Then
    
58.                                                     sql_str = "Alter   Table   " & tableName & "   Add   " & "COLUMN " & linetext_str(I) & "   text(255)"
    
59. 运行出错的地方：                                                    CurrentProject.Connection.Execute sql_str
    
60.                                                 Else
    
61.                                                     sql_str = "Alter   Table   " & tableName & "   Add   " & "COLUMN " & linetext_str(I) & "   longtext"
    
62.                                                     CurrentProject.Connection.Execute sql_str
    
63.                                                 End If
    
64.                                             Else
    
65.                                                 find_colomn_biaoji = False
    
66.                                                 m = InStr(dic_tbl.Item(tableName), linetext_str(I))
    
67.                                                 Do While m + Len(linetext_str(I)) - 1 <= Len(dic_tbl.Item(tableName))
    
68.                                                     '获取M位前一位字符
    
69.                                                     temp_str1 = Mid(dic_tbl.Item(tableName), m - 1, 1)
    
70.                                                     '获取M+LEN()后一位字符
    
71.                                                     temp_str2 = Mid(dic_tbl.Item(tableName), m + Len(linetext_str(I)), 1)
    
72.                                                     '当两者均为“-”时，说明完全匹配，否则匹配失败
    
73.                                                     If temp_str1 = "-" And temp_str2 = "-" Then
    
74.                                                         find_colomn_biaoji = True
    
75.                                                         Exit Do
    
76.                                                     Else
    
77.                                                         m = InStr(m + Len(linetext_str(I)), dic_tbl.Item(tableName), linetext_str(I))
    
78.                                                         If m = 0 Then
    
79.                                                             Exit Do
    
80.                                                         End If
    
81.                                                     End If
    
82.                                                 Loop
    
83.                                                 If find_colomn_biaoji = False Then
    
84.                                                      '更新字典中列名值
    
85.                                                     dic_tbl.Item(tableName) = dic_tbl.Item(tableName) & linetext_str(I) & "-"
    
86.                                                     '在表中增加缺少的列
    
87.                                                     If (Len(linetext_str(I + 1)) <= 255) Then
    
88.                                                         sql_str = "Alter   Table   " & tableName & "   Add   " & "COLUMN " & linetext_str(I) & "   text(255)"
    
89.                                                         CurrentProject.Connection.Execute sql_str
    
90.                                                     Else
    
91.                                                         sql_str = "Alter   Table   " & tableName & "   Add   " & "COLUMN " & linetext_str(I) & "   longtext"
    
92.                                                         CurrentProject.Connection.Execute sql_str
    
93.                                                     End If
    
94.                                                 End If
    
95.                                                 
    
96.                                             End If
    
97.                                             
    
98.                                         Next I
    
99.                             End If   '--------------------(1)-----------------------------------------
    
100.                         
     
101.                            '将所有列值插入到表中
     
102.                        
     
103.                             '默认创建的表中包含HBSC_NAME列，故需增加列HBSC_NAME及其对应的值BscName
     
104.                             insertSQL1 = "insert into " & tableName & "(HBSC_NAME"
     
105.                             insertSQL2 = " values(" & """" & BscName & """"
     
106.                             sql_str = insertSQL1 & colon_name & ")" & insertSQL2 & colon_value & ")"
     
107.                             CurrentProject.Connection.Execute sql_str
     
108.                            
     
109.                     End If    '---------------------(2)--------------------------------

复制代码

运行到”运行出错的地方“，提示表被其他用户或进程使用。这个表是已经存在的，之前已经插入两行数据，第三行数据比表中多了一列，所以在这增加一列，就在这出错了。请问哪里代码有问题啊，应该怎么修改啊？我程序里就是多次运行了语句 CurrentProject.Connection.Execute sql_str，对这个有什么要求吗？

zjszjs27

各位帮帮忙啊