ado连接数据库模块

ado|连接数据库

加入这个模块后,在程序中任意地方调用:

打开ado数据库连接:Call CnnDB(mcnn, sCnn, True)
关闭ado数据库连接:Call DisCnn(mcnn)

这样,让数据库连接更加方便被连接和关闭

'%#******************************************
'%#*窗体名称:MdlDB
'%#*功能描述:加入这个模块后调用 Call CnnDB(gcnnDB, sCnn, True)
'%#*作者: 宁彦彬
'%#*修改日期:2002-12-03
'%#******************************************
'%#*Option Explicit

Public Sub CnnDB(ByRef mcnn As ADODB.Connection, sCnn as string, Optional blnClient As Boolean)
'*purpose: connect local sqlserver
'*NOTE: 在这里数据连接
On Error GoTo MYERR
If blnClient = True Then
mcnn.CursorLocation = adUseClient
Else
mcnn.CursorLocation = adUseServer
End If
mcnn.ConnectionString = sCnn '定义好的
mcnn.Open
MYEXIT:
Exit Sub
MYERR:
MsgBox "服务器没有运行" & vbCrLf & Err.Number & vbCrLf & Err.Description, vbCritical, "错误"
GoTo MYEXIT
End Sub

Public Sub DisCnn(ByRef mcnn As ADODB.Connection)
'*purpose: disconnect local sqlserver
'*NOTE: 在这里数据断开连接
On Error GoTo MYERR
mcnn.Close
Set mcnn = Nothing
MYEXIT:
Exit Sub
MYERR:
GoTo MYEXIT
End Sub

Function serverDate(ByRef mcnn As ADODB.Connection)
'*purpose: 取到服务器的系统时间
'*NOTE: 必须在mcnn初始化后再用
' MsgBox serverDate(mcnn)
On Error GoTo MYERR
Dim rst As New ADODB.Recordset
Set rst = mcnn.Execute("select getdate()")
serverDate = rst(0)
rst.Close
Set rst = Nothing
MYEXIT:
Exit Function
MYERR:
GoTo MYEXIT
End Function

时间: 2024-12-25 04:11:46

ado连接数据库模块的相关文章

用ADO连接数据库的三种方法及其性能比较

ado|比较|连接数据库|性能    ADO连接数据库通常有三种方法:System DSN Connection,DSN-less Connection 和 OLE DB Connection,这是大家都很熟悉的,它们的使用方法如下:      (注:三种方法的区别在于使用的是哪个关键字 - DSN,Driver,Data Source,Provider.UID,PWD 是 ODBC 的标记,User ID,Password 是 OLEDB 的标记.特别指出的是 Data Source 在 OD

ADO连接数据库字符串大全(VP,Excel,文本,Sybase,.NET等)

ado|excel|连接数据库|字符串 ADO连接数据库字符串大全(VP,Excel,文本,Sybase,.NET等) This page contains sample ADO connection strings for ODBC DSN / DSN-Less,OLE DB Providers, Remote Data Services (RDS), MS Remote, MS DataShape. Also included are ADO.NET connection strings f

ADO连接数据库字符串大全

ado|连接数据库|字符串 ADO连接数据库字符串大全 This page contains sample ADO connection strings for ODBC DSN / DSN-Less, OLE DB Providers, Remote Data Services (RDS), MS Remote, MS DataShape. Also included are ADO.NET connection strings for each .NET Managed Provider (

ado-Vb.net 使用AdO连接数据库错误

问题描述 Vb.net 使用AdO连接数据库错误 以下代码为什么老在 Cnn.open(CnnStr) 显示 "未找到提供程序.该程序可能未正确安装."? 已经有引用ADODB. Imports System.Data.OleDb Imports ADODB Dim Cnn As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim CnnStr As String = "Provider= Microsoft.Jet.

ado连接sql数据库-求大神帮忙,ado连接数据库sql server 2005,总是失败

问题描述 求大神帮忙,ado连接数据库sql server 2005,总是失败 #include #include #include #include #import "C:Program FilesCommon FilesSystemadomsado15.dll" no_namespace rename("EOF","ADOEOF") int main() { if(!AfxOleInit()) { AfxMessageBox("ca

c++-ado 连接数据库,能从异常或者返回值里区分出 异常产生的原因吗

问题描述 ado 连接数据库,能从异常或者返回值里区分出 异常产生的原因吗 想知道哪些原因引起的数据库连接失败,如:断网,sql语句错误,数据库问题... 解决方案 断网或者数据库服务器异常一般很难确定出来到底是哪个,因为会报同意异常:连接超时,没有多余提示!其他sql错误之类的一眼就能看出吧 解决方案二: 可以,根据异常类型和异常消息.各种数据库的异常和消息各有不同.理论上应该是可以明确的

来看看这样一个问题 用ado连接数据库的问题 请看下面图片

问题描述 来看看这样一个问题 用ado连接数据库的问题 请看下面图片 这是前台的方法 后台登录数据库有什么问题呢 语法有什么问题 总是登录失败 而且文本框中的值一直是为空的 解决方案 密码输入框的名称获取对没有?再用this点看看

ado-请教一个ADO连接数据库和VC2013的问题

问题描述 请教一个ADO连接数据库和VC2013的问题 我在VS2013里面用的ADO连接的数据库,连接ACCESS数据库,结果有密码还连接不上,把密码去了才能连接上,全弄完了之后才发现原来2013里面竟然有自带的连接数据库的东西,请问下有了这个的话 是不是就不用ADO了呀?话说现在ADO是不是过时了呀?大家用VC2013连接数据库都是怎么做的呀? 解决方案 ado当然过时了,在.net中使用ado.net了. 解决方案二: ado没过时吧,访问数据库一般首选还是ado啊.

服务器-Visual 6.0 ADO连接数据库的问题

问题描述 Visual 6.0 ADO连接数据库的问题 SQL server 2008服务器名字为local时 连接字符串中的 服务器名字应该写什么,为什么写local不对呢? 解决方案 写.(一个点),localhost,127.0.0.1等,分别试试看. 解决方案二: ADO连接Access数据库连接字符串问题VC6.0 通过ado连接access数据库