Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
<%@ Page Language="vb"
enableViewState="False"
AutoEventWireup="false"
Codebehind="Chapter02Example01.aspx.vb"
Inherits="codebook.aspnet.vb.Chapter02Example01" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 TRANSITIONAL//EN">
<html>
<head>
<title>Chapter 02 Example 01</title>
<link rel="stylesheet"
href="styles/codebook.css"
type="text/css">
</head>
<body>
<asp:label id="lblMain" runat="server">
Label
</asp:label>
</body>
</html>
Imports
System.Data.OleDb
Imports System.Data.OleDb
Namespace codebook.aspnet.vb
Public Class Chapter02Example01
Inherits System.Web.UI.Page
Protected WithEvents lblMain As Label
Private Sub Page_Load( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs _
) Handles MyBase.Load
Dim strProvider As String
strProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
Dim strDatabase As String
strDatabase = "DATA SOURCE=H:codebook.NETdatabase" & _
"databasecodebook.mdb;"
Dim strComplete As String
strComplete = strProvider & strDatabase
Dim objConn As New OleDbConnection
objConn.ConnectionString = strComplete
Try
objConn.Open()
lblMain.Text = "Datenbankverbindung zur Access-" & _
"Datenbank erfolgreich hergestellt"
' --- Abfangen eines evtl. aufgetretenen Fehler
Catch ex As OleDbException
lblMain.Text = "<b>Fehler</b><br>" & ex.Message & "<br>"
lblMain.Text &= "<b>Quelle</b><br>" & ex.Source & "<br>"
Finally
' --- Do nothing
End Try
objConn.Close()
End Sub
End Class
End Namespace