数据库连接封装到DLL

最新推荐文章于 2021-10-23 10:34:17 发布
最新推荐文章于 2021-10-23 10:34:17 发布
阅读量3k 收藏 3
点赞数
分类专栏： asp 文章标签： 数据库 function microsoft sql server server dll
CSDN - 专家门诊 -
主　　题：
如何将数据库连接封装到DLL？并且调用？急等
作　　者：bignobig ()
信 誉 值：100
所属论坛：Web 开发 ASP
问题点数：100
回复次数：24
发表时间：2005-1-11 13:36:26
如何将数据库连接封装到DLL？并且调用？急等
回复人： bignobig() ( ) 信誉：100 2005-1-11 13:49:17 得分:0
 
顶上去！
Top
回复人： tatty_bad(我总是出现在该出现的地方) ( ) 信誉：100 2005-1-11 13:51:14 得分:2
 
封装进去之后，还修改不？呵呵。
所以我建议用缓存来做。。。这样比较好实现修改用户名密码。
Top
回复人： laihongbo524(风铃夜思雨) ( ) 信誉：96 2005-1-11 13:57:41 得分:60
 
Option Explicit
'VB ActiveX DLL 类模块代码
'
'-----引用ASP中的一些设置------
Private ScriptingContext As ASPTypeLibrary.ScriptingContext
Private Server As ASPTypeLibrary.Server

'以下两个子程序是必须的
Public Sub OnStartPage(PassedScriptingcontext As ScriptingContext)
    Set ScriptingContext = PassedScriptingcontext
    Set Server = ScriptingContext.Server
End Sub
Public Sub OnEndPage()
    '取消所有的引用
    Set ScriptingContext = Nothing
    Set Server = Nothing
End Sub

'如使用SQL的数据库，上面这些可以不要，否则要引用asp.dll  Microsoft Active Server Pages Object Library

'要引用 Microsoft ActiveX Data Objects 2.8 Library
Public Function ConnS() As ADODB.Connection
Dim Con As ADODB.Connection
Set Con = New ADODB.Connection
'ACCESS
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("#webdb.mdb")
'SQL
'Con.Open "Provider = SQLoledb; User ID = sa; Password = 123456; Initial Catalog = bbs; Data Source = 192.168.0.100;"
Set ConnS = Con
Set Con = Nothing
End Function



'ASP的CONN.ASP中的写方法
Dim Conn, Con
Set Conn = Server.CreateObject("ADODB.Connection")
Set Con = Server.CreateObject("工程名称.类模块名称")
Set Conn = Con.ConnS

'ASP中就可以使用如rs.open "Select * FROM [Table]",conn,1,1、Conn.Excute("Select * FROM [Table]") 这些一样操作了
Top
回复人： laihongbo524(风铃夜思雨) ( ) 信誉：96 2005-1-11 14:00:55 得分:0
 
如果要求可修改的
VB中的代码如下
Public Function ConnS(ByVal DbFile As String) As ADODB.Connection
Dim Con As ADODB.Connection
Set Con = New ADODB.Connection
'ACCESS
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbFile
Set ConnS = Con
Set Con = Nothing
End Function

'ASP的CONN.ASP中的写方法
Dim Conn, Con
Set Conn = Server.CreateObject("ADODB.Connection")
Set Con = Server.CreateObject("工程名称.类模块名称")
Set Conn = Con.ConnS(server.mappath("dbname.mdb"))
Top
回复人： mackyliu(NB联盟--风流才子) ( ) 信誉：100 2005-1-11 14:09:14 得分:2
 
没意义的事少做点吧，兄弟。怕人家下载数据库有办法解决的，完全没必要用到组件
Top
回复人： qizu(沁竹) ( ) 信誉：100 2005-1-11 14:11:42 得分:10
 
组件工程

1.建立组件

工程名:ConDBDLL
类模块:cs

Dim rp As Response
Dim rq As Request
Dim ap As Application
Dim sr As Server
Dim sn As Session

Public Sub OnStartPage(MyScriptingContext As ScriptingContext)
Set rp = MyScriptingContext.Response
Set rq = MyScriptingContext.Request
Set sr = MyScriptingContext.Server
Set ap = MyScriptingContext.Application
Set sn = MyScriptingContext.Session
End Sub

Public Sub OnEndPage()
Set rp = Nothing
Set rq = Nothing
Set sr = Nothing
Set ap = Nothing
Set sn = Nothing
End Sub
'以上语句是必须的，将原本的对象作了简化处理，并在两个基本函数中作了处理

Public Function ConnectDB() As Variant

ConnectDB = "driver={SQL Server};server=(local);database=数据库名;uid=用户名;pwd=密码"

End Function


2.连接信息

dim Conn
Dim Condl
Dim ConnStr
set Condl=Server.CreateObject("ConDBDLL.cs")
'ConDB就是创建的DLL对象
ConnStr = Condl.ConnectDB()
'连接两部分内容组成字符串      
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接失败!"'注释，需要把这几个字翻译成英文。
Response.End
End If
Top
回复人： fronm(时间) ( ) 信誉：100 2005-1-11 14:12:30 得分:2
 
