使用Excel单元格数据作为参数将数据从MySQL返回到Excel

Question

我正在尝试将MySQL中的数据值返回到Excel中的单元格中。如果针对主键，只有从SQL返回的一行作为Where子句。

我可以让SQL执行但不知道如何将返回的值推送到Excel单元格中。

Sheet1 Cell C2包含用户可以输入的邮政编码。我想根据邮政编码将数据库中的ABC值返回到单元格C5。

这是我的代码：

Sub GetABCForPostcode()

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

t = "table1"
iParam1 = Sheets("Sheet1").Range("$C$2").Value

strCon = "Driver={MySQL ODBC 5.3 ANSI Driver};DATABASE=world;UID=root;PWD=MyPassword"
Set cn = CreateObject("ADODB.Connection")
cn.Open strCon
Set rs = CreateObject("adodb.recordset")

rs.Open "SELECT abc FROM " & t & " WHERE postcode = '" & iParam1 & "'", cn

End Sub

SQL工作并没有返回任何错误，但我不知道如何将返回值输入单元格C5 ???欢迎任何想法。

由于