Question

我把图片路径存储到SQL中，怎样用VB6.0根据图片路径显示图片啊？

我数据库tupian(path(nvchar(30)),ziti(nvchar(10)),bihua(int)).path存储的是图片的路径，在代码中判断：假如我设定的一个字符串str=数据库中字段“ziti”&&设定的strokestep=字段“bihua”时，把path付给lujing，否则lujing为空。然后根据lujing加载图片。但是一直出错，大家看看下面代码哪里错了？
根据大家的回答，我把代码改了一下，可还是不对，我是想遍历数据库中的所有记录，直到有满足条件的为止，那位高手帮我写一下代码啊？急用啊。还有我想在连接数据库前，先判断一下，如果数据库已经打开，就不再执行连接字符串，应该怎样写啊

Answer 1

VB中用关键字AND进行逻辑运算，而不是&
if 语句如果是代码段，后面需要有End If
If (str = rs.Fields("ziti") And strokeStep = rs.Fields("bihua")) Then
lujing = rs.Fields("path")
Else: lujing = ""
End If
if len(lujing) > 0 then picBackgd.Picture = LoadPicture(lujing)

追问

还是不行啊

追答

增加中断，逐个检查各个变量（字段）的值，看问题在哪里？
最好是把代码完整的复制上来，截图更好，很多时候就是代码少那个一行两行的事情

追问

根据大家的回答给过之后还是 不对啊，完整代码如下，而且再问下，我应该怎么判断如果数据库已经打开，就不用执行连接数据库操作了，要不我没调用这个方法一次都要打开数据库。如果代码写的不对的话，你帮我写一个吧。我是想遍历表中的全部记录，直到有满足条件的为止

追答

因为你的查询串已经包含了两个条件，所以不再需要后面的 if 语句。
只要 rs 有返回值就说明是有符合条件的，另外你的 bihua 字段是数字型的，所以不用加单引号：
sSQL = "SELECT * FROM font where ziti='" & str & "' and bihua=" & strokeStep
rs.Open ...
lujing = rs("path") & ""
if not rs.EOF then picBackgd.Picture = LoadPicture(lujing)

追问

1、我的代码改为上面的代码后，没有后面的if语句
2.按你的代码还是不行啊
3.怎样判断数据库是否打开，如果已经打开就不用再重复执行连接数据库操作了

追答

还是不行？
那回到前面的步骤，中断，逐步运行，检查每个变量的值，看看是哪里的问题。
其实这个是最基本的查错方法，毕竟要别人根据一部分代码查错还是有点困难的。
另外，把 On Error Resume next 注释掉，方便调试，有错误也能及时发现。
你的 conn 就是用来连接数据库的，判断该对象的State属性就可以了。一般我们会将它定义为模块级变量，程序运行时连接数据库，程序结束时关闭，在运行过程中它一直是打开的。