Office中国论坛/Access中国论坛

标题: 程序出错了…… [打印本页]

作者: ilike 时间: 2006-6-12 17:04
标题: 程序出错了……
下面是本人写的一段（刚开始学写啊）

Dim rst As New ADODB.Recordset
Dim conn As New ADODB.Connection
Dim sqlstr As String

Set conn = CurrentProject.Connection
sqlstr = "select * from model where model.type_id = " & Me.Combo1.Column(2)
rst.Open sqlstr, conn, adOpenKeyset, adLockOptimistic '提示错误处 "标准表达式中数据类型不匹配"
Me.Combo2.Recordset = rst.Fields(0)
rst.Close

附：model表

<IMG>id、model、 type_id

combo1:字段 id,type,type_id

我主要的目的是想通过combo1筛选model中的数据，并把这些数据付给combo2。不知道有没有更好的程序，请赐教！！<IMG>[attach]18454[/attach]
[attach]18455[/attach]

[此贴子已经被作者于2006-6-12 11:18:47编辑过]

作者: andymark 时间: 2006-6-12 17:15
你发的图看不清试试：

sqlstr = "select * from model where [type_id] = " & Me.Combo1.Column(2) & ""

作者: ilike 时间: 2006-6-13 15:52
各位大虾帮帮忙啊，小弟已经苦恼了好多天了啊！我上面的程序到底错在哪里啊，各位还有没有更好的方法了啊？救救急啊！！

作者: andymark 时间: 2006-6-13 17:56
把你的例子传上来

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)