一个简单的数据库问题，在线等，急！！！

Question

Dim sql, a As String
  Dim conn As ADODB.Connection
  Dim rs As ADODB.Recordset
  Set conn = New ADODB.Connection
  Set rs = New ADODB.Recordset
  conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\bxd\data.mdb;Persist Security Info=False"
  sql = "select TxtPicPath from picture where id='1' "
  rs.Open sql, conn
  a = rs.Fields(0)
提示说标准表达试中数据类型不匹配，取不出TxtPicPath字段的值，请问什么原因啊？是不是a的类型不对啊？该怎么改呢？谢谢

Answer 1

rs.Open sql, conn,3,3 后面加3，3a = rs.Fields(0) 改成a=Trim(rs(0) &"")

Answer 2

还是老问题啊，这是我的全部过程，请看看，谢谢帮助
Private Sub Form_Load()
  Dim sql, a As String
  Dim conn As ADODB.Connection
  Dim rs As ADODB.Recordset
  Set conn = New ADODB.Connection
  Set rs = New ADODB.Recordset
  conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data  Source=e:\bxd\data.mdb;Persist Security Info=False"
  sql = "select TxtPicPath from picture where id='1' "
  rs.Open sql, conn, 3, 3
  a = Trim(rs(0) & "")
  ImgPicture.Picture = LoadPicture(a)
End Sub
我想使图片框显示a路径对应的照片

Answer 3

还是老问题啊，这是我的全部过程，请看看，谢谢帮助
Private Sub Form_Load()
  Dim sql, a As String
  Dim conn As ADODB.Connection
  Dim rs As ADODB.Recordset
  Set conn = New ADODB.Connection
  Set rs = New ADODB.Recordset
  conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data  Source=e:\bxd\data.mdb;Persist Security Info=False"
  sql = "select TxtPicPath from picture where id='1' "   '这里id='1' 改变为id =1 试试
  rs.Open sql, conn, 3, 3
  a = Trim(rs(0) & "")
  ImgPicture.Picture = LoadPicture(a)
End Sub
我想使图片框显示a路径对应的照片

Answer 4

where id='1' 你的id字段是字符串格式还是数字格式？？
如果是数字格式，不用加单引号的！！

Answer 5

1、你的id字段是字符型的吗？如是数字，就不要加单引号
2、你的TxtPicPath字段是能够转换为字符型的数据类型吗？如不是就要修改