VBA连接mysql数据库 代码示例
来源:互联网 发布:mac mysql 命令行登录 编辑:程序博客网 时间:2024/05/16 14:22
数据库信息的设置:将数据库设置分为几个模块。
①DB配置(config)
服务器:servervip
数据库信息:database
用户名:user
密码:pqssword
②连接语句strConn
strConn = "Driver={MySQL ODBC 5.2 Unicode Driver};" & "Server=ip;" & "database=database;" & "USER=user;" & "PASSWORD=password;" & "OPTION=3;"
其中option指的是
'DB信息
Public Db_sevip, Db_name, Db_user, Db_pwd As String '设置具体数据库Public db_connection As ADODB.Connection '定义数据库连接
Public Records As ADODB.Recordset '定义数据记录集对象
Private Sub set_db_config() '数据库的具体设置
Db_sevip = "ip"
Db_name = "database"
Db_user = "user"
Db_pwd = "password"
Debug.Print Db_sevip
End Sub
Public Sub open_mysql_db() '打开sql数据源 设置连接方式
Call set_db_config '调用数据源的配置
Dim strConn As String
strConn = "Driver={MySQL ODBC 5.2 Unicode Driver};" & "Server=ip;" & "database=database;" & "USER=user;" & "PASSWORD=password;" & "OPTION=3;"
Debug.Print strConn
Set db_connection = New ADODB.Connection
db_connection.Open (strConn)
End Sub
Public Sub close_db()
If db_connection.State = 1 Then
db_connection.Close
Set Conn = Nothing
End If
End Sub
Public Function read_sql_count(sql As String) As Integer
Set Records = CreateObject("ADODB.recordset")
Records.CursorType = adOpenStatic '设置游标类型,否则无法获得行数
Records.CursorLocation = adUseClient '设置游标属性,否则无法获得行数
Records.Open sql, db_connection
Debug.Print Records.RecordCount
read_sql_count = Records.RecordCount
End Function
Public Sub excute_Sql(sqlStr As String)
Dim strConn As String, strSQL As String
On Error GoTo Err
db_connection.CommandTimeout = 10
db_connection.Execute sqlStr
Exit Sub
Err:
MsgBox "sql 执行出错" + Chr(10) + sqlStr
End Sub
- VBA连接mysql数据库 代码示例
- VBA 连接MySQL数据库
- windows vs2013连接数据库mysql示例代码
- Java连接MYSQL数据库的示例代码
- Excel VBA 连接数据库代码
- excel vba 连接mysql数据库
- VBA连接mysql本地数据库
- 连接mysql数据库示例
- 连接Oracle数据库示例代码
- java连接mysql示例代码
- Java连接mysql示例代码
- MySql连接数据库简单示例
- JDBC连接MYSQL数据库示例
- VBA连接数据库
- VBA 连接数据库
- Excel VBA 连接数据库
- 关于VBA Excel开发中连接MySQL数据库的问题
- VBA连接MYSQL数据库(转载有修改)
- zImage文件提取及逆向分析
- Selenium2测试—Selenium+Testng测试环境搭建
- 微信自定义菜单view类型获取openid访问网页
- 豆浆机改装记(1): Android BLE框架
- UILabel,文字添加下划线,中划线
- VBA连接mysql数据库 代码示例
- HIVE分析窗口函数: LAG,LEAD,FIRST_VALUE,LAST_VALUE
- Restful API
- webrtc随笔-apprtc服务器
- iOS中几种数据持久化方案
- 在linux下编译遇到 __GNUC_PREREQ 编译错误的解决方法
- 【整理】常见错误整理
- UILabel,文字添加下划线,中划线
- raspberry pi怎样输出I2S音频