我的VB是用对象变量访问数据库的:
    Private Sub Form_Load()
    Set db = OpenDatabase("G:\vb1\hairf.mdb")
    Set rs = db.OpenRecordset("类型表")
    rs.MoveFirst
    Do While Not rs.EOF
      Combo1.AddItem rs.Fields(1)
       rs.MoveNext
    Loop
   End Sub
   要求是(1)打开数据库,把类型表的所有记录作为组合框的内容;(2)选择了发型,打开发型表取出所有选中的发型在组合框显示;(3)最后选中的发型在图片框中显示
那个2和3我做不到,要怎么做呢?(2)和(3)的要怎么写VB代码呢?
还有我那个ACCESS数据库保存图片怎么弄啊?
可能我那个数据库就是保存图有问题,我不会啊
向大侠求助啊

解决方案 »

  1.   

    2.
    Private Sub Combo1_Click()
    Combo2.Clear
        Set RS = db.OpenRecordset("SELECT " & Combo1.Text & " FROM " & Combo1.Text & "表")
        RS.MoveFirst
        Do While Not RS.EOF
          Combo2.AddItem RS.Fields(0)
           RS.MoveNext
        Loop
        Set RS = Nothing
    End Sub
      

  2.   

    3最后选中的发型在图片框中显示
    --------------------------
    简单的方法可以使用OLE控件,参考ACCESS NORTHWIND数据库的例子
    一般使用备注字段存储图片文件的数据流,显示到PICTUREBOX时,只需将该数据流保存到临时图片文件,再LOADPICTURE 方法读入到PICTUREBOX
      

  3.   

    可以参考http://www.souzz.net/html/edu/VB/3980.html
      

  4.   

    采用 ImageCombo 控件。1 选择菜单“工程”-“部件”- Microsoft Windows Common Controls 6.0。2 在窗体上放 2 个 ImageList,一个 ImageCombo。3 右键单击 ImageList,选择“属性”,在属性窗口中设置图片大小。插入图片,并设置索引(Index)和关键字(Key),还可以加上。注意,2 个 ImageList 分别放小图标(用于 Combo 显示)和大图片(用于 PictureBox 显示) 4 右键单击 ImageCombo,选择“属性”,在属性窗口中设置图像列表为放小图标的 ImageList。5 代码:Private Sub Form_Load()
    Dim i As IntegerSet ImageCombo1.ImageList = ImageList1
    For i = 1 To ImageList1.ListImages.Count
    ImageCombo1.ComboItems.Add , , ImageList1.ListImages(i).Key, i
    Next i
    If ImageCombo1.ComboItems.Count Then ImageCombo1.SelectedItem = ImageCombo1.ComboItems(1)
    End SubPrivate Sub ImageCombo1_Click()
    Picture1.Picture = ImageList2.ListImages(ImageCombo1.SelectedItem.Index).Picture
    End Sub
      

  5.   

    谢谢你们,你能加我的QQ吗?
    我QQ是416662482
    我有些问题问你,可以吗?
      

  6.   

    ListImages是未找到数据成员或方法啊?????
    运行出现这个错误,是为什么??
      

  7.   

    Set RS = db.OpenRecordset("SELECT " & Combo1.Text & " FROM " & Combo1.Text & "表")
    这个运行时出错了
    为什么?
    是我的数据库的问题吗?
    简单的方法可以使用OLE控件,参考ACCESS NORTHWIND数据库的例子
    一般使用备注字段存储图片文件的数据流,显示到PICTUREBOX时,只需将该数据流保存到临时图片文件,再LOADPICTURE 方法读入到PICTUREBOX
    这个不明白