谁能帮我解释一下这段VB 代码:
Private Sub Command1_Click()
Dim byteData() As Byte
On Error GoTo suspect
Open CommonDialog1.FileName For Binary As #1
ReDim byteData(FileLen(CommonDialog1.FileName))
Get #1, , byteData
Close #1
Set rs = New ADODB.Recordset
rs.Open "Select * from tbl_Info", cn, 1, 2
With rs
.AddNew
!Idno = txtIdNo.Text
!Name = txtName.Text
!Course = txtCourse.Text
!Section = txtSection.Text
!Picture.AppendChunk byteData
.Update
End With
MsgBox "图片" & (txtIdNo.Text) & "添加成功!"
clear
Exit Sub
suspect:
MsgBox Err.Description & " 请添加一个图片"
End Sub
这是一段保存信息到数据库的代码,如果能改成修改数据就好,谢谢。
我试过了,提示:
由于将在索引、主关键字、或关系中创建重复的值,请求对表的改变没有成功,改变该字段中的或包含重复数据的字段中的数据,删除索引或重新定义索引以允许重复的值并再试一次。