我的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数据库保存图片怎么弄啊?
可能我那个数据库就是保存图有问题,我不会啊
向大侠求助啊
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数据库保存图片怎么弄啊?
可能我那个数据库就是保存图有问题,我不会啊
向大侠求助啊
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
--------------------------
简单的方法可以使用OLE控件,参考ACCESS NORTHWIND数据库的例子
一般使用备注字段存储图片文件的数据流,显示到PICTUREBOX时,只需将该数据流保存到临时图片文件,再LOADPICTURE 方法读入到PICTUREBOX
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
我QQ是416662482
我有些问题问你,可以吗?
运行出现这个错误,是为什么??
这个运行时出错了
为什么?
是我的数据库的问题吗?
简单的方法可以使用OLE控件,参考ACCESS NORTHWIND数据库的例子
一般使用备注字段存储图片文件的数据流,显示到PICTUREBOX时,只需将该数据流保存到临时图片文件,再LOADPICTURE 方法读入到PICTUREBOX
这个不明白