下拉列表如何连接数据库

插入一个数据库控件adodc1，设置connectionstring属性与你的数据库绑定，设置recordsource属性，输入sql语句，比如：

select

姓名

from

数据库

再插入一个combox控件，设置datasource为

adodc1，设置datafiled为

姓名

这样就OK了。

实现VB6.0中组合款的下拉列表项目与ACCESS数据库相应表关联步骤：

通过选择“工程”菜单中的“引用...”来为 ADO 对象库添加一个引用，然后在“引用...”对话框中选择 Microsoft ActiveX Data Objects 2.0 Library

点上图确定。工程就引用了ADO。

实现代码：

Private Sub Form_Load()

  Dim adoCN As New ADODB.Connection    '定义数据库的连接

  Dim rstSchema, out

  Dim I As Integer

  str1 = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\wd.MDBPersist Security Info=False"

  adoCN.Open str1

  Set rstSchema = adoCN.OpenSchema(adSchemaTables)

  Do Until rstSchema.EOF

      If rstSchema!TABLE_TYPE = "TABLE" Then

          Combo1.AddItem rstSchema!TABLE_NAME

          I = I + 1

      End If

      rstSchema.MoveNext

  Loop

  rstSchema.Close

  adoCN.Close

End Sub

---