当前位置：首页 > 范文大全 > 实用文>一个测试数据库连接的函数

一个测试数据库连接的函数

2023-03-14 07:55:29 收藏本文下载本文

“随意东或西”通过精心收集，向本站投稿了7篇一个测试数据库连接的函数，以下是小编为大家整理后的一个测试数据库连接的函数，希望对您有所帮助。

一个测试数据库连接的函数

篇1：一个测试数据库连接的函数

以前一直困扰我的一个问题，如何判断数据库连接是否成功(比如sql没有启动，数据库不存在等),实现友好的错误处理，但VBscript的错误处理机制实在太差，只有on error resume nex/go to，但往往使用ADO的错误陷阱后，等待你的将是脚本超时，这个函数将改变这一状况（连接超时长短可以自己根据实际情况控制）

'入口参数：连接字符串strconn

'返回值：TestConnection=true,false

Function TestConnection(strconn)

On Error Resume Next

set conn=server.createobject(adodb.connection)

'这里设定连接超时为10秒

conn.ConnectionTimeout=10

conn.Open strconn

If conn.Errors.Count = 0 Then

TestConnection = True

conn.close

Else

TestConnection = False

End If

set conn=nothing

End Function

篇2：asp 数据库连接函数代码介绍

以下是SQL连接代码：

复制代码代码如下:

Function Open_conn

dim Conn,Strconn

set Conn=server.createobject(“adodb.connection”)

Strconn = “Provider = Sqloledb; User ID = 数据库登录帐号; Password = 数据库登录密码; Initial Catalog = 数据库名称; Data Source = (local);”

Conn.open Strconn

set Open_conn=Conn

If Err Then

err.Clear

Conn.close:set Conn=nothing

Response.Write “对不起，数据库连接出错。”

Response.End

End If

End Function

调用方法：

将原来的

复制代码代码如下:

rs.open sql,conn

改成

复制代码代码如下:

rs.open sql,Open_conn()

以下是ACCESS连接代码：

复制代码代码如下:

Function Open_conn()

dim Dbpath,Conn

Dbpath=server.MapPath(“数据库路径”)

set Conn=server.createObject(“ADODB.connection”)

Conn.open “data source=”&dbpath&“;provider=microsoft.Jet.OLEDB.4.0;”

set Open_conn=Conn

If Err Then

err.Clear

Conn.close:set Conn=nothing

Response.Write “对不起，数据库连接出错。”

Response.End

End If

End Function

调用方法：

将原来的

复制代码代码如下:

rs.open sql,conn

改成

复制代码代码如下:

rs.open sql,Open_conn()

[asp 数据库连接函数代码介绍]

篇3：PB如何连接Oracle数据库

如果你已经是个powerbuilder高手，那么下面的东西对你来说毫无价值，你大可不必再看下去，如果你刚刚步入powerbuilder的殿堂，那么下面的东西对你来说可能有点价值，你应该看一看。

作为一个优秀的客户端开发工具，powerbuilder必然需要与大型的数据库相连接，尽管许多资料上都介绍了如何通过odbc或者powerbuilder自带的db profile或者专用接口连接上数据库，但仍然有许多使用者按此方法却无法连接上数据库，这方面的原因可能是powerbuilder本身的原因，比如在安装powerbuilder时的选项、odbc的版本之类；也可能是在安装客户端的oracle、sybase、informix、sql server等软件上的问题，下面就从最根本的odbc配置开始，教你一步步如何连接上数据库。 odbc数据源的配置

进入控制面板，打开odbc数据源（32位），如图1所示，点击“add”按钮，进入odbc数据源的配置面板，如图2所示：

选择“oracle odbc driver”一项，注意当前版本号为“8.00.0400”，如果你的操作系统中安装的是oracle7，则相应的版本号会不同。提醒一点：在windows98操作系统上是无法安装oracle8.0.4的（只能安装oracle7.2.3），oracle8.0.5则没有试过。因而会有一些使用者在windows98系统上无法正常配置odbc数据源，因为windows98本身自带的odbc数据源已经比oracle7数据源版本要高，无论你怎样配置odbc，系统总会提示你要安装一个更高版本的oracle，自然你就无法配置odbc了，有一个解决方法就是用pb7第二张光盘上的odbc安装程序覆盖系统中的odbc，或者把你的操作系统改为windows95/97算了。

