★关于select查询中使用变量的菜鸟问题

Itachi

我在access中新建了一个叫“sheet1”的表，然后想使用ＳＱＬ语句来查询表中的“客户名”字段，并保存在一个定义好的数组中。

程序如下：

Dim a(1 To 17) As String
 
Dim RS As ADODB.Recordset
Dim strSQL As String

Set RS = New ADODB.Recordset

For i = 1 To 17
   strSQL = "select 客户名 from sheet1 where 编号= " & i

 RS.Open strSQL, CurrentProject.AccessConnection, adOpenKeyset
    a(i) = RS("客户名")
    Debug.Print a(i)
Next i
 Debug.Print

然后运行时，程序报错。

请问，上面程序错在哪里呢？请高手指点指点。不胜感激！

Itachi

For i = 1 To 17
   strSQL = "select 客户名 from sheet1 where 编号=" & i
next i

i 应怎么表示？请高手指点，不胜感激！！！

sgrshh29

你是在access中吧？为什么要这样循环？一般都是用rs.movenext

strSQL = "select 客户名 from sheet1 where 编号>=1 and 编号<=17"
RS.Open strSQL, CurrentProject.AccessConnection, adOpenKeyset
do until rs.eof
debug.print rs(0)
rs.movenext
loop

[此贴子已经被作者于2008-5-28 16:57:15编辑过]

Itachi

那如果我要用到上面的字段“客户”，该怎样做呢？

请楼上高手指点！！！

sgrshh29

QUOTE:

以下是引用Itachi在2008-5-28 17:53:52的发言：

那如果我要用到上面的字段“客户”，该怎样做呢？

请楼上高手指点！！！

什么意思？rs(0) 就是客户名。

Itachi

例如我的“客户名”字段是第一列，现在我想选第一列中的第i条数据，应该怎样写呢？请高手再次指教。不胜感激！

sgrshh29

QUOTE:

以下是引用Itachi在2008-5-28 21:26:04的发言：
例如我的“客户名”字段是第一列，现在我想选第一列中的第i条数据，应该怎样写呢？请高手再次指教。不胜感激！

不知道你要问什么。

Itachi

For i = 1 To 17
   strSQL = "select 客户名 from sheet1 where 编号=" & i & ""
next i

这样就可以循环了