VB6中的查找功能

Question

我在一个名为“Employee_States_File”的excel文件中有一个表。该表包含两列名称和状态。两列都填充了数据。省表中包含诸如“NE，WA”等国家的缩写。我有另一个名为“States_File”的excel文件，其中包含一个具有两列的表格：缩写和FullStateName。该表被认为是一个查找表，以查找基于缩写的完整状态名称。现在，我想在VB6中编写代码，以便当用户单击某个按钮时，Excel文件“Employee_States”的表中的所有缩写名称都将根据Excel工作表的查找表更改为完整状态名称“ States_File”。 它有道理吗？ 请帮忙，

Answer 1

如果您可以将它们转换为csv文件（逗号分隔文本文件），您可以使用Jet数据库引擎并执行正常的SQL连接。

我用它来设置连接。

Public Function OpenTextConnection(ByVal FileName As String) As Connection 
    Dim FSO As FileSystemObject 
    Dim DBFolder As String 
    Dim TS As TextStream 

    Set FSO = New FileSystemObject 
    DBFolder = FSO.GetParentFolderName(FileName) 

    If FSO.FileExists(FSO.BuildPath(DBFolder, "Schema.ini")) Then 
     FSO.DeleteFile (FSO.BuildPath(DBFolder, "Schema.ini")) 
    End If 

    Set TS = FSO.CreateTextFile(FSO.BuildPath(DBFolder, "Schema.ini")) 
    TS.WriteLine "[" & FSO.GetFileName(FileName) & "]" 
    TS.WriteLine "Format=CSVDelimited" 
    TS.WriteLine "ColNameHeader = True" 
    TS.WriteLine "MaxScanRows = 0" 
    TS.Close 

    Set OpenTextConnection = New Connection 


    If FSO.FolderExists(DBFolder) Then 
     OpenTextConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBFolder & ";Extended Properties=""text;HDR=Yes;FMT=Delimited;"";" 
    Else 
     MsgBox DBFolder & " Does not exists.", vbExclamation 
    End If 

End Function 

每个文件都是连接中的表，您可以执行SQL连接。注意这个例子只是简单地打开一个表格。您可以使用任何有效的SQL语法。

Dim DB1 As Connection 
Dim TB As Recordset 
Dim FSO As FileSystemObject 
Dim tImport As New DBImportList 
Set FSO = New FileSystemObject 
Set tImport = New DBImportList 
If FSO.FileExists(FileName) Then 
    Set DB1 = OpenTextConnection(FileName) 
    Set TB = New Recordset 

    TB.Open "SELECT * FROM [" & FSO.GetFile(FileName).Name & "]", DB1, adOpenKeyset, adLockOptimistic, adCmdText 

End If