然后进入“oracle8 odbc driver setup”设置，在“data source name”一项中随便输入一个名字，在“data source service name”一栏中输入oracle连接数据库的字符串名，这可以在你安装的oracle目录中的tnsnames.ora文件中查看到（oracle7安装路径为“orawin95\network\ admin”；oracle8安装路径为“orawin95\net80\admin”），或者你通过“sql net easy configuration”新添加一个数据库连接配置，将配置中的字符串填入即可，其他的就不必再填入，避免出现画蛇添足之错，反而连接不上数据库了。 db profile数据源的配置

进入pb，打开db profile，如图4所示，选择odbc一项，点击“new”，进入pb数据源的配置，如图5所示。当然如果你之前没有进行odbc的配置，你也可以在这里点击“config odbc”进入之前你看到的odbc配置界面。

在“profile name”中自定义一个名字，然后从“data source”的下拉菜单中选择你在odbc中已经配置好的数据源，输入登录数据库所需要的用户名与密码，当然你认为没有这个必要性的话可以不在这里输入（主要是不要轻易让人知道你数据库的口令，不然问题就大了），到这一步为止，pb已经做完了所有数据库连接的配置，剩下的就是连接上数据库了。 pb for oracle专用接口的配置

同样是进入pb，点击db profile选项（这是对oracle7版本而言，如果是oracle8，相应的选项就是oracle8.0.4），看到上面的“073 oracle 7.3”选项没有，点击一下，再按“new”进入图7的界面，“profile name”一栏随意填，“server”一栏填写时要注意，oracle7版本一定要在数据连接字符串前加上@，否则不能连接上pb数据库，oracle8版本则不必加上@，其他的设置就可以不用了。

以上三种pb连接数据库的方法其实十分简单，但是初学者却又会经常出错，在这里只是想作为一种抛砖引玉之用，希望广大初学者通过本文对pb数据源配置能够有一定的了解。下面再对oracle连接数据库的配置文件tnsnames.ora简单说明一下，“tnsnames.ora”文件其实是通过“sql net easy configuration”初始化配置后的参数文件，如果你不想通过“sql net easy configuration”进行配置，你只需要把你先前已有的“tnsnames.ora”文件放入oracle的admin目录中，覆盖现有的文件就可以了，当然你也可以再自己添加数据库连接字符串。通常，一个“tnsnames.ora”文件内容如下： ······kf.world = (description = (address_list =(address =(community = tcp.world) (protocol = tcp) (host = 136.12.145.5) (port = 1521) ) (address =(community = tcp.world) (protocol = tcp) (host = 136.12.145.5) (port = 1526) ) ) (connect_data = (sid = sid3) ) )······

其中最要的是第一项和最后一项（这里是以tcp/ip网络连接，大多数用户都是以此连接），host一栏是主机地址，“connect_data = (sid = sid3)”中的sid3是连接主机数据库的字符串，你要修改这几项就可以了。另外谈谈如何让英文版的oracle7显示中文，其实很简单，只要将注册表“hkey_local_machine\ software\oracle\nls_lang”中的值改为如下值就可以了“ simplified chinese_china.zhs16cgb231280”。

篇4：python mysqldb连接数据库

-07-07python之import机制详解

-09-09python encode和decode的妙用

2009-02-02wxpython 学习笔记第一天

-06-06Python查询Mysql时返回字典结构的代码

2014-07-07Python中的二叉树查找算法模块使用指南

2014-04-04python处理圆角图片、圆形图片的例子

2014-01-01pyside写ui界面入门示例

-03-03Python中删除文件的程序代码

2014-06-06Python实现多线程下载文件的代码实例

-12-12pymssql ntext字段调用问题解决方法

篇5：python mysqldb连接数据库

热点排行

Python入门教程超详细1小时学会

python 中文乱码问题深入分析

比较详细Python正则表达式操作指

Python字符串的encode与decode研

Python open读写文件实现脚本

Python enumerate遍历数组示例应

Python 深入理解yield

Python+Django在windows下的开发

python 字符串split的用法分享

python 文件和路径操作函数小结

篇6：MFC连接SQLServer数据库

其步骤一般分为：

(1) 引入ADO动态库文件

(2) 初始化COM环境

(3) 连接数据库操作数据表

说明：本数据库使用SQLServer2005制作，名字为“student”，内含一个表，命名为“stud”。

建表语句

create table stud

(

num varchar(7),

name nvarchar(20) not null,

gender nchar(2) default '男' check(gender in('男','女')),

dept nvarchar(20) not null

)

插入一些数据

insert into stud values('0147256','test','男','计算机系');

进行疯狂复制，多添加一些数据

insert into stud select * from stud;

本例中创建的数据源名字为'test'

需要添加数据源

