VB语言

本类阅读TOP10

·Visual Basic 安装程序的制作!!
·VB中使用EXCEL输出
·一个简单的MP3播放器
·VB程序实现WindowsXP效果的界面!!
·VB打造超酷个性化菜单(六)
·透明位图
·平铺与拉伸MDI窗口的背景图 ~!~
·对《VB程序实现WindowsXP效果的界面》一文的补遗
·从Windows资源管理器中拖动文件
·VB打造超酷个性化菜单(一)

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
建立一个连接数据库的VB组件

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

建立一个连接数据库的VB组件
http://www.tongyi.net  作者:slash  出处:www.51dotnet.com    点击:2082  

首先在你的config.web 文件中创建以下参数:
<appsettings>
<add key="gConn" value="server=local;uid=sa;pwd=secret;database=pubs" />
</appsettings>

接着建立dbConn.vb 文件。
Imports System
Imports System.Web
Imports System.Collections

Namespace WebDB
Public Class WebDBconn 
Shared m_ConnectionString As String
Shared ReadOnly Property ConnectionString As String 

Get 
If m_ConnectionString = "" Then

Dim appsetting As Hashtable = CType(HttpContext.Current.GetConfig("appsettings"), Hashtable)
'使用 config.web 中设立好的连接字符串
m_ConnectionString = CStr(appsetting("DBConnString"))

If m_ConnectionString = "" Then
throw new Exception("Dtabase Connection Value not set in Config.web")
End if

End If

' 返回连接字符串
return m_connectionString

End Get
End Property
End Class
End Namespace

'下面编译dll文件:创建一个批处理文件, 命名为 MakeDll.bat ,存放在dbConn.vb 相同的目录,其中的内容如下
set odir=dbConn.dll
set assemblies=System.Web.dll
vbc /t:library /out:%odir% /r:%assemblies% dbConn.vb
执行批处理文件, 将 dbconn.dll 拷贝到你的WEB 目录的 BIN 目录下并创建如下的.aspx 文件:

<%@ Page Description="ASP+ document" EnableSessionState="false" MaintainState="false" %>
<%@ Import Namespace="WebDB" %>
<script language="VB" runat="server">

Sub Page_Load(sender As Object, e As EventArgs)

response.write(WebDBconn.ConnectionString)

End Sub

</script>

<html>
<head>
<title></title>
</head>
<body>
</body>
</html>




相关文章

相关软件