Question

VB6.0中COMBOBOX显示数据库某字段下的数据

form上两个控件 command combobox
要求点击一下command后
combobox的列表中显示出access2000数据库yhb表yhm字段下的值。
该怎么写？
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
Private Sub command_Click()
cn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;Jet OLEDB:Database password=123456"
cn.Open

End Sub
中间部分该怎么写？

Answer 1

dim arr(1 To 9) As Integer
Private Sub C1_Click()
Dim i As Integer
Open "in6.txt" For Input As 1
For i = 1 To 9
Input #1, arr(i)
Text1.Text = Text1.Text + Str(arr(i))
Next
Close #1
C1.Enabled = False
End Sub
给你个例子，自己看看o(∩_∩)o...