VB中用DBGrid如删除增加数据

wuya8115

于 2006-07-31 16:33:00 发布

阅读量806

点赞数

CC 4.0 BY-SA版权

分类专栏： SQL技术类文章　文章标签： vb datagrid integer security command jobs

本文链接：https://blog.youkuaiyun.com/wuya8115/article/details/1004583

SQL技术类文章　专栏收录该内容

21 篇文章

订阅专栏

本文提供了一个使用VBA进行数据库操作的例子，包括连接、读取、增加、更新和删除记录等基本功能。通过一个静态打开的方式展示了如何在VBA中实现对数据库的批量操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Option Explicit
Public Rs As New ADODB.Recordset
Public Conn As New ADODB.Connection
'删除
Private Sub cmdDel_Click()
On Error Resume Next
Rs.Delete

End Sub
'确定更新数据
Private Sub cmdUpdate_Click()
On Error Resume Next
Rs.UpdateBatch
End Sub
'增加
Private Sub Command1_Click()
On Error Resume Next
Rs.AddNew
End Sub
'连接datagrid
Private Sub Form_Load()
   Dim strConn As String
   strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs;Data Source=LocalHost"
   Conn.CursorLocation = adUseClient
   Conn.Open strConn

   If Rs.State <> adStateClosed Then Rs.Close
   Rs.Open "Select * from jobs", Conn, adOpenStatic, adLockBatchOptimistic '用批次打开
   Set Me.DataGrid1.DataSource = Rs
End Sub
'关闭
Private Sub Form_Unload(Cancel As Integer)
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
End Sub