关于sql语句和vb数组的关系问题

Question

我用vb作了一个程序，用来连接sql server2000中的一个表。用一个数组来记录此表中的一个字段，然后把此数组作为where语句中的查询条件，但是t-sql语句处报错。具体代码如下
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Dim i As Integer
Dim str1(1000) As StringSet cn = New ADODB.Connection
cn.Open "Provider=sqloledb;Data Source=SERVER ;Initial Catalog=OFFICE;User Id=sa;Password="
sql = "select 名称 from 表"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
i = 1
While (rs.EOF = False)
str1(i) = rs.Fields(0) '名称
i = i + 1
rs.MoveNext
WendFor i = 1 To 1000
Set cn = New ADODB.Connection
cn.Open "Provider=sqloledb;Data Source=SERVER ;Initial Catalog=OFFICE;User Id=sa;Password="
sql = "select 数量 from 表 where 名称=str1(i)"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
j = 0
While (rs.EOF = False)
j = j + rs.Fields(0) '数量
rs.MoveNext
Wend
str3(i) = j
Next isql = "select 数量 from 表 where 名称=str1(i)"报错为：“str1不是可识别的函数名”请问大家该怎样解决

Answer 1

sql = "select 数量 from 表 where 名称='" & str1(i) & "'"

Answer 2

变量名要写在引号外面，写里面它不认识，又不是sql函数

Answer 3

str1不是可识别的函数名 不是SQL的函数！
改成：名称＝'"&strl(i)&"' 看行不行了

Answer 4

可以了。但是又遇到新的问题了。
text1.text="2004-09"sql = "select 数量 from 入库表 where 名称='" & str1(i) & "' and [规格/型号]='" & str2(i) & "' and (year(入库时间)<year( '" & Format(Text1.Text, "yyyy-mm") & " ')) or (year(入库时间)=year('" & Format(Text1.Text, "yyyy-mm") & " ') and month(入库时间)< month('" & Format(Text1.Text, "yyyy-mm") & " ') ) "在执行sql语句时提示错误为：
从字符串转换为datetime是发生语法错误
请问大家，这情况将如何处理？

Answer 5

去掉''试试，在sqlserver中时间不能加''
(year(入库时间)=year(" & Format(Text1.Text, "yyyy-mm") & ")

Answer 6

(year(入库时间)<year( '" & Format(Text1.Text, "yyyy-mm") & " ')) or (year(入库时间)=year('" & Format(Text1.Text, "yyyy-mm") & " ') and month(入库时间)< month('" & Format(Text1.Text, "yyyy-mm") & " ') ) "
上面已经指出了yyyy-mm  无需在判断year和month了
还有year('" & Format(Text1.Text, "yyyy-mm") & " ') 这个本来是datatime ，而 year（）转换字符串，当然去提示出错了！ 
就用    入库时间<format(text1.text,yyyy-mm)   就可以了！

Answer 7

sql = "select 数量 from 表 where 名称=str1(i)"将这句改为:
sql = "select 数量 from 表 where 名称=＇" ＆str1(i)　＆＂＇＂

Answer 8

在输入了：入库时间<'" & Format(Text1.Text, "yyyy-mm") & "'之后就报错。只有输入改为：入库时间<'" & Format(Text1.Text, "yyyy-mm-dd") & "'之后才能正常运行。但是我希望：入库时间='" & Format(Text1.Text, "yyyy-mm") & "'只要满足该月的条件就行，但要是改为：入库时间='" & Format(Text1.Text, "yyyy-mm-dd") & "'就只能满足改天的条件才行了。这与我希望的不符。请问各位应该怎样处理？