标题:请看看下面的代码要怎么修改?
只看楼主
msxjc
Rank: 1
等 级:新手上路
帖 子:83
专家分:0
注 册:2005-3-28
结帖率:50%
 问题点数:0 回复次数:1 
请看看下面的代码要怎么修改?

有一个组合框,combo1供用户选择电器的分类。当用户选择了一个以后,从一个名字为“品牌”的数据库中查找相应的与分类对应的品牌名字。再把它们添加到combo2中。小弟的代码是这样写的:
Public wsp As DAO.Workspace
Public db As DAO.Database
Public rst As DAO.Recordset

Private Sub GetPingPai()
Dim aa As Integer, bb As String
aa = Combo1.text
bb = aa & "品牌"
Set wsp = DBEngine.CreateWorkspace("wsp", "admin", "")
Set db = wsp.OpenDatabase(App.Path & "\data\dbPingPai.mdb")

Set rst = db.OpenRecordset("SELECT * FROM bb")

With rst
Do Until .EOF
Me.Combo2.AddItem rst!品牌
.MoveNext
Loop
End With
End Sub

Private Sub Combo1_Click()
GetPingPai
End Sub

运行这后vb报错说在指定的数据库中找不到名称为"bb的表,bb是我在程序中定义的变量,在sql语句中不能引用已定义的变量吗?

搜索更多相关主题的帖子: 代码 
2006-09-26 23:11
janeju
Rank: 1
等 级:新手上路
帖 子:35
专家分:0
注 册:2006-3-3
得分:0 

可以引用变量,但是你这样使用vb把它判断成sql语句的一部分了

("SELECT * FROM '"& bb &"'")

2006-09-27 09:15



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-93174-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.219443 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved