Public Class _2
Inherits System.Web.UI.Page
Protected WithEvents Insert As System.Web.UI.WebControls.Button
Protected WithEvents Update As System.Web.UI.WebControls.Button
#Region " Web 窗体设计器生成的代码 "
'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
End Sub
Private Sub Insert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Insert.Click
Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\Program Files\Microsoft Office\Office10\Samples\northwind.mdb"
Dim cnNorthwind As New OleDb.OleDbConnection(sConnectionString)
cnNorthwind.Open()
Dim sInsertSQL As String = "insert into 运货商 (公司名称,电话) values ('MSOffice','6108')"
Dim cbInsert As New OleDb.OleDbCommand()
Private Sub Update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Update.Click
Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\Program Files\Microsoft Office\Office10\Samples\northwind.mdb"
Dim cnNorthwind As New OleDb.OleDbConnection(sConnectionString)
cnNorthwind.Open()
Dim sUpdateSQL As String = "update 运货商 set 公司名称='RuiDTAMS',电话='61086108' where 运货商ID=4"
Dim cbUpdate As New OleDb.OleDbCommand()
Private Sub Insert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Insert.Click
Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=I:\Program Files\Microsoft Office\Office10\Samples\northwind.mdb"
Dim cnNorthwind As New OleDbConnection(sConnectionString)
cnNorthwind.Open()
Dim sInsertSQL As String = "insert into 运货商 (公司名称,电话) values ('MSOffice','6108')"
Dim cbInsert As New OleDbCommand()
Private Sub Update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Update.Click
Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=I:\Program Files\Microsoft Office\Office10\Samples\northwind.mdb"
Dim cnNorthwind As New OleDbConnection(sConnectionString)
cnNorthwind.Open()
Dim sUpdateSQL As String = "update 运货商 set 公司名称='RuiDTAMS',电话='61086108' where 运货商ID=4"
Dim cbUpdate As New OleDbCommand()