Fonction de recherche dans VB6

Question

J'ai une table dans un fichier Excel appelé "Employee_States_File". Cette table contient deux colonnes Nom et Etats. Les deux colonnes sont remplies de données. La table province contient l'abréviation des états tels que "NE, WA" et ainsi de suite. J'ai un autre fichier Excel appelé "States_File" qui contient une table qui a deux colonnes: Abréviation et FullStateName. Cette table est considérée comme une table de recherche pour rechercher les noms d'état complets en fonction de l'abréviation. Maintenant, je veux écrire un code dans VB6 de sorte que lorsque l'utilisateur clique sur un bouton, tous les noms d'abréviations dans la table du fichier Excel "Employee_States" sont des changements dans les noms d'état complets basés sur la table de recherche de la feuille Excel " States_File ". cela a-t-il du sens? Veuillez nous aider,

Answer 1

Si vous êtes autorisé à les convertir en fichiers CSV (fichiers texte délimités par des virgules), vous pouvez utiliser le moteur Jet Database et faire des jointures SQL normales.

Je l'utilise pour configurer la connexion. Chaque fichier est une table dans la connexion et vous pouvez faire des jointures SQL. Notez que l'exemple est juste une simple ouverture d'une table. Vous pouvez utiliser n'importe quelle syntaxe SQL valide.

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