换个名字来问:关于vb中编辑数据库出错问题

Question

那个号没用了，实在不好意思麻烦大家..所以换个名字来问..
1.
增加数据没有问题:
但是对原来数据编辑的时候出现问题:
[microsoft][ODBC microsoft access driver] 找不到文件 "未知的"
run-time error "91"
object variable or with block variable not set 
调试的代码停留在如下行:
    Set Picture2.DataSource = Adodc1
    mypath1 = Adodc1.Recordset("tupian").Value
    Picture2.Picture = LoadPicture(mypath1)
图片存的是,相对路径,picture\123.jpg类似的2.
有时候,点第一次编辑的时候,编辑信息能出来。.
但是编辑完点提交的时候,提示提示成功..
提示成功后同时提示出错,出错提示是,
[microsoft][ODBC microsoft access driver] 找不到文件 "未知的"
run-time error (80004005)
method "refresh" of object "IAdodc" failed
然后再点编辑,就出现上面的[1]提示信息了，编辑不了。.
代码调试停留在,
Adodc1.Refresh这一行。.当然出错的信息是肯定的，代码停留在这一行，未必这行错。.
请问,可能是哪些方面的原因,谢谢了

Answer 1

Picture2.Picture = LoadPicture(mypath1)路径不完全啊．是不是要加上App.Path或其他路径？

Answer 2

会不会是adodc这个控件有问题? 试试重新注册这个控件,或者,到别的机器上找个文件过来注册一下

Answer 3

我觉得是你的ODBC连接有问题，你有没有在控制面板中创建ODBC的连接，或者是建立的连接不对啊

Answer 4

因为你每次都是报ODBC连接没找到

Answer 5

果然是ODBC连接有问题,图片地址在编辑后,数据库连接不到了。.
数据库修改之后..不过图片又不能正常显示了。.
我是这样下的
       dim sss as string 
       sss = "app.path" & "\"
        mypath1 = Adodc1.Recordset("tupian").Value
        mypath1 = "sss" & "mypath1"
        Picture2.Picture = LoadPicture(mypath1)提示是:not found app.path\picture\123.jpg
怎么把这个app.path转为当前数据库的路径呢。.

Answer 6

       mypath1 = App.Path & "\" & Adodc1.Recordset("tupian").Value
       Picture2.Picture = LoadPicture(mypath1)

Answer 7

mypath1 = App.Path & "\" & Adodc1.Recordset("tupian").Value
       mypath1 = Replace(mypath1, "\\", "\")
       mypath1 = Replace(mypath1, "..", "")
       Picture2.Picture = LoadPicture(mypath1)