Question

VB中向数据库中添加纪录问题

Dim shili(100)

Private Sub Command1_Click()
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 人物信息 where 人物名字 = '" & Trim(Text1.Text) & "'"
Adodc1.Refresh
If Text1.Text = "" Then
MsgBox "请输入武将姓名", , "添加武将"
Text1.SetFocus
Exit Sub
End If
If Adodc1.Recordset.EOF = False Then
MsgBox "武将已存在，无法输入", , "添加武将"
Else
Select Case Option1.Value
Case Is = 1
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("性别") = "男"
Adodc1.Recordset.Fields("人物名字") = Text1.Text
Adodc1.Recordset.Fields("籍贯") = Text2.Text
Adodc1.Recordset.Fields("势力") = Combo1.Text
Adodc1.Recordset.Fields("人物简介") = Text3.Text
Adodc1.Recordset.Update
Adodc1.Recordset.Close
MsgBox "添加成功", , "恭喜"
Unload Form4
Case Is = 0
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("性别") = "女"
Adodc1.Recordset.Fields("人物名字") = Text1.Text
Adodc1.Recordset.Fields("籍贯") = Text2.Text
Adodc1.Recordset.Fields("势力") = Combo1.Text
Adodc1.Recordset.Fields("人物简介") = Text3.Text
Adodc1.Recordset.Update
Adodc1.Recordset.Close
MsgBox "添加成功", , "恭喜"
Unload Form4
MDIForm1.Show
End Select
End If
End Sub

Private Sub Command2_Click()
Unload Form4
MDIForm1.Show
End Sub

Private Sub Form_Load()
shili(1) = "吴国"
shili(2) = "魏国"
shili(3) = "蜀国"
shili(4) = "群雄"
For i = 1 To 4
Combo1.AddItem shili(i)
Next i
End Sub

VB提示说在对应所需名称或序数的集合中，未找到项目。
Adodc1.Recordset.Fields("势力") = Combo1.Text
Adodc1.Recordset.Fields("人物简介") = Text3.Text
我所连接的表有 势力 和 人物简介

求高手解答

Answer 1

如果“ 人物信息 ”表有 “势力” 和 “人物简介”字段，那么是不是 Combo1 和 Text3 控件是否存在，或名称有错误。
否则可能是“势力” 和 “人物简介”字段的名称拼写有问题，看是否有空格等等。