请问为什么用一下方式保存到数据库中的数据只有从新运行时才可以看到?
Private gCon As ADODB.Connection 'ACCESS数据库文件的名称
Private gRst As ADODB.Recordset '数据库连接对象
Private gFile As String '数据库集合对象
Private Sub cmdAdd_Click() '添加姓名和手机号
gRst.AddNew
End Sub
Private Sub cmdConfirm_Click()
gRst.Fields!姓名 = txtName
gRst.Fields!手机 = txtMobile
gRst.Update
Adodc1.Refresh
DataGrid1.Refresh
MsgBox "保存成功", vbOKOnly, "提示"
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &\WorkTask.mdb;Persist Security Info=False"
Adodc1.CursorLocation = adUseClient
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from Linkman"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
If Adodc1.Recordset.RecordCount = 0 Then
txtName.Text = ""
txtMobile.Text = ""
Else
txtName.Text = nz(Adodc1.Recordset.Fields(0).Value, "")
txtMobile.Text = nz(Adodc1.Recordset.Fields(1).Value, "")
End If
End Sub
由于不想在修改和添加的时候影响到datagrid中的数据,所以没有将txtName、txtMobile和adodc1绑定。
为什么在保存的时候无法看到保存后的结果呢,只有重新运行时才可以看到保存后的结果?谢谢