Question

vb数据库查询问题

我现在的数据库有id，name两个字段，用adodata控件连接数据库后，用datalist1控件下拉列表选择数据库的id字段。
现在想当在datalist1中选择了id字段后，在label1中即显示相对应的name字段，请问怎么实现这个功能
不好意思，我把问题发错了，我是用datacombo控件，不是用datalist控件。我把数据库用adodc控件连接好后，输入代码如下：
Private Sub DataCombo1_Change()
Dim str As String, str2 As String
str = DataCombo1.Text
str2 = "select * from film where id=" & "'" & str & "'"
Adodc1.RecordSource = str2
Adodc1.Refresh
Label1.Caption = Adodc1.Recordset.Fields("name")
End Sub
可是这样运行时在datacombo下拉菜单中选择后，label中也确实可以显示数据，但datacombo的下拉菜单却没法再选择了.请问这个问题应该怎么解决？

Answer 1

1.你的datalist1的BoundColumn设置成name.
2.然后在datalist1_click()里面写
On Error GoTo Err1
Label1.Caption = DataList1.BoundText
Exit Sub
Err1:
Label1.Caption = "NULL"
3.如果datalist1.boundtext里是个空值,程序会报错
所以加个 On Error
*********************************
是不是你的adodata里面的记录没有name?
我的adodata是"select * from stockers"的,
我的datalist是
datalist.boundcolumn=stock_name
datalist.datasource=adodc1
datalist.listfied=stock_id
datalist.rowsource=adodc1.
你可以调试一下,把 on errorgot err1注释掉.
看看报错信息是怎么写的.如果你调试不好.可以把错误信息发上来.
********************************************
我晕,你的change里面的语句已经改变了Adodc1,combo里面当然只有你选择的数据了.
你在窗体里面再加一个Adodc2,操作Adodc2就没有影响了.

Answer 2

数据库链接，你自己来
sql="select
*
from
DB
where
Names='"
&
Text1.text
&
"'
and
Pass='"
&
Text2.text
&
"'"
"
rs.open
sql,conn,1,2
if
rs.RecordCount
>0
then
msgbox
rs("Admins")
end
if
rs.close
conn.close

Answer 3

你的意思是ipartDepActualNum本身是个变量~值为数据库表里某字段?
试试
rst1.fields(ipartDepActualNum)

Answer 4

将上面一个END
IF去掉啊,这个IF不正常的:
....
End
if(这里去掉)
ElseIf
....