我在添加记录时出现错误:“无法插入空行,行必须至少有一个列值集”。代码如下:
Public Sub savetodb()Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
rs.Open "SELECT image FROM bbb表", Con, adOpenDynamic
rs.AddNew
With rs.Fields("image") = Txt_File.Text
rs.Update
End With
End Sub
不知怎么改正?谢谢!

解决方案 »

  1.   

    rs.AddNew
    With rs.Fields("image") = Txt_File.Text
    rs.Update
    End With
    改成
    rs.AddNew
    rs("image") = Txt_File.Text
    rs.Update
      

  2.   

    rs.addnew
      rscourse!courseid=txtid.text
      rscourse!coursetitle=txttitle.text
      rscourse!hours=val(txthours.text)
      rscourse.update
      

  3.   

    那看看你的FROM bbb表有问题么?
      

  4.   

    我要把路径存入,如C:\aaa.jpg
    字段应该用什么数据格式,我设的是文本,不知对不对?谢谢!
      

  5.   

    好象有Image类型哦,不好意思我也是刚刚用VB,我看SQL的数据类型里面有Image。
      

  6.   

    我要把路径存入,如C:\aaa.jpg,只存字符串。我的是ACCESS数据库,而且也没有image类型
      

  7.   

    我也出现过这样的问题:你的表里肯定不只这一个image类型的字段吧? 你需要把其他的字段也写入值才行!
      

  8.   

    添加记录 关键子不能为空 非主键可以为空的
    你看一下 bbb表的所有字段
      

  9.   

    Txt_File.Text
    是不是这个是空的,
    你先这样看行不行
    With rs.Fields("image") = "dsfsdf"
      

  10.   

    改如下:
    With rs
        .Fields("image") = Txt_File.Text
        .Update
    End With
      

  11.   

    全改:
    with rs
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open "SELECT image FROM bbb表", Con, adOpenDynamic,adlockoptimistic
        .AddNew
        .Fields("image") = Txt_File.Text
        .Update
    End With
      

  12.   

    上面应删去下面两行(open语句后面已经写得有)
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic