VBA Mysql 类
Option Explicit
'==================================== 声明属性 =================================
Private Con As ADODB.Connection
' ====================================声明事件===================================
'==================================== 初始化 类 ===================================
Private Sub Class_Initialize()
Set Con = New ADODB.Connection
Con.CursorLocation = adUseClient '设置此项才可获取 recordset.RecordCount
Con.ConnectionString = "Driver={MySQL ODBC 5.2 ANSI Driver};" + _
"Server=sc;" + _
"DB=oa;" + _
"UID=UID;" + _
"PWD=PWD;" + _
"OPTION=3;" + _
"Stmt=Set Names 'UTF-8';"
End Sub
'=================================== 以“属性”的形式对 私有变量 读取、赋值 ====================================
'=================================== 公有方法 ====================================
'关闭连接
Public Sub closeConnection()
Con.Close
Set Con = Nothing
End Sub
'检测是否连接成功
Public Sub checkConnection()
Con.Open
If Con.State = adStateOpen Then
MsgBox "链接状态:" & Con.State & vbCrLf & "ADO版本:" & Con.Version, vbInformation, ""
End If
closeConnection '关闭连接
End Sub
'将查询得到的记录显示到指定 单元格
Public Sub recordToCell(sqlStr As String, wBook, wSheet, firstCell As String)
Dim thisRec As ADODB.Recordset
'查询记录
Set thisRec = selectRecord(sqlStr)
'写入到指定 单元格
Workbooks(wBook).Sheets(wSheet).Range(firstCell).CopyFromRecordset thisRec
closeConnection '关闭连接
End Sub
'============= 数据库 “插、查、改、删” ==============
'“删除”用“更改”[标记删除]实现)
'①“插入”一条记录(返回值:1成功,-1已有相同值,0失败)
'db 数据库名
'fieldArray 字段名 数组
'valueArray 字段值 数组
'checkField 用于检查是否已有相同记录的 字段名(field1,field2,……)
Public Function inertRecord(db As String, fieldArray, valueArray, checkField As String) As Integer
'检查是否已有相应记录
Dim insertRow As Integer
Dim rec As ADODB.Recordset
Dim checkFV, fieldValue, insertSql As String
' MsgBox TypeName(fieldArray)
checkFV = Join(fieldAndValue(fieldArray, valueArray, checkField), " AND ")
fieldValue = Join(fieldAndValue(fieldArray, valueArray), ",")
Set rec = selectRecord(db, "id", checkFV)
If rec.RecordCount < 1 Then
insertSql = "INSERT INTO `" & db & "` SET " & fieldValue
Con.Execute insertSql, insertRow, adCmdText
inertRecord = IIf(insertRow = 1, 1, 0)
Else
inertRecord = -1
End If
Set rec = Nothing
End Function
'②按条件“查询”记录(返回值:ADODB.Recordset对象)
'db 数据库名
'fields 要查询的字段名(field1,field2,……)
'where 查询条件(`field1`='value1' AND|OR `field2`='value2' AND|OR ……)
'sortFields 排序工序(field1,field2[DESC],……)
'limit 要查询的记录数(100 或 20,100)
Public Function selectRecord(db As String, Optional fields = "*", _
Optional where = "", Optional sortFields = "", Optional limit = "") As ADODB.Recordset
Dim sqlStr As String
sqlStr = "SELECT " & fields & " FROM `" & db & "`"
If where <> "" Then sqlStr = sqlStr & " WHERE " & where
If sortFields <> "" Then sqlStr = sqlStr & " ORDER BY '" & sortFields & "'"
If limit <> "" Then sqlStr = sqlStr & " LIMIT " & limit
' MsgBox sqlStr
Set selectRecord = allSql(sqlStr) '总查询 (执行sql语句方法)
End Function
'③“更改”符合指定条件的记录的指定字段(返回受影响的行数)
'db 数据库名
'fieldArray 字段名 数组
'valueArray 字段值 数组
'where 条件(`field1`='value1' AND|OR `field2`='value2' AND|OR ……)
Public Function updateRecord(db As String, fieldArray, valueArray, where As String) As Integer
Dim updateRows As Integer
Dim updateSql, fieldValue As String
fieldValue = Join(fieldAndValue(fieldArray, valueArray), ",")
If fieldValue <> "" Then
updateSql = "UPDATE `" & db & "` SET " & fieldValue & " WHERE " & where
Con.Open
Con.Execute updateSql, updateRows, adCmdText
updateRecord = IIf(updateRows <> 0, updateRows, 0)
End If
End Function
'总查询 (执行sql语句方法)
Public Function allSql(sqlStr) As ADODB.Recordset
Dim iRowscount As Long
Con.Open
Set allSql = Con.Execute(sqlStr, iRowscount, adCmdText)
End Function
'=================================== 私有方法 ====================================
'将 fieldArray、valueArray 连接成 `field`='value'(Array)并返回 “数组”
'(若 onlyField 不为空,则只连接包含其内元素的 field)
Private Function fieldAndValue(fieldArray, valueArray, Optional onlyField = "")
Dim i, s As Integer
Dim fj_onlyField(), fvArray()
' MsgBox fieldArray(0)
For i = 0 To UBound(fieldArray)
If fieldArray(i) <> "" Then
If onlyField = "" Then
ReDim Preserve fvArray(i)
fvArray(i) = "`" & fieldArray(i) & "`='" & valueArray(i) & "'"
Else
If InStr(onlyField, ",") > 0 Then
fj_onlyField = Split(onlyField, ",")
If checkArrayValue(fj_onlyField, fieldArray(i)) = True Then
ReDim Preserve fvArray(s)
fvArray(s) = "`" & fieldArray(i) & "`='" & valueArray(i) & "'"
s = s + 1
End If
Else
If onlyField = fieldArray(i) Then
ReDim Preserve fvArray(0)
fvArray(0) = "`" & fieldArray(i) & "`='" & valueArray(i) & "'"
Exit For
End If
End If
End If
End If
Next i
fieldAndValue = fvArray
End Function
'检测数组中是否包含有=指定值的元素
Private Function checkArrayValue(arr, theValue) As Boolean
Dim i As Integer
checkArrayValue = False
For i = 0 To UBound(arr)
If arr(i) = theValue Then
checkArrayValue = True
Exit For
End If
Next i
End Function
'将 html实体 转换成正常字符(可用)
Private Function htmlDecodes(str As String) As String
If str = "" Then
htmlDecodes = ""
Else
str = Replace(str, "<", "<")
str = Replace(str, ">", ">")
str = Replace(str, "&", "&")
str = Replace(str, """, Chr(34))
str = Replace(str, ">", Chr(39))
htmlDecodes = str
End If
End Function
转载于:https://www.cnblogs.com/ssfie/p/3801057.html
VBA Mysql 类相关推荐
- php 编写mysql,自己写的MySQL类
自己写的MySQL类 ---------- php debug ---------- Server=localhost;DataBase=mysql;UserID=root;PassWord=1234 ...
- php mysql 单例模式_PHP基于单例模式实现的mysql类
本文实例讲述了PHP基于单例模式实现的mysql类.分享给大家供大家参考,具体如下:<?php defined('ACC')||exit('Access Denied'); // 封装mysql ...
- mvc模型中MySQL类_Mvc5 EF6 CodeFirst Mysql (二) 修改数据模型
1.开发环境中修改模型,在DbContext中加入静态构造函数,并设置初始化模式: staticDemoDbContext() { Database.SetInitializer(new DropCr ...
- mysql类exadata功能_几类关系型数据库的数据解决方案
今天聊下几类关系型数据库的数据解决方案,算是抛砖引玉,近期也要对技术方向上做一些扩展,也算是前期的小结吧. 1 3 Oracle 目前市面上的主流版本应该还是11gR2,记得很多年前有个网站做过一次调 ...
- python mysql类里_Python MySql 操作类
# -*- coding:utf-8 -*- import MySQLdb import time ''' · MySQL 操作类 · V1.0 ''' class MySQLClass(object ...
- vba 定义类_VBA|自定义类型、枚举类型和类模块及其使用
VBA中,自定义类型相当于C语言中的结构体,枚举类型也与C语言中的枚举类型相似.自定义类型和枚举类型放到模块的子过程的前面即可. VBA中, 类模块相当于C语言中的类,类模板要单独放到类模块中(自定义 ...
- vba mysql odbc_使用VBA+ODBC+MySQL实现Excel网络版
本文主要涉及:安装MySQL VBA中链接MySQL设置 其他电脑使用VBA链接MySQL 系统环境: 主服务器:Windows 10 64bit offset 365 64bit MySQL Com ...
- PHP Mysql类【转】
前几天没事在网上转发现了一个类,记录下来: <?php Class DB {private $link_id;private $handle;private $is_log;private $t ...
- thinkphp mysql类_PHP封装类似thinkphp连贯操作数据库的Db类(简单版)
为了方便操作Mysql数据库, 封装类似thinkphp连贯操作数据库的Db类<?php header("Content-Type:text/html;charset=utf-8&qu ...
最新文章
- 入门 | 无人驾驶汽车系统基本框架梳理
- 美国字节程序员吐槽:国内同事太卷了!工资买不起房,卷的意义是什么?
- WinForm下ComboBox获取绑定对象集的SelectedValue补充
- 天籁obd接口针脚定义_OBD协议介绍
- FC3服务器配置一条龙
- Linux 关于Transparent Hugepages的介绍
- Disable Auto Detect Keyboard Layout in Win10
- ezcad旋转轴标刻参数_激光打标机软件ezcad中的曲线圆弧排文本参数说明及设置...
- linux shell中各种分号和括号,Linux Shell中各种分号和括号#的用法总结
- 一个div实现太极图案+动画(简单易懂)
- matlab中plot函数画线时 颜色和类型
- 微型计算机控制数字量输入输出,[工学]WX_微型计算机控制技术_第二章5.ppt
- 从哪里查看计算机日期格式,进记账宝,提示下图,检查了计算机日期格式为‘-’,换台电脑也是不行,是哪里原因...
- show warnings 查看警告
- appid 登录不上appstore
- unity-材质球受击变色管理
- HDU - 6333 Harvest of Apples (莫队)
- yzh第十五课 异常处理
- 智能物联变革未来,亚马逊云科技智能物联创新日来袭
- 2022年京东双11红包领取活动时间什么时候开始怎么领取京东双11红包?