建立一个连接数据库的VB组件

原创 2001年05月26日 10:58:00
建立一个连接数据库的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>

vb6.0 连接数据库,查询,插入和修改

一:   创建连接 Public Function CreateSQLConn() As Boolean Const ProcName = "CreateSQLConn" Dim strConnect...
  • czf2505
  • czf2505
  • 2013年11月04日 11:31
  • 1413

VB用ADO访问数据库

Public Function test() As IntegerDim cnn As ADODB.ConnectionDim rstC As ADODB.RecordsetSet cnn = New...
  • brave1
  • brave1
  • 2005年06月16日 01:21
  • 1448

总结 vb与数据库的连接方法

总结:vb与数据库连接方式,两种分法。根据是否使用ODBC(驱动程序)来分: 1.有源连接   2.无源连接。 其中有源连接指的是:通过设置数据源(ODBC)来连接 据我的观察无源连接选...
  • wangyongxia921
  • wangyongxia921
  • 2012年06月01日 10:18
  • 10748

在asp.net中怎么用VB连接SQL SERVER2005数据库

第一步: Private Function ExecuteSQL(ByVal strSQL As String, ByRef errMsg As String) As DataSet ...
  • ARCEE
  • ARCEE
  • 2016年11月29日 21:57
  • 289

如何使用VB创建一个COM组件????

转载:     看看这对你有没有帮助。         终于试验成功了!     我在原本只有win2000   professional   的机器上又安装了一个win2000   server,并...
  • annywudy_tt
  • annywudy_tt
  • 2010年05月24日 17:22
  • 825

VB与数据库连接方式

VB与数据库的连接方式总的来说分为2种:有源连接、无源连接。其中的源指的是ODBC数据源。数据源类型可分为文件DSN、用户DSN\系统DSN三类。(OLE DB作为数据的提供者。)        有源...
  • qq_26545305
  • qq_26545305
  • 2015年08月13日 20:04
  • 1213

VB 数据库关联下拉表

1、access数据库关联下拉表
  • lvniu321
  • lvniu321
  • 2014年04月25日 15:13
  • 836

VB6.0基础 在指定位置创建文件夹

镇场诗:慈心积善融学习,技术誓为大家学。善心速造多好事,前人栽树后乘凉。我今于此写经验,愿见文者得启发。 //////////////////////////////////////////////...
  • yushaopu
  • yushaopu
  • 2016年06月30日 10:27
  • 2095

VB与各数据库的几种连接方式

...
  • gxiyv
  • gxiyv
  • 2007年04月24日 01:33
  • 5474

用VB编写的一个可在屏幕上移动的十字架

前几天一位朋友问如何绘制一个可在屏幕上移动的十字架,俺编写了一个,后来又有朋友问到这个问题,故把代码贴了出来,供大家指正:* *************************************...
  • lyserver
  • lyserver
  • 2009年04月22日 17:10
  • 2174
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:建立一个连接数据库的VB组件
举报原因:
原因补充:

(最多只允许输入30个字)