VBA中二级列表数据库连接的问题

wxchenlin

大侠，感谢您打开我的问题！

首先申明，我已在帮助文件中翻关于过此类问题的帮助，但由于本人能力有限，只能请您帮忙！问题如下：

我现在做两个复合框ComboBox，分别是大类和小类，均从数据库中读出，大类为命名为combobox1,小类命名为combobox2 ,先选择大类，从中取值为combobox1.text,此值取出没问题，我可以在旁边Textbox中显示 combobox1.txt，关键问题是下面，我用如下语句：

    Set rss = New Recordset
dim a      
a=combobox1.text
Dim ssql As String
  ssql = "select * from smallclass where bigclassname='a'"
 'ssql = "select * from smallclass where bigclassname='不锈钢' "   '如果直接代不锈钢则运行没问题
    rss.Open ssql, conn, adOpenDynamic, adLockOptimistic
    Dim i As Integer
    rss.MoveFirst
    For i = 0 To rss.RecordCount - 1
    ComboBox1.AddItem rss.Fields("smallclassname")
    ListBox.AddItem rss.Fields("smallclassname")
    If Not rss.EOF Or rss.BOF Then
    rss.MoveNext
    End If
    Next i

以上程序运行出错，显示错误为：“BOF或EOF中有一个为真，或者当前的记录已被删除，所需的操作要求一个当前的记录！”我自我判断是由于定义的ssql 为string,而取值的combox1.text不为string,所以程序无法运行，请各位高手献计

雪山飞狐_lzh

ssql = "select * from smallclass where bigclassname='" & a & "'"

wxchenlin

lzh741206发表于2006-1-1 21:18:00ssql = \"select * from smallclass where bigclassname='\" & a & \"'\"

厉害，不亏是斑竹，一分钟时间底我的一个晚上！谢谢！