Question

我正在使用VB 6.0我有一个表单（Form1），1个组合框（ComboBox1）和1个文本框（TextBox1）我在我的本地数据库中有一个表（Salary），它是在项目中创建的。在表'工资'我只有四列（UserID - 主键，薪资类型，薪资范围），表中有多个记录。

我需要知道的是如何让文本框填充组合框中所选内容的相应列。任何和所有的帮助将不胜感激。

以下是用于将数据库与VB链接的代码：

Private WithEvents cmdPopulate As CommandButton
Private WithEvents dcbDataCombo As DataCombo

Private Sub Form_Load()

    Dim rs As ADODB.Recordset
    Dim strConnect As String
    Dim strSQL   As String

    strConnect = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Mahmoud\Desktop\Project\Database.mdb;Persist Security Info=False"
    strSQL = "Select Distinct * FROM Salary order by UserID asc"  ' set ascending order

    Set rs = New ADODB.Recordset
    With rs
       .CursorType = adOpenStatic
       .LockType = adLockReadOnly
       .Open Source:=strSQL, _
          ActiveConnection:=strConnect, _
          Options:=adCmdText
    End With

    Set DataCombo1.RowSource = rs
    DataCombo1.ListField = "UserID"
    DataCombo1.DataField = "UserID"

End Sub

Answer 1

我已将我的答案从点击事件更新为完整示例：

Option Explicit

Private WithEvents cmdPopulate As CommandButton
Private WithEvents dcbDataCombo As DataCombo
Private rs As ADODB.Recordset

Private Sub Form_Load()
   Dim strConnect As String
   Dim strSQL As String
   Dim cn As ADODB.Connection

   strConnect = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Mahmoud\Desktop\Project\Database.mdb;Persist Security Info=False"
   strSQL = "Select Distinct * FROM Salary order by UserID asc"  ' set ascending order

   Set cn = New ADODB.Connection
   cn.ConnectionString = strConnect
   cn.Open
   cn.CursorLocation = adUseClient
   Set rs = New ADODB.Recordset
   rs.Open strSQL, cn, adOpenStatic, adLockReadOnly, adCmdText

   Set DataCombo1.RowSource = rs
   DataCombo1.ListField = "UserID"
   DataCombo1.DataField = "UserID"
End Sub

Private Sub DataCombo1_Click(Area As Integer)
   rs.MoveFirst
   rs.Find "UserID = " & DataCombo1.Text
   If Not (rs.BOF Or rs.EOF) Then TextBox1.Text = rs.Fields("SalaryType").Value
End Sub

如果字段名称SalaryType不正确，请根据需要进行修复。

Answer 2

您写道：

ActiveConnection:=strConnect

但是strConnect是一个字符串，而ActiveConnection需要一个ADODB.Connection对象，而不是一个字符串。此外，连接必须已经打开：

Dim CN As ADODB.Connection
Set CN = New ADODB.Connection
CN.ConnectionString = strConnect
CN.Open
CN.CursorLocation = adUseClient

' for recordset:
rs.Open strSQL, CN, adOpenStatic, adLockReadOnly, adCmdText

如果选择组合框vb6，则在文本框中填充值

2 个答案: