1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<Script Languate="VB" Runat="Server">
  Sub Page_Load(sender As Object, e As Eventargs)
    '開啟 Access 資料庫
    Dim objConn As New OleDbConnection()
    objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                               "Data Source=" & Server.MapPath("Grades.mdb")
    objConn.Open()
 
    'SQL Insert 
    Dim objCmd As New OleDbCommand("Insert Into  (ID, StuName, Cpp, ComScience, Calcu) Values ('b09602321', 'Emily Ya', '88', '95', '92')", objConn)
    objCmd.ExecuteNonQuery()
    objConn.Close()
  End Sub
</Script>