当前位置: 开源爱好者 » VB源码 » 数据库编程 » 详情页

VB 6.0 按字段显示数据库所有值

VB 6.0 按字段显示Access数据库所有值,是一个按条件查询数据库的例子,这里的数据库为BOOK2.mdb,核心的代码如下:
  Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
  End Sub
  Private Sub Form_Load()
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\book2.mdb;Persist Security Info=False "
  Adodc1.RecordSource = "select * from 作者"
  Set DataCombo1.DataSource = Adodc1
  DataCombo1.DataField = "城市"
  Set DataCombo1.RowSource = Adodc1
  DataCombo1.ListField = "姓名"
  End Sub

VB 6.0 按字段显示数据库所有值测试效果图
源码包大小:10.3K
该源码已累计下载了:

CopyRight 2018© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图