Question

VB 中查询数据并在Label 中显示，怎么实现？

表货物资料已经很VB 建立连接，现在要查询“货名”等于“棉花”的数据，并在label1中显示出来，要怎么实现？
用的是access数据库，
Adodc1.RecordSource = "SELECT * FROM 货物资料 WHERE 货名=" + Trim(cargosel) + ""
这句代码之后要加上什么才能让查到的结果显示出来呢

Answer 1

label1.caption= ADODC1.Recordset.Fields(第几个字段，从0开始)
'例如 查询之后 想显示第二个字段的结果 Fields() 中 则填写 数字1

希望可以帮到你。

Answer 2

for i=1 to adodc1.recordset.RecordCount '将所有结果显示
s= ADODC1.Recordset.Fields("货名") & ADODC1.Recordset.Fields([字段名]) & _
chr(13) & chr(10)
label1.caption=label1.caption & s
next i