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

1. ImportsSystem.Data
2. '引入数据库操作类命名空间
3. ImportsSystem.Data.OleDb
4. '引入ADO.NET操作命名空间
6. DimMyConnectionAsNewOleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Application.StartupPath&"/Book.mdb")'连接数据库
7. DimMyCommandAsOleDbCommand'执行命令
8. DimMyReaderAsOleDbDataReader'读取数据
10. DimsqlAsString="SELECT略……"
11. Try'错误时处理
12. MyConnection.open()'连接数据库
13. MyCommand=NewOleDbCommand(sql,MyConnection)
14. MyCommand.ExecuteNonQuery()'执行sql代码
16. CatchcAsException
17. MsgBox(c.ToString,MsgBoxStyle.OkOnly,"错误")
18. EndTry
19. MyConnection.Close()'关闭
20. MyCommand.dispose()'删除