在stdafx.h添加以下代码引入ADO动态库文件

#import “C:\Program Files\CommonFiles\System\ado\msado15.dll” no_namespace\rename(“EOF”,“adoEOF”)rename(“BOF”,“adoBOF”)

初始化COM环境

::CoInitialize(NULL); //在app类中的InitInstance函数中添加

::CoUninitialize; //在app类中的InitInstance函数的最后(return之前)添加，释放COM环境

首先先在dlg头文件中先声明这两个智能指针，通过这些指针可以很容易的创建和删除ADO对象。

_ConnectionPtrm_pConnection;

_RecordsetPtrm_pRecordset;

接下来在dlg类中添加函数void OnInitADOConn()

void CMy1Dlg::OnInitADOConn()

{

::CoInitialize(NULL); //初始化COM环境

try

{

//创建连接对象实例

m_pConnection.CreateInstance(“ADODB.Connection”);

CString strConnect;

//注意，我这里写的连接字符串是通过以下步骤的得到的：

//1、新建一个文件，名字任意取，后缀名必须为udl(如何hello.udl)

//2、双击hello.udl文件，进入数据连接属性面板，填写好数据源(选择自己创建的数据源名字的)

//3、再以记事本方式打开，第三行的数据就是连接字符

strConnect=“Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=test;Password=*******”;

//使用Open方法连接数据库

m_pConnection->Open((_bstr_t)strConnect,“”,“”,adModeUnknown);

}

catch(_com_error e)

{

AfxMessageBox(e.Description());

}

在dlg类中在添加void ExitConnect()函数

void CMy1Dlg::ExitConnect()

{

//关闭记录集和连接

if(m_pRecordset!=NULL)

m_pRecordset->Close();

m_pConnection->Close();

}

在dlg类的OnInitDialog函数中添加如下代码，设置列表视图的风格和标题(写在最后)

m_Grid.SetExtendedStyle(LVS_EX_FLATSB

|LVS_EX_FULLROWSELECT

|LVS_EX_HEADERDRAGDROP

|LVS_EX_ONECLICKACTIVATE

|LVS_EX_GRIDLINES);

m_Grid.InsertColumn(0,“编号”,LVCFMT_LEFT,110,0);

m_Grid.InsertColumn(1,“姓名”,LVCFMT_LEFT,110,1);

m_Grid.InsertColumn(2,“性别”,LVCFMT_LEFT,110,2);

m_Grid.InsertColumn(3,“学历”,LVCFMT_LEFT,110,3);

AddToGrid();

在dlg类中添加void AddToGrid()函数

void CMy1Dlg::AddToGrid()

{

//连接数据库

OnInitADOConn();

//设置查询字符串

_bstr_tbstrSQL = “select * from stud”;

//创建记录集指针对象实例

m_pRecordset.CreateInstance(__uuidof(Recordset));

//打开记录集

m_pRecordset->Open(bstrSQL,m_pConnection.GetInterfacePtr(),adOpenDynamic,

adLockOptimistic,adCmdText);

int i=0;

while(!m_pRecordset->adoEOF)

{

m_Grid.InsertItem(i,“”);

m_Grid.SetItemText(i,0,(char*)(_bstr_t)m_pRecordset->GetCollect(“num”));

m_Grid.SetItemText(i,1,(char*)(_bstr_t)m_pRecordset->GetCollect(“sex”));

m_Grid.SetItemText(i,2,(char*)(_bstr_t)m_pRecordset->GetCollect(“gender”));

m_Grid.SetItemText(i,3,(char*)(_bstr_t)m_pRecordset->GetCollect(“dept”));

//两种方式均可

m_Grid.SetItemText(i,0,(_bstr_t)m_pRecordset->GetCollect(_variant_t((long)0)));

m_Grid.SetItemText(i,1,(_bstr_t)m_pRecordset->GetCollect(_variant_t((long)1)));

m_Grid.SetItemText(i,2,(_bstr_t)m_pRecordset->GetCollect(_variant_t((long)2)));

m_Grid.SetItemText(i,3,(_bstr_t)m_pRecordset->GetCollect(_variant_t((long)3)));

i++;

//将记录集指针移动到下一条记录

m_pRecordset->MoveNext();

}

//断开数据库连接

ExitConnect();

}

接下来为四个edit控件和一个list constrol控件关联变量，在资源中右键点击选择classwizar里的Member variables,分别为它们设置变量为m_ID,m_Name,m_Sex,m_Culture,m_Grid.在dlg类的头文件部分自动会生成

CString m_ID;

CString m_Name;

CString m_Sex;

CString m_Culture;

CListCtrl m_Grid;

Dlg类构造函数中

m_ID = _T(“”);

m_Name = _T(“”);

篇7：的数据库连接程序

我从来就不用DNS连接，我觉得那个很不方便，下面这部分程序可说是万能的数据库连接程序几乎可以连接所有的MS数据库，自己拿去研究吧（这个程序是“ASP网页制作教程”这本书里面的――一本好书）：

'---------------------------------------------------

Function GetMdbConnection( FileName )

Dim Provider, DBPath Provider = “Provider=Microsoft.Jet.OLEDB.4.0;”

DBPath = “Data Source=” & Server.MapPath(FileName)

Set GetMdbConnection = GetConnection( Provider & DBPath )

End Function '---------------------------------------------------

Function GetSecuredMdbConnection( FileName, Password )

Dim Provider, DBPath Provider = “Provider=Microsoft.Jet.OLEDB.4.0;”

DBPath = “Data Source=” & Server.MapPath(FileName)

Set GetSecuredMdbConnection = GetConnection( Provider & DBPath & “;Jet OLEDB:Database Password=” & Password )

End Function '---------------------------------------------------

Function GetDbcConnection( FileName )

Dim Driver, SourceType, DBPath Driver = “Driver={Microsoft Visual FoxPro Driver};”

SourceType = “SourceType=DBC;”

DBPath = “SourceDB=” & Server.MapPath( FileName )

Set GetDbcConnection = GetConnection( Driver & SourceType & DBPath )

End Function '---------------------------------------------------

Function GetDbfConnection( Directory )

Dim Driver, SourceType, DBPath Driver = “Driver={Microsoft Visual FoxPro Driver};”

SourceType = “SourceType=DBF;”

DBPath = “SourceDB=” & Server.MapPath( Directory )

Set GetDbfConnection = GetConnection( Driver & SourceType & DBPath )

End Function '---------------------------------------------------

Function GetExcelConnection( FileName )

Dim Driver, DBPath Driver = “Driver={Microsoft Excel Driver (*.xls)};”

DBPath = “DBQ=” & Server.MapPath( FileName )

Set GetExcelConnection = GetConnection( Driver & “ReadOnly=0;” & DBPath )

End Function '---------------------------------------------------

Function GetTextConnection( Directory )

Dim Driver, DBPath Driver = “Driver={Microsoft Text Driver (*.txt; *.csv)};”

DBPath = “DBQ=” & Server.MapPath( Directory )

Set GetTextConnection = GetConnection( Driver & DBPath )

End Function '---------------------------------------------------

Function GetSQLServerConnection( Computer, UserID, Password, Db )

Dim Params, conn Set GetSQLServerConnection = Nothing

Params = “Provider=SQLOLEDB.1”

Params = Params & “;Data Source=” & Computer

Params = Params & “;User ID=” & UserID

Params = Params & “;Password=” & Password

Params = Params & “;Initial Catalog=” & Db

Set conn = Server.CreateObject(“ADODB.Connection”)

conn.Open Params

Set GetSQLServerConnection = conn

End Function '---------------------------------------------------

Function GetMdbRecordset( FileName, Source )

Set GetMdbRecordset = GetMdbRs( FileName, Source, 2, “” )

End Function '---------------------------------------------------

Function GetMdbStaticRecordset( FileName, Source )

Set GetMdbStaticRecordset = GetMdbRs( FileName, Source, 3, “” )

End Function '---------------------------------------------------

Function GetSecuredMdbRecordset( FileName, Source, Password )

Set GetSecuredMdbRecordset = GetMdbRs( FileName, Source, 2, Password )

End Function '---------------------------------------------------

Function GetSecuredMdbStaticRecordset( FileName, Source, Password )

Set GetSecuredMdbStaticRecordset = GetMdbRs( FileName, Source, 3, Password )

End Function '---------------------------------------------------

Function GetDbfRecordset( Directory, SQL )

Set GetDbfRecordset = GetOtherRs( “Dbf”, Directory, SQL, 2 )

End Function '---------------------------------------------------

Function GetDbfStaticRecordset( Directory, SQL )

Set GetDbfStaticRecordset = GetOtherRs( “Dbf”, Directory, SQL, 3 )

End Function '---------------------------------------------------

Function GetDbcRecordset( FileName, SQL )

Set GetDbcRecordset = GetOtherRs( “Dbc”, FileName, SQL, 2 )

End Function '---------------------------------------------------

Function GetDbcStaticRecordset( FileName, SQL )

Set GetDbcStaticRecordset = GetOtherRs( “Dbc”, FileName, SQL, 3 )

End Function '---------------------------------------------------

Function GetExcelRecordset( FileName, SQL )

Set GetExcelRecordset = GetOtherRs( “Excel”, FileName, SQL, 2 )

End Function '---------------------------------------------------

Function GetExcelStaticRecordset( FileName, SQL )

Set GetExcelStaticRecordset = GetOtherRs( “Excel”, FileName, SQL, 3 )

End Function '---------------------------------------------------

Function GetTextRecordset( Directory, SQL )

Set GetTextRecordset = GetOtherRs( “Text”, Directory, SQL, 2 )

End Function '---------------------------------------------------

Function GetTextStaticRecordset( Directory, SQL )

Set GetTextStaticRecordset = GetOtherRs( “Text”, Directory, SQL, 3 )

End Function '---------------------------------------------------

Function GetSQLServerRecordset( conn, source )

Dim rs Set rs = Server.CreateObject(“ADODB.Recordset”)

rs.Open source, conn, 2, 2

Set GetSQLServerRecordset = rs

End Function '---------------------------------------------------

Function GetSQLServerStaticRecordset( conn, source )

Dim rs Set rs = Server.CreateObject(“ADODB.Recordset”)

rs.Open source, conn, 3, 2

Set GetSQLServerStaticRecordset = rs

End Function '---------------------------------------------------

Function GetConnection( Param )

Dim conn On Error Resume Next

Set GetConnection = Nothing

Set conn = Server.CreateObject(“ADODB.Connection”)

If Err.Number 0 Then Exit Function conn.Open Param

If Err.Number 0 Then Exit Function

Set GetConnection = conn

End Function '---------------------------------------------------

Function GetMdbRs( FileName, Source, Cursor, Password )

Dim conn, rs On Error Resume Next

Set GetMdbRs = Nothing

If Len(Password) = 0 Then

Set conn = GetMdbConnection( FileName )

Else

Set conn = GetSecuredMdbConnection( FileName, Password )

End If

If conn Is Nothing Then Exit Function Set rs = Server.CreateObject(“ADODB.Recordset”)

If Err.Number 0 Then Exit Function rs.Open source, conn, Cursor, 2

If Err.Number 0 Then Exit Function

Set GetMdbRs = rs

End Function '---------------------------------------------------

Function GetOtherRs( DataType, Path, SQL, Cursor )

Dim conn, rs

On Error Resume Next

Set GetOtherRs = Nothing Select Case DataType

Case “Dbf”

Set conn = GetDbfConnection( Path )

Case “Dbc”

Set conn = GetDbcConnection( Path )

Case “Excel”

Set conn = GetExcelConnection( Path )

Case “Text”

Set conn = GetTextConnection( Path )

End Select

If conn Is Nothing Then Exit Function Set rs = Server.CreateObject(“ADODB.Recordset”)

If Err.Number 0 Then Exit Function rs.Open SQL, conn, Cursor, 2

If Err.Number 0 Then Exit Function

Set GetOtherRs = rs

End Function '---------------------------------------------------

Function GetSQLServerRs( Computer, UserID, Password, Db, source, Cursor )

Dim conn, rs On Error Resume Next

Set GetSQLServerRs = Nothing

Set conn = GetSQLServerConnection( Computer, UserID, Password, Db )

If conn Is Nothing Then Exit Function Set rs = Server.CreateObject(“ADODB.Recordset”)

If Err.Number 0 Then Exit Function rs.Open source, conn, Cursor, 2

If Err.Number 0 Then Exit Function

Set GetSQLServerRs = rs

End Function

使用方法是――复制下来存成一个文件，然后用#Include “文件名”就可以调用里面的子程序了，

万能的数据库连接程序

，

有什么问题可以一起探讨！！！

【一个测试数据库连接的函数】相关文章：

1.IStartupTask连接数据库的方法

2.关于jet db的连接字串，以及加密后的字串数据库教程

将本文的Word文档下载到电脑，方便收藏和打印

推荐度：

点击下载文档

文档为doc格式

实用文图文推荐

一个测试数据库连接的函数相关文章

一个测试数据库连接的函数

篇1：一个测试数据库连接的函数

篇2：asp 数据库连接函数代码介绍

篇3：PB如何连接Oracle数据库

篇4：python mysqldb连接数据库

篇5：python mysqldb连接数据库

最近更 新

热 点 排 行

篇6：MFC连接SQLServer数据库

篇7：的数据库连接程序

最近更新

热点排行