加一个data控件
datadatabasename = 你的数据库名字
datarecordsource = 你数据库表名
listdatasource = data1
listdatafield = 你要显示的字段(如名字)
完成
sqlstr1 = "select sum(装配时间) from 基元 where 工人= '" & Combo1Text & "'"
Adodc1RecordSource = sqlstr1
Adodc1Refresh
lbl7caption = Adodc1Recordset
'我帮你写了完整的代码,看可以吗?:
'注意数据库须和Vb程式放在同一个资料夹。
Private Sub Form_Load()
Data1DatabaseName = AppPath & "\数据库名称mdb"
Data1RecordSource = "资料表名称"
Data1Refresh
Combo1Clear
Do While Not Data1RecordsetEOF
Combo1AddItem Data1RecordsetFields("帐号")Value
Data1RecordsetMoveNext
Loop
End Sub
'vs2010,VB10 牧固图
imports systemdata
imports systemdataoledb
dim conn as OleDbConnection=new OleDbConnection
connConnectionString= "Provider=MicrosoftACEOLEDB120;Data Source=" & Db & ";Persist Security Info=True"
dim cmd as new sqlcommand
Dim cmd As OleDbCommand = New OleDbCommand
cmdCommandText = "Select Name from Elements"
dim da as new OleDbDataAdapter
daSelectCommand =cmd
dim ds as new Dataset
dafill(ds)
connclose
dim dt as datatable=dstables(0) '从数据库里面读出一列,放入了一个dataTable里面去。
'dt可以绑定到控件。如combobox
combo1datasource=dt
combo1displaymember="Name"
以上就是关于VB中怎么将数据库的一列内容显示在ListBox控件中 数据库名为ListBox.mdb 表名位listbox1。姓名 年龄 电话全部的内容,包括:VB中怎么将数据库的一列内容显示在ListBox控件中 数据库名为ListBox.mdb 表名位listbox1。姓名 年龄 电话、vb连接access数据库求一列数据的和、VB Combo连接数据库后显示表中某列的数据问题等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)