ADODB在记录集上找到

Question

在Excel 2010中，我正在编写一个将大文本文件加载到记录集的vb应用程序。 文本文件是一个日志文件，用空格分隔，列标题没有任何第一行。 我可以使用适当的schema.ini文件将文件加载到记录集中。 该文件记录用户登录到数据库。

用户帐户位于文本文件的第10列（记录集中为第9列）。 我想知道给定用户的最后登录日期是什么。

这是我使用的代码，给我3001错误。 我正在尝试获取名为psymonds的用户帐户的最后一条记录。

' LOAD login_history.txt file to a recordset called rs
strPath = ThisWorkbook.Path & "\"

Set cn = CreateObject("ADODB.Connection")
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath & ";Extended Properties=""text;HDR=No;FMT=Delimited"";"
cn.Open strcon
strSQL = "SELECT * FROM login_history.txt;"

Set rs = CreateObject("adodb.recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open strSQL, cn


rs.MoveFirst
rs.Find "rs.Fields(9) = '" & "psymonds" & "'", , 1, 2

Answer 1

如果没有标题，则记录集字段将命名为F1，F2等，因此您可以使用：

rs.Find "[F10] = 'psymonds'", , 1, 2