Visual Basic 6.0 ADODB 命令到变量

Question

这是代码

Dim cmd As ADODB.Command
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Nirvana.mdb" & "; Persist Security Info=False;"
Set cmd = New ADODB.Command
cmd.CommandText = "Select [Last Name] From Accounts Where [First Name]=@FN"
Set cmd.ActiveConnection = conn
cmd.Parameters.Item("@FN").Value = txtFirstName.Text
cmd.Execute
Set cmd.ActiveConnection = Nothing
Set cmd = Nothing
conn.Close

如何将此查询的结果传递给 Visual Basic 6.0 中的变量？

Answer 1

结果存储在记录集中，创建一个：

dim rs as ADODB.RecordSet

然后代替cmd.execute使用：

rs.open cmd

if not rs.eof then
   ''//got rows 
   msgbox "first row, first col=" & rs.collect(0)
   ...