Question

vb listbox在点击时候如何从数据库中调出图片和信息显示在窗体上的文本里

窗体如下

当我在左上角输入和选择搜索条件后，单级生成方案按钮，会在上方的LISTBOX空间里得到筛选后方案名称。DATAGRID控件和ADODC1控件让我隐藏了。。如下图：

我现在不会的是，当我单击listbox其中一个方案时，怎么把这种方案的其余信息输出到窗体左下角的图片框和文本框里，是一一对应的那种 ，， 代码怎么编写，求详细解答 谢谢！！
这个是我的数据库，，， 用DATAGRID这个插件可视化显示 我现在会做了，，但是我的想法是把方案的名称输出到上面所说的LISTBOX中 这样可以方便选择，然后单击某个方案，则在左下方显示这种方案的图片和其余信息。。





Answer 1

我这样举例：

Private Sub List1_Click()
Dim i As Integer
Dim MyStr As String
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
MyStr = List1.List(i)
Exit For
End If
Next i

Adodc1.RecordSource = "Select * From 数据表名 Where 名称='" & MyStr & "'"
Adodc1.Refresh

Debug.Print "级数=" & Adodc1.Recordset.Fields("级数")
Debug.Print "旋转方向=" & Adodc1.Recordset.Fields("旋转方向")
Debug.Print "使用寿命=" & Adodc1.Recordset.Fields("使用寿命")
Debug.Print "图片文件名=" & Adodc1.Recordset.Fields("图片")

End Sub

你会了吧？

追问

这种错误是怎么回事

追答

这个
Adodc1.RecordSource = "Select * From 机构库 Where 名称='" & MyStr & "'"

MyStr应该是你选中的列表框里的项目。？？？？？？

追问

还是输出不出来参数，，要不QQ细说下吧

追答

QQ:470692236