connect-strings.ascx

来自「Code for VB.NET教程源码 很好的源码」· ASCX 代码 · 共 32 行

<%@Control Language="VB"%>

<script language="VB" runat="server">

	'*****************************************************
	'  Edit the connection strings to suit your database
	'*****************************************************

	Public ReadOnly Property OLEDBConnectionString() As String
	  Get
		Return ConfigurationSettings.AppSettings("DsnWroxBooksOleDb")
	  End Get
	End Property

	Public ReadOnly Property SQLConnectionString() As String
	  Get
		Return ConfigurationSettings.AppSettings("DsnWroxBooksSql")
	  End Get
	End Property

	Public ReadOnly Property JetConnectionString() As String
	  Get
		Return ConfigurationSettings.AppSettings("DsnWroxBooksJet") _
			   & Request.PhysicalApplicationPath _
			   & "databases\WroxBooks.mdb"
	  End Get
	End Property

</script>