采纳哦
Dim i As IntegerDim str As String
Dim conn As ADODB.Connection
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
Dim n As Integer
Private Sub Form_Load()
'‘----------------------------
Picture1.Picture = LoadPicture(App.Path + "\界面素材\加载图片.jpg")
str = "Provider=SQLOLEDBdata Source= 192.168.12.67 Initial Catalog=服装销售系统User Id= sa Password= 5332852 "
Set conn = New ADODB.Connection
conn.Open str
n = Val(Trim(Text1.Text))
End Sub
Sub SaveFile() '定义读入图片程序
On Error Resume Next '重复保存同一幅图片会出错提示，忽略，保持程序运行的流畅性。
Set iStm = New ADODB.Stream'读取文件到内容
Dim sFile As String
'数据库支持PNG图片，但VB的image、picture控件不支持PNG格式的图片。
CommonDialog1.Filter = "JPG|*.jpg|位图|*.bmp|GIF|*.gif"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then
Exit Sub
End If
sFile = CommonDialog1.FileName
Picture1.Picture = LoadPicture(sFile) '把图片显示到图片框（Pictrure1）
With iStm
.Type = adTypeBinary '数据类型为二进制数
.Open
.LoadFromFile "" &sFile &"" '保存图片
End With
End Sub
Sub ReadFile() '定义读出图片程序
If Trim(Text1.Text) = "" Then
MsgBox "图片编号为空", vbInformation, "提示"
Exit Sub
End If
Set iRe = New ADODB.Recordset
iRe.Open "select * from img where 编号=" &n, conn, adOpenKeyset, adLockReadOnly '注意此处数值型参数n的语法形式
On Error GoTo Err
Set iStm = New ADODB.Stream
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write iRe("photo") '读取图片字段数据
.SaveToFile App.Path &"\temp1.jpg" '保存图片。注意,图片也可以保存为其他格式。
End With
Picture1.Picture = LoadPicture(App.Path &"\temp1.jpg") '读取图片到图片框（Pictrure1）
iRe.Close'关闭对象
iStm.Close
Kill App.Path &"\temp1.jpg" '删除临时文件
Exit Sub
Err:
MsgBox "此图片编号不存在", vbInformation, "提示"
End Sub
Private Sub Command1_Click() '读入图片
Call ReadFile
End Sub
Private Sub Command2_Click() '读出图片
Call SaveFile
End Sub
Private Sub Command3_Click() '图片另存
If Trim(Text1.Text) = "" Then
MsgBox "图片编号为空", vbInformation, "提示"
Exit Sub
End If
If Picture1.Picture = 0 Then
MsgBox "图片为空,请读出图片", vbInformation, "提示"
Exit Sub
End If
Set iRe = New ADODB.Recordset
iRe.Open "select * from img where 编号=" &n, conn, adOpenKeyset, adLockReadOnly
Set iStm = New ADODB.Stream
If iRe("photo").ActualSize = 0 Then '注意判断语句
MsgBox "相片为空，请重新选择！", vbInformation, "提示"
Exit Sub '退出
End If
CommonDialog1.Filter = "JPG|*.jpg|GIF|*.gif|位图|*.bmp"
CommonDialog1.ShowSave
If CommonDialog1.FileName = "" Then
Exit Sub
End If
sFile = CommonDialog1.FileName
On Error GoTo Err '利用出错提示进行删除保存 *** 作（类似于覆盖）
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write iRe("photo")'读取图片字段数据
.SaveToFile sFile '保存到路径
Exit Sub
End With
Err:
Dim Result As Integer
Result = MsgBox("文件名重复，请重新输入新的文件名。否则，将覆盖源文件！", vbYesNo + vbInformation, "提示")
If Result = vbYes Then
Kill sFile '先删除，后保存。
iStm.Write iRe("photo")
iStm.SaveToFile sFile
End If
End Sub
Private Sub Command5_Click()
Set iRe = New ADODB.Recordset '打开保存文件的表
Dim P As String
P = MsgBox("添加成功!是否保存?", vbQuestion + vbOKCancel, "系统消息")
If P = vbOK Then
With iRe
.Open "Select * from A人员信息 WHERE 工号='" + Text2 + "'", conn, adOpenKeyset, adLockOptimistic
.Fields("图片") = iStm.Read 'iStm把载入的图片传递给iRe.Fields("photo")：img表的photo字段
.Update
End With
Else
Picture1.Picture = LoadPicture(App.Path + "\界面素材\加载图片.jpg")
End If
End Sub
Private Sub Form_Unload(Cancel As Integer) '退出
conn.Close
Set conn = Nothing
End Sub
你的sql不对，而且判断也有问题（表示条件应该是and而不是连接符&)，按条件查询就要写成sSQL = "SELECT * FROM font where ziti=""" &str &""" and bihua=""" &strokeStep &""""
后面那个If (str = rs.Fields("ziti") &strokeStep = rs.Fields("bihua")) Then可以去掉了，改成
if not rs.eof then
大概就是这样，没怎么用过VB ,实际上select *也是没必要的，应该是select top 1 *，或者如果你仅仅只是需要path，也可以写成select top 1 path from ...
至于根本的错误原因是你之前的sql返回的一个多项的记录集rs（比如数据库中一共10条记录），而你直接判断If (str = rs.Fields("ziti")，相当于只是把str跟这个记录集的第一条判断（大概是的，记不太清），也就是说，除非你那个sql找出的结果中刚好第一条满足这两个条件，那样才能显示，否则就算这十条中有一条满足，你的if结果也是假的。至于怎么改动上面已经说过了。
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）