我在添加记录时出现错误:“无法插入空行,行必须至少有一个列值集”。代码如下:
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
不知怎么改正?谢谢!
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
不知怎么改正?谢谢!
With rs.Fields("image") = Txt_File.Text
rs.Update
End With
改成
rs.AddNew
rs("image") = Txt_File.Text
rs.Update
rscourse!courseid=txtid.text
rscourse!coursetitle=txttitle.text
rscourse!hours=val(txthours.text)
rscourse.update
字段应该用什么数据格式,我设的是文本,不知对不对?谢谢!
你看一下 bbb表的所有字段
是不是这个是空的,
你先这样看行不行
With rs.Fields("image") = "dsfsdf"
With rs
.Fields("image") = Txt_File.Text
.Update
End With
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
.CursorType = adOpenDynamic
.LockType = adLockOptimistic