datagrid的即时刷新

Dim temprs As New ADODB.Recordset
  
   Dim tempsql As String
   On Error Resume Next
    tempsql = "Insert into Users(Name,Psw,pow) Values('" & txtName.Text & "','" & txtPsw.Text & "','" & cmbPow.Text & "')"
    temprs.Open tempsql, conn1, adOpenStatic, adLockOptimistic
    
    Adodc1.Recordset.AddNew
    Adodc1.Refresh
    DataGrid1.Refresh



   Dim temprs As New ADODB.Recordset
  
   Dim tempsql As String
   On Error Resume Next
    tempsql = "Delete from Users where ID = " & Text1.Text
  
    temprs.Open tempsql, conn1, adOpenStatic, adLockOptimistic
    
    With Adodc1
         .Recordset.Delete
         .Recordset.Update
         .Recordset.MovePrevious
    End With
    
    Adodc1.Refresh
    DataGrid1.Refresh
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值