有关数据库跟vb的
当信息移到最后一条或第一条的时候，弹出提示信息“已是第一条”或“已到最后一条”
还有我弄的图片插入文件提示框，当我按取消的时候出现错误，代码如下
Private Sub Command12_Click()
Dim strb() As Byte
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Binary As #1
f1 = LOF(1)
ReDim strb(f1)
Get #1, , strb
Adodc1.Recordset.Fields("相片").AppendChunk strb
Close #1
Image1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub
还有的问题是，当我按搜索后，比方按性别男搜索，搜索出来的结果还是原本的那个数据库里的顺序，并不是全是男的信息
急急急！！！！！！！在线等信息~~~~~~~
[解决办法]
2分，
[解决办法]
