首页上一页 1 下一页尾页 2 条记录 1/1页
再向各位大师请教一个问题
发表在VB答疑区
2009-12-09
是否精华
是
否
版块置顶:
是
否
最近我学着用了一个向数据库存储照片的工程。已经作好了,但总觉得有点问题:
添加或修改后的“照片”列中,有的出现了一个犹如汉字“口”一样的东西,有的也出现了一个“口”,但在“口”的右边却同时出现了一个像朝鲜文一样的乱码,并且,只要在这一行多次修改,这个乱码会更乱。请问为什么?毛病出在什么地方?怎么纠正?(从修改窗体中可以看出是刚才添加或修改过的那张照片。倒也没看出来有什么问题,还能用。不过呢,因为是添加或修改的结果不一样,所以才觉得有点不对劲)
下面是装入事件中的有关代码:
Set Image1.DataSource = Form1.Adodc1
Image1.DataField = "照片"
If .Fields("照片") Is Nothing Then
'Picture1.Picture = LoadPicture("照片")
Image1.Picture = LoadPicture(".BMP")
rs1.Update
rs1.Close
cnn.Close
mst.Close
Set cnn = Nothing
Form1.Adodc1.Refresh
下面是“保存”照片有关代码:
mst.Open
mst.Type = adTypeBinary
If photoFilename <> "照片" Then mst.LoadFromFile photoFilename
rs1.Fields("照片") = mst.Read
rs1.Update
请各位大师给看一下,是代码的问题吗?
谢谢!!!!
添加或修改后的“照片”列中,有的出现了一个犹如汉字“口”一样的东西,有的也出现了一个“口”,但在“口”的右边却同时出现了一个像朝鲜文一样的乱码,并且,只要在这一行多次修改,这个乱码会更乱。请问为什么?毛病出在什么地方?怎么纠正?(从修改窗体中可以看出是刚才添加或修改过的那张照片。倒也没看出来有什么问题,还能用。不过呢,因为是添加或修改的结果不一样,所以才觉得有点不对劲)
下面是装入事件中的有关代码:
Set Image1.DataSource = Form1.Adodc1
Image1.DataField = "照片"
If .Fields("照片") Is Nothing Then
'Picture1.Picture = LoadPicture("照片")
Image1.Picture = LoadPicture(".BMP")
rs1.Update
rs1.Close
cnn.Close
mst.Close
Set cnn = Nothing
Form1.Adodc1.Refresh
下面是“保存”照片有关代码:
mst.Open
mst.Type = adTypeBinary
If photoFilename <> "照片" Then mst.LoadFromFile photoFilename
rs1.Fields("照片") = mst.Read
rs1.Update
请各位大师给看一下,是代码的问题吗?
谢谢!!!!