📄 ch15-01-01.aspx
字号:
<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
<% Response.Expires = 0 %>
<Html>
<Head>
<Script Language="VB" Runat="Server">
Sub Page_Load(Obj As Object, e As EventArgs)
Dim DSN As String, tSQL As String
Dim Counts As Integer
' 设置使用联机字符串
DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("/ASP/Chap14/ASP.NET网页数据库.mdb") & ";"
tSQL = "INSERT INTO UserDatas(UserAccount, UserPWD, UserName, EMail)"
tSQL = tSQL & " VALUES('Dannis','11223', '王正伟', 'Dannis@mail.text.net')"
' 使用联机字符串创建连接
Dim OBJConn As OleDBConnection = New OleDbConnection(DSN)
OBJConn.Open() ' 创建数据库连接
Dim OBJCmd As OleDBCommand = New OleDbCommand(tSQL, OBJConn)
' 执行SQL语句
Counts = OBJCmd.ExecuteNonQuery()
If Counts >= 1 Then
Show1.InnerHtml = "添加记录成功!"
Else
Show1.InnerHtml = "添加记录失败!"
End If
OBJConn.Close()
End Sub
</Script>
</Head>
<Body>
<Span ID="Show1" Runat="Server" />
</Body>
</Html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -