VB adodc的一个问题

来源：百度知道 编辑：UC知道 时间：2024/07/02 20:18:24
想要的效果： 当我点击确定后 form1的datagird的记录自动刷新

下面是确定按钮现在的代码

If Text1 = "" Then
MsgBox "请输入姓名"
ElseIf Text2 = "" Then
MsgBox "请输入年龄"
ElseIf Combo1.Text = "请选择性别" Then
MsgBox "请选择性别"
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("姓名") = Text1.Text
Adodc1.Recordset.Fields("性别") = Combo1.Text
Adodc1.Recordset.Fields("年龄") = Text2.Text
Adodc1.Recordset.Update
Unload Me
End If
希望各位大虾帮忙修改下

添加一个按钮command
Private Sub Command1_Click()
If Text1 = "" Then
MsgBox "请输入姓名"
ElseIf Text2 = "" Then
MsgBox "请输入年龄"
ElseIf Combo1.Text = "请选择性别" Then
MsgBox "请选择性别"
else
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("姓名") = Text1.Text
Adodc1.Recordset.Fields("性别") = Combo1.Text
Adodc1.Recordset.Fields("年龄") = Text2.Text
Adodc1.Recordset.Update
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End If
End sub

...
Adodc1.Recordset.Update
'加一句试试
Adodc1.Recordset.Refrash
Unload Me
...