VB 读写 MySql_vb 读写mysql

        使用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