VB连接SQL最简单方法
2009-12-07 17:38
197 查看
Public conn As ADODB.Connection Public rs As ADODB.Recordset Public addFlag As Boolean '声明部分 Public Function OpenCn(ByVal Cip As String, ByVal users As String, ByVal pw As String, ByVal sjk 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 = sjk '库名 'conn.Properties("integrated security").Value = "SSPI" '登陆类型 conn.Properties("user id").Value = users 'SQL库用户名 conn.Properties("password").Value = pw '密码 conn.Open OpenCn = True If conn.State = 1 Then addFlag = True Exit Function strerrmag: mag = "连接失败!" Call MsgBox(mag, vbOKOnly, "错误:") 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 = "记录返回错误!" Call MsgBox(mag, vbOKOnly, "错误:") 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最简单方法
- QTP中MS SQL SERVER数据库连接的一种简单方法
- VB通过ADO连接SQL数据的两种方法
- mysql,sql的Java连接方法(简单应用)执行sql查询与预处理
- VB通过ADO连接SQL数据的两种方法
- VB通过ADO连接SQL数据的两种方法
- asp.net连接MYSQL的SQL语句中有汉字问题最简单、最终的解决方法
- asp中数据库的连接方法(包括access和sql)
- 关于ADO.NET连接SQL一些方法
- (macOS)weka3.8最简单方法连接MySQL数据库
- Java连接MySQL数据库实现用户名密码的验证方法 Java语句中sql查询语句'' ""作用
- EXCEL文件中的简单VB编程,基本的访问方法
- 实现数据库事务的简单方法ExecuteSqlTran()
- 简单高效防注入攻击的动态多参数、动态SQL语句拼接方法,提高网站的安全性
- 自己写的实现数据库事务的简单方法ExecuteSqlTran()
- PL/SQL工具连接ORALCE数据库的方法(ZZ)
- 用SQL Server Management Studio远程连接Integration Services失败的解决方法
- 关于同一台机器上安装多个sql实例的连接方法
- 交互式SQL-简单查询、连接查询和聚合查询
- 一个C++连接sql的简单实例