vb mysql添加字段_VB中向数据库添加字段问题

Dimshili(100)PrivateSubCommand1_Click()Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from人物信息where人物名字='"&Trim(Text1.Text)&"'"Adodc1.RefreshIfText1.Text...

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

我所连接的表有 势力 和 人物简介

展开