VB连接SQL数据库驱动部分
来源:互联网 发布:javascript: 编辑:程序博客网 时间:2024/06/09 14:15
Attribute VB_Name = "Data_SQL"
Public conn As ADODB.Connection
Public rs As ADODB.Recordset
'Dim proc As New ADODB.Command
Public addFlag As Boolean '声明部分
Public Function OpenCn(ByVal Cip As String, ByVal DBName As String, ByVal users As String, ByVal pw As String) As Boolean '连接模块 填写数据库等信息
Dim mag As String
On Error GoTo strerrmag
Set conn = New ADODB.Connection
conn.ConnectionTimeout = 25
conn.Provider = "sqloledb"
conn.Properties("data source").Value = Cip '服务器的名字
conn.Properties("initial catalog").Value = DBName '库名
'conn.Properties("integrated security").Value = "SSPI" '登陆类型
conn.Properties("user id").Value = users 'SQL库名
conn.Properties("password").Value = pw '密码
'sql = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=;Initial Catalog=pubs;Data Source=127.0.0.1" '如果不用这个模块也行可以,这一句便是常用的引擎。
'conn.ConnectionString = sql Data Source=.;Initial Catalog=Andon;User ID=sa
conn.Open
OpenCn = True
If conn.State = 1 Then addFlag = True
Exit Function
strerrmag:
mag = "Data can't connect"
Call MsgBox(mag, vbOKOnly, "Error:Data connect")
addFlag = False
Exit Function '连接错误消息
End Function
'关闭数据库,释放连接
Public Sub cloCn()
On Error Resume Next
If conn.State <> adStateClosed Then conn.Close
Set conn = Nothing
End Sub
Public Function openRs(ByVal strsql As String) As Boolean '连接数据库记录集
Dim mag As String
Dim rpy As Boolean
On Error GoTo strerrmag
Set rs = New ADODB.Recordset
If addFlag = False Then rpy = True
With rs
.ActiveConnection = conn
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strsql
End With
addFlag = True
openRs = True
'End '将记录集给rs
Exit Function
strerrmag:
mag = "data not connect"
Call MsgBox(mag, vbOKOnly, "error:connect")
openRs = False
End
'Exit Function '连接错误消息
End Function
Public Sub cloRs()
On Error Resume Next
If rs.State <> adStateClosed Then rs.Clone
Set rs = Nothing '释放记录集
End Sub
Public conn As ADODB.Connection
Public rs As ADODB.Recordset
'Dim proc As New ADODB.Command
Public addFlag As Boolean '声明部分
Public Function OpenCn(ByVal Cip As String, ByVal DBName As String, ByVal users As String, ByVal pw As String) As Boolean '连接模块 填写数据库等信息
Dim mag As String
On Error GoTo strerrmag
Set conn = New ADODB.Connection
conn.ConnectionTimeout = 25
conn.Provider = "sqloledb"
conn.Properties("data source").Value = Cip '服务器的名字
conn.Properties("initial catalog").Value = DBName '库名
'conn.Properties("integrated security").Value = "SSPI" '登陆类型
conn.Properties("user id").Value = users 'SQL库名
conn.Properties("password").Value = pw '密码
'sql = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=;Initial Catalog=pubs;Data Source=127.0.0.1" '如果不用这个模块也行可以,这一句便是常用的引擎。
'conn.ConnectionString = sql Data Source=.;Initial Catalog=Andon;User ID=sa
conn.Open
OpenCn = True
If conn.State = 1 Then addFlag = True
Exit Function
strerrmag:
mag = "Data can't connect"
Call MsgBox(mag, vbOKOnly, "Error:Data connect")
addFlag = False
Exit Function '连接错误消息
End Function
'关闭数据库,释放连接
Public Sub cloCn()
On Error Resume Next
If conn.State <> adStateClosed Then conn.Close
Set conn = Nothing
End Sub
Public Function openRs(ByVal strsql As String) As Boolean '连接数据库记录集
Dim mag As String
Dim rpy As Boolean
On Error GoTo strerrmag
Set rs = New ADODB.Recordset
If addFlag = False Then rpy = True
With rs
.ActiveConnection = conn
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strsql
End With
addFlag = True
openRs = True
'End '将记录集给rs
Exit Function
strerrmag:
mag = "data not connect"
Call MsgBox(mag, vbOKOnly, "error:connect")
openRs = False
End
'Exit Function '连接错误消息
End Function
Public Sub cloRs()
On Error Resume Next
If rs.State <> adStateClosed Then rs.Clone
Set rs = Nothing '释放记录集
End Sub
- VB连接SQL数据库驱动部分
- vb.net 连接SQL数据库
- VB连接SQL数据库实例
- VB连接数据库SQL sever
- 初学VB.NET连接SQL数据库!
- VB连接SQL数据库的方法
- VB连接SQL数据库的方法
- vb.net连接sql server数据库
- 如何用vb语句连接SQL数据库
- VB连接SQL数据库的方法
- VB.NET连接sql server数据库
- 【VB】VB连接SQL数据库(机房问题)
- jts连接数据库及部分SQL语句
- [VB.NET]vb.net中该用哪种连接方式连接sql数据库?
- VB连接Sql Server,Oracle,SyBase,Access数据库操作实例
- [VB.NET源码]74_连接SQL数据库
- [VB.NET]vs2005 如何连接本地SQL数据库 在线等!
- VB.NET连接局域网SQL Server 2000数据库字符串
- 启动时错误
- 短信ui--会话编辑界面之彩信附件
- Easy Widgets拖拽框架
- android 人脸识别
- Winform开发框架之通用人员信息管理
- VB连接SQL数据库驱动部分
- android短彩信幻灯片异步加载机制
- 七大排序算法系列之冒泡排序
- YUV格式详解
- Linux rpm 命令参数使用详解[介绍和应用]
- C++数据类型及大小
- 未能加载文件或程序集“Microsoft.ReportViewer.WebForms, Version=9.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7
- MySQL索引背后的数据结构及算法原理
- 服务器磁盘空间已满造成:SSH传输文件报错