datagrid的即时刷新

最新推荐文章于 2023-12-20 11:14:27 发布

googlegis

最新推荐文章于 2023-12-20 11:14:27 发布

阅读量771

点赞数

分类专栏： Microsoft 文章标签： datagrid string insert delete

Microsoft 专栏收录该内容

278 篇文章 1 订阅

订阅专栏

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