VB 读写 MySql

最新推荐文章于 2023-11-01 12:00:49 发布

VIP文章时间的阿司匹林

最新推荐文章于 2023-11-01 12:00:49 发布

阅读量1.2k

点赞数

分类专栏： VB mysql 文章标签： vb mysql

本文链接：https://blog.csdn.net/sjjerry/article/details/38538295

版权

使用VB读写Mysql，应用了简单的数据读取与写入，从指定工业位号读写数据

Private Sub read_mysql()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim i, j As Integer

' 定义数据库连接字符串变量
Dim strCn As String
 
' 定义数据库连接参数变量
Dim db_host As String
Dim db_user As String
Dim db_pass As String
Dim db_data As String
 
' 定义 SQL 语句变量
Dim sql As String
 
'定义sql中间值与位号
Dim mysql_string As String
Dim codename(1 To 90) As String
 
codename(1) = "ETU2_runstate"   
 
 
' 初始化数据库连接变量
db_host = "localhost"
db_user = "root"
db_pass = "root"
db_data = "mysql"
 
' MySQL ODBC 连接参数
'+------------+---------------------+----------------------------------+
'| 参数名 | 默认值 | 说明 |
'+------------+------------------------------------------------------–+
'| user | ODBC (on Windows) | MySQL 用户名 |
'| server | localhost | My