VB数据访问通用模块(Access & SQL SERVER)
来源:互联网 发布:上药控股 知乎 编辑:程序博客网 时间:2024/05/20 20:44
'工程-引用 Microsoft ActiveX Data Objects 2.8 Library
'DataModule 模块
Function GetAccessConn(ByVal FilePath As String) As ADODB.Connection 'Access DB Connection
Dim conn As New ADODB.Connection
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & FilePath
Set GetAccessConn = conn
End Function
Function GetSQLServerConn(ByVal DBName, Server, UserID, Password As String) As ADODB.Connection 'SQL Server DB Connection
Dim conn As New ADODB.Connection
conn.Open "Driver={SQL Server};DataBase=" & DBName & ";Server=" & Server & ";UID=" & UserID & ";PWD=" & Password
Set GetSQLServerConn = conn
End Function
Function GetRecordSet(ByVal SQL As String, ByRef DBConn As ADODB.Connection) As ADODB.Recordset
Dim rs As New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open SQL, DBConn, adOpenDynamic, adLockOptimistic
Set GetRecordSet = rs
End Function
Sub ExecuteSQL(ByVal SQL As String, ByRef DBConn As ADODB.Connection)
DBConn.exeCute (SQL)
End Sub
'DataModule 模块
Function GetAccessConn(ByVal FilePath As String) As ADODB.Connection 'Access DB Connection
Dim conn As New ADODB.Connection
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & FilePath
Set GetAccessConn = conn
End Function
Function GetSQLServerConn(ByVal DBName, Server, UserID, Password As String) As ADODB.Connection 'SQL Server DB Connection
Dim conn As New ADODB.Connection
conn.Open "Driver={SQL Server};DataBase=" & DBName & ";Server=" & Server & ";UID=" & UserID & ";PWD=" & Password
Set GetSQLServerConn = conn
End Function
Function GetRecordSet(ByVal SQL As String, ByRef DBConn As ADODB.Connection) As ADODB.Recordset
Dim rs As New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open SQL, DBConn, adOpenDynamic, adLockOptimistic
Set GetRecordSet = rs
End Function
Sub ExecuteSQL(ByVal SQL As String, ByRef DBConn As ADODB.Connection)
DBConn.exeCute (SQL)
End Sub
'调用示例
Private Sub Command1_Click() 'Access
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = DataModule.GetAccessConn("C:aa.mdb")
Set rs = DataModule.GetRecordSet("select top 10 * from [user]", conn)
Set DataGrid1.DataSource = rs
End Sub
Private Sub Command2_Click()'SQL SERVER
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = DataModule.GetSQLServerConn("pubs", "(local)", "sa", "123")
Set rs = DataModule.GetRecordSet("select top 10 * from authors", conn)
Set DataGrid1.DataSource = rs
End Sub
Private Sub Command1_Click() 'Access
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = DataModule.GetAccessConn("C:aa.mdb")
Set rs = DataModule.GetRecordSet("select top 10 * from [user]", conn)
Set DataGrid1.DataSource = rs
End Sub
Private Sub Command2_Click()'SQL SERVER
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = DataModule.GetSQLServerConn("pubs", "(local)", "sa", "123")
Set rs = DataModule.GetRecordSet("select top 10 * from authors", conn)
Set DataGrid1.DataSource = rs
End Sub
- VB数据访问通用模块(Access & SQL SERVER)
- 将ACCESS数据库数据转到SQL server数据库中(通用)
- Access 通用数据访问类
- SQL Server中编写通用数据访问方法
- Access传递查询访问Sql Server数据方法简介
- 通用Access字段数据获取模块
- 通用Access字段数据获取模块
- 通用数据访问层--Access版
- asp.netc#Access通用数据访问类
- 【转】通用数据访问层--Access版
- [VB]SqlHelper|DBHelper数据通用访问类 for VB
- VB.NET操作SQL Server完全模块
- VB.NET操作SQL Server完全模块
- VB访问ACCESS中的特定数据或者随机访问
- VB访问SQL Server数据库技术全揭秘
- VB访问SQL Server数据库技术全揭密
- 用VB访问SQL Server数据库技术详解
- VB访问SQL Server数据库技术全揭密
- [C#]数据库操作封装类
- bea weblogic workflow worklist 介绍(5)
- 北京司机的经典语录
- 在 Visual Studio 中创建主/详细信息网页
- Const 相关总结
- VB数据访问通用模块(Access & SQL SERVER)
- cobol 中call的功能测试总结
- 什么是DHTML
- cobol 中call的功能测试总结
- 动态链接库
- whatever
- 让杂牌 USB 蓝牙适配器自动安装驱动的办法
- Visual Studio中编辑MFC 资源时fatal error RC1107
- [C#]JavaScript操作封装类