up
Top
回复人： hoggio_1980(南林浪子) ( ) 信誉：100 2005-1-11 14:16:40 得分:2
 
关注！
Top
回复人： zhzhuo(编程混饭吃) ( ) 信誉：100 2005-1-11 14:48:41 得分:2
 
up
Top
回复人： bignobig() ( ) 信誉：100 2005-1-11 15:01:48 得分:0
 
qizu(沁竹)我见过，但生成DLL时出现“用户定义类型未定义”，无法生成？
Top
回复人： bignobig() ( ) 信誉：100 2005-1-11 15:04:17 得分:0
 
laihongbo524(风铃夜思雨)的也一样，我直接粘贴的，出现“用户定义类型未定义”
Top
回复人： laihongbo524(风铃夜思雨) ( ) 信誉：96 2005-1-11 15:05:44 得分:0
 
楼上，这样吧，简单点

Public Function ConnectDB() As string

ConnectDB = "driver={SQL Server};server=(local);database=数据库名;uid=用户名;pwd=密码"

End Function

2.连接信息

dim Conn
Dim Condl
'连接两部分内容组成字符串      
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
set Condl=Server.CreateObject("ConDBDLL.cs")
conn.open Condl.ConnectDB()
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接失败!"'注释，需要把这几个字翻译成英文。
Response.End
End If
Top
回复人： bignobig() ( ) 信誉：100 2005-1-11 15:11:53 得分:0
 
生成3个文件“.exp,.lib”这两个有用吗？
Top
回复人： Newrocky(罗罗) ( ) 信誉：90 2005-1-11 15:15:06 得分:10
 
to laihongbo524(风铃夜思雨) 
你这样有什么用？？？
还不是一样的把连接串拿出来了？
楼主要求是把连接串封装在DLL中啊！

其实，只要返回CONNECTION对象就可以啦！
'VB部分
'这里的工程需要引用ADODB
Public Function ConnectDB() As ADODB.Connection
Dim conn as new Adodb.connection
STRConnect = "driver={SQL Server};server=(local);database=数据库名;uid=用户名;pwd=密码"
conn.open strConnect
Set ConnectDb=conn
End Function

'ASP部分
dim Conn
Dim Condl
'连接两部分内容组成字符串      
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
set Condl=Server.CreateObject("ConDBDLL.cs")
set conn=Condl.ConnectDB()
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接失败!"'注释，需要把这几个字翻译成英文。
Response.End
End If
Top
回复人： newhandtoo(停留卡) ( ) 信誉：96 2005-1-11 15:15:27 得分:2
 
要dll那个就行了
Top
回复人： bignobig() ( ) 信誉：100 2005-1-11 15:38:09 得分:0
 
我用的Access数据库，连接失败，注册了组件，重起了机子，但是连接失败！
Public Function ConnectDB() As Variant

ConnectDB = "DBQ=" & server.mappath("abc.mdb") & ";DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=abc"

End Function

dim Conn
Dim Condl
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
set Condl=Server.CreateObject("ConDBDLL.cs")
conn.open Condl.ConnectDB()
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "ERR"
Response.End
End If
Top
回复人： mymyal123(风之森) ( ) 信誉：100 2005-1-11 15:38:19 得分:2
 
学习
Top
回复人： bignobig() ( ) 信誉：100 2005-1-11 15:43:57 得分:0
 
Newrocky(罗罗)的出现“用户定义类型未定义”
Top
回复人： tfhui928(tengfei) ( ) 信誉：95 2005-1-11 16:01:18 得分:2
 
关注
Top
回复人： bignobig() ( ) 信誉：100 2005-1-11 16:01:46 得分:0
 
这是错误代码：
服务器对象 错误 'ASP 0177 : 800401f3' 

Server.CreateObject 失败 

/index1.asp，行12 

无效的 ProgID。
Top
回复人： cncca(来个可乐) ( ) 信誉：100 2005-1-11 16:04:20 得分:2
 
组件未注册???
Top
回复人： mymyal123(风之森) ( ) 信誉：100 2005-1-11 16:07:32 得分:2
 
数据库连接失败
Top
回复人： bignobig() ( ) 信誉：100 2005-1-11 16:09:28 得分:0
 
注册了
Top
回复人： bignobig() ( ) 信誉：100 2005-1-11 16:48:49 得分:0
 
laihongbo524(风铃夜思雨) 
好了，好了！！！
大家接分了！！！
Top

