[VB.NET]ADO数据库处理-执行SQL代码

<script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

1. Imports System.Data
2. '引入数据库操作类命名空间
3. Imports System.Data.OleDb
4. '引入ADO.NET操作命名空间
6. Dim MyConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "/Book.mdb") '连接数据库
7.     Dim MyCommand As OleDbCommand '执行命令
8.     Dim MyReader As OleDbDataReader '读取数据
10. Dim SQL As String ="SELECT略……" 
11.         Try '错误时处理
12. MyConnection.Open() '连接数据库        
13.             MyCommand = New OleDbCommand(SQL, MyConnection)
14.             MyCommand.ExecuteNonQuery() '执行SQL代码               
16.         Catch c As Exception
17.             MsgBox(c.ToString, MsgBoxStyle.OkOnly, "错误")
18.         End Try
19.         MyConnection.Close() '关闭
20.         MyCommand.Dispose() '删除