数据库and ComboBox?

Question

用dbcombobox关连相关的字段 

Answer 1

我这里写了个，如觉得有帮助的话给点分啦。代码如下：//先引用一个ado控件，在工程|引用里面
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Const str = "Provider=SQLOLEDB;Data Source=asdmax;Initial Catalog=studentdb;User Id=sa;Password=asd;"
Private Sub Command1_Click()
    Picture1.Cls
    Picture1.Print
    With cn
    .ConnectionString = str
    .CommandTimeout = 10
    .Open
End With
    If Combo1.Text <> "" Then
        rs.Open "select * from student where sno=" & Combo1.Text, cn
            Do While Not rs.EOF
                Picture1.Visible = True
                Picture1.Picture = LoadPicture(rs.Fields.Item(9))
                Picture1.Print
                Picture1.Print Spc(19); rs.Fields(0); Spc(19); rs.Fields(1)
                Picture1.Print
                Picture1.Print Spc(19); rs.Fields(2); Spc(19); rs.Fields(3)
            If Not rs.EOF Then
                rs.MoveNext
            End If
        Loop
        rs.Close
    Else
        Picture1.Visible = False
        MsgBox "请您在列表中选择一个数据！"
    End If
    cn.Close
End SubPrivate Sub Form_Load()
    Set rs = New ADODB.Recordset
    Set cn = New ADODB.Connection
      With cn
    .ConnectionString = str
    .CommandTimeout = 10
    .Open
End With
    rs.Open "select sno from student", cn
         Do While Not rs.EOF
            Combo1.AddItem rs("sno")
            If Not rs.EOF Then
            rs.MoveNext
        End If
    Loop
    rs.Close
    
    cn.Close
End Sub
Private Sub Picture1_Click()End Sub

Answer 2

http://go8.163.com/dbcontrols/有简单的办法