该问题已经结贴 ，得分记录： tatty_bad (2)、 laihongbo524 (60)、 mackyliu (2)、 qizu (10)、 fronm (2)、 hoggio_1980 (2)、 zhzhuo (2)、 Newrocky (10)、 newhandtoo (2)、 mymyal123 (2)、 tfhui928 (2)、 cncca (2)、 mymyal123 (2)、
mymyal123
关注
  • 0
    点赞
  • 踩
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
.net操作数据库的封装dll
12-06
.net操作数据库的封装
C++封装ADO数据库连接，附上DLL源码和测试程序
07-03
因工作需要，一些项目中频繁的用到ADO连接数据库，每次都要写一些初始化过程，或者copy过来大篇代码。 “一份好的代码，一用好多年，封装成动态库，一直带身边”，为了提高工作效率或者说为了偷懒，就封装出这么一个dll， 是VS2008的工程，导出类时有遇到问题，加上下列代码可以解决。 //解决导出动态库报错问题！ #pragma warning(disable:4146) #import "C:\Program Files\Common Files\System\ADO\msado15.dll" named_guids rename("EOF","adoEOF"), rename("BOF","adoBOF") #pragma warning(default:4146) using namespace ADODB;
连接数据库进行增删改查（封装）
xue_yun_xiang的博客
03-29 331
一、src下新建文件夹lib，导入三个jar包 二、src下新建文件db.properties 写入 driver=com.mysql.jdbc.Driver url=jdbc:mysql://localhost:3306/数据库名?useSSL=false user=root password=123456 三、新建utils文件夹,在文件夹中创建JdbcUtil类 JdbcUtil.java package com.qfedu.utils; import java.io.FileInputStre
一种把项目封装为DLL的方法
Dandelion_2的博客
10-23 1029
通过代理模式封装动态链接库： 需要导出的类 template class std::shared_ptr< ExpressSheetClass::Impl>; class ExpressSheetClass::Impl { public: Impl() {}; ~Impl() {}; void init(); cv::Mat getUprightImg(cv::Mat& image); private: std::string config_path = "config_
C#封装数据库连接类
listennerBGM的博客
02-22 1426
程序对数据库的增删改查是一个业务的核心,频繁读写数据库是很正常的事情,所以封装出一个数据库连接对象,方便到一行代码直接得到DataTable或DataSet对象就是非常有必要的了,下面给出数据库连接类,数据库连接字符串一般会放在Web.config或App.config配置文件中,Web.config是B/S模式使用的,App.config一般是桌面应用程序使用的,后面也会给出相关的配置文件的写法 App.config <?xml version="1.0" encoding="utf-8" ?&gt
用VB生成DLL封装ASP连接数据库的代码
10-31
"用VB生成DLL封装ASP连接数据库的代码" 这篇文章主要讲述了如何使用VB生成DLL封装ASP连接数据库的代码，以便提高安全性。文章首先介绍了使用ASP连接Access数据库的传统方法，然后讨论了这种方法的安全性问题。为...
vb.net连接火鸟数据库封装方法和dll文件
08-10
在VB.NET中连接火鸟（Firebird）数据库通常涉及到几个关键步骤，包括安装必要的驱动、配置连接字符串、创建数据库连接以及执行SQL语句。这里，我们将深入探讨如何封装这些步骤到一个可重用的类库中，以创建DLL文件。...
用VB生成DLL封装ASP代码_连接数据库
06-20
通过这种方式，我们成功地将敏感的数据库连接信息封装在了DLL中，提高了代码的安全性。需要注意的是，实际应用中，数据库用户名和密码不应硬编码，而是应考虑从应用程序配置文件或者更安全的方式获取。此外，对于...
MySql封装类
09-13
适用于linux和window的c c++mysql封装类，已分别在window C++和Linux C++项目中使用，目前没有问题，如有问题请指正。同时包含libmysql的dll库
用VB编写组件—封装数据库的连接字符串
07-04 1820
使用VB6编写组件隐藏数据库的连接字符串海南省商贸信息服务中心  温大文  如今，开发WEB应用程序绝大多数都是使用Browser/Server模式，而在B/S 应用程序开发领域中，微软公司的IIS/ASP组合以其强大的功能、良好的扩展能力及与其它微软产品良好的兼容性，迅速地流行起来。ASP以其简单易学、功能强大而博得广大程序员的喜爱，国内的大部分网站都是利用ASP架构的。
C++封装ADO数据库连接，并附上DLL源码和测试程序
shortcoder的专栏
07-03 1852
因工作需要，一些项目中频繁的用到ADO连接数据库，每次都要写一些
通用数据库访问DLL实现
new_smile的专栏
05-12 1876
 通用数据库访问模块 实现接口： 通过范型类来做所有操作的对象，来对应任何表结构的数据。这种通用类型只能对单表操作吧，不是很方便。 包装通用事务和通用数据库链接对象，便于对不通数据库兼容 内置方法为泛型类型对象的，增删改及查询，加返回泛型集合对象 通用表对象映射模型 基类实现： 添加更新字典，加入查询表字段
VC++ MFC ADO连接SQL数据库教程
首先，我们需要创建一个专门负责数据库连接的类。在VC6.0中，可以通过“插入”菜单选择“类（MFC类）”，并选择“GenericClass”来创建一个新的类，例如ADOConn。这将在项目中自动生成对应的头文件（ADOConn.h）和源...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值