在VB中的List控件里怎么读取数据库中的信息,并将其显示在这个List控件上?

苦思冥想,怎么也找不到答案。。。。
求大神指点一下,谢谢啦!

第1个回答  2015-10-21

    链接数据库。查询你需要显示的内容。

    for 循环 使用 list.AddItem "添加的内容" 讲需要显示的多条信息显示出来。就完成了。

追问

怎么连接数据库

追答

定义一个链接数据库的ADO对象 ADODB.Connection 举例:Pcn
然后对该对象的connectionstring赋值(数据库连接串,百度搜一大把)
然后该对象.open 成功这链接成功,失败看提示。

然后定义一个 adodb.recordset 举例 rs

set rs=pcn.excute("select ....")
do while not rs.eof
list.additem rs("列名") & ""
rs.movenext
loop

追问

你说得是visual basic 6.0吧
我用的是visual studio 2015 里面没有ADO
怎么办呢?

追答

思路一样的..只是可能连接数据库..取数据的方式变化了

本回答被提问者和网友采纳

在VB中如何读取列表框中的最小数据,并显示到标签中?谢谢!!
Private Sub command1_click()Min = List1.List(0)For i = 0 To List1.ListCount - 1 If Min > List1.List(i) Then Min = List1.List(i)Next Label1.Caption = Min End Sub

vb6.0中的控件list怎样调用数据库中的东西。
listbox 不能够连接数据库,只能先读出数据库数据,再添加到list里面,建议你用MSHFlexGrid控件'MSHFlexGrid操作参考: Private Sub LoadMSHFlexGridData Dim As New ADODB.Connection, rs As New ADODB.Recordset.Open "DRIVER=Microsoft Access Driver *.mdb; DBQ= " & App.Path & "\\数据库.mdb;User I...

VB list读取access数据库中的一列并显示出来
1:直接从Rst里读取数据,在Rst获得数据集合的时候 List1.Clear rst.MoveFirst Do While Not rst.EOF List1.AddItem rst.Fields("text1") '这里把字段名修改成数据表里的实际字段名 rst.MoveNext Loop 2:通过MSHFlexGrid1网格控件,向list添加数据 略 ...

vb中如何把数据库的内容显示到listview,帮我解决下吧 谢谢你
ListView1.ListItems.Add , , "1"'ListView1.ListItems.Add , , "1", , 1 '添加图标 后面那个1是ImageList1控件中的图标索引号 ListView1.ListItems(1).SubItems(1) = "00:00:00"ListView1.ListItems(1).SubItems(2) = "2008-01-01"ListView1.ListItems(1).SubItems(3) = "(...

VB模糊查找ACCESS数据库并显示到LIST1中
发点我通过EXCEL用VBA 取SQL数据库的数据后显示在LIST中的代码给你借鉴一下:Private Sub UserForm_Initialize()On Error Resume Next myArray = Array("客户ID", "代码", "简称", "全称", "电话", "传真", "地址", "邮编", "税号", "账号", "联系人", "手机", "邮箱", "QQ", "...

VB读写文本内容,并将内容写进ListView控件中。
运行状态 AS STRING END TYPE DIM A AS JIEGOU 存放是时候只要把数据都写入到这个结构里面然后PUT #1,,A 就搞定 读取的时候GET #1,,A 就可以把数据读取出来,如果是多个那么就采用数组进行存放。写入到ListView控件:ListView.ListItems.Add , , 账户 ListView.ListItems(ListV.ListItems.Count)...

vb 搜索 listbox 中的 某一行 ,并显示在其上面
For i = 0 To List1.ListCount - 1 for j=1 to len(list1.list(i))-k+1 m=mid(list1.list(i),j,k)if m=text1.text then List1.Selected(i) = True end if next j Next i End Sub 换成command1_click()我验证了好使 你需要把list1的muliselect 属性改为1 如果对您有帮助...

vb 把access数据库中的数据在listbox中显示出来
首先,添加引用:工程->引用->Microsoft ActiveX Data Object 2.0 Library 其次,添加代码,参考如下:Private Sub Form_Load()Dim conn As New ADODB.Connection conn.Provider = "Microsoft.Jet.OleDB.4.0"conn.Open "D:\\学生信息.mdb"Set rs = conn.Execute("您的学生信息表名")conn.Cancel ...

vb.net如何查询DataGridView中数据,然后把查询到的内容显示到listview...
你都用到了listView这中Dev控件了,建议你使用Dev的GridControl控件;数据源绑定DataTable,DataTable是可以设置查询条件的(字符串条件);将查询出来的DataRowView\/DataRow封装成集合List对象,绑定给listView就可以了 另:DataGridView应该也可以绑定DataTable做为数据源的。使用LINQ查询,就跟写数据库查询...

怎么将数据库表中的数据显示在VB的listbox列表中
dim sqlsentence as string sqlconnectionstr="Provider=SQLOLEDB.1;Password=数据库密码;Persist Security Info=True;User ID=sa;Initial Catalog=数据库对象名;Data Source=数据库地址"sqlsentence=数据库检索语句 cn.connectionstring=sqlconnectionstr cn.open rs.open sql,cn,1,1 do while not rs....

相似回答