首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

VB中listbox有关问题

2012-01-20 
VB中listbox问题在listbox中有3个名字:张三李四王五其中张三的ItemData是1,李四是2,王五是3,他们在数据库

VB中listbox问题
在listbox中有3个名字:
张三
李四
王五
其中张三的ItemData是1,李四是2,王五是3,他们在数据库中的id也是对应的1,2,3,我的意思就是点击listbox中的张三,就能从数据库中根据id=1把其他信息搜出来,以下我做了一段程序,系统报错是参数不可选
Private Sub List1_Click()

Dim conn As New ADODB.Connection, rs As New ADODB.Recordset

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & appdisk & "gp.dll;Persist Security Info=False;Jet OLEDB:Database Password="

strSQL = "SELECT nr,time FROM falv where id = " & List1.ItemData & " "

rs.Open strSQL, conn, 3, 3

 Form2.RichTextBox1.Text = rs!nr & ""
rs.Close
conn.Close

Form2.Show 0.1

End Sub
请问一下该怎么弄,谢谢了

[解决办法]
ItemData 是数组,要取对应的成员才行

VB code
strSQL = "SELECT nr,time FROM falv where id = " & List1.ItemData(List1.ListIndex) 

热点排行