vb6 链接MySLQ 数据库过程记录

1必须安装mysql 驱动  vb6 是32位  所以必须到mysql 网站下载32位ODBC 驱动

2vb6必须添加引用 见代码

3总结  主要是版本一定去下载32位mysql  ODBC 驱动来安装

Private Sub Command1_Click()
'‘需要添加ado'菜单"工程"->"引用" 找 Microsoft ActiveX Data Object....

' 定义并创建数据库连接和访问对象
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
' 定义数据库连接字符串变量
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
' 初始化数据库连接变量
db_host = "127.0.0.1"   '数据库的电脑名称 或者ip地址 localhost 或者 127.0.0.1 代表本机
db_user = "root"
db_pass = "123456"
db_data = "huweisjk"
strCn = "DRIVER={MySQL ODBC 8.0 Unicode Driver};" & _
         "SERVER=" & db_host & ";" & _
         "DATABASE=" & db_data & ";" & _
         "UID=" & db_user & ";PWD=" & db_pass & ";" & _
         "OPTION=3;stmt=SET NAMES GB2312"
' stmt=SET NAMES GB2312 这句是设置数据库编码方式 中文操作系统需要设置成 GB2312这样中文才不会有问题版本要求 mysql 4.1+
' 连接数据库
cn.Open strCn
' 设置该属性, 使 recordcount 和 absolutepage 属性可用
cn.CursorLocation = adUseClient
' 访问表 MyClass 表
sql = "select * from MyClass"
rs.Open sql, cn
MsgBox rs.RecordCount '显示查询条数


'在VB调试立即窗口显示数据
 rs.MoveFirst
For Each fld In rs.Fields
  Debug.Print fld.Name,  '列标题
 Next
 Debug.Print
 
 Do Until rs.EOF
   For Each fld In rs.Fields
 Debug.Print fld.Value,
Next
rs.MoveNext
Debug.Print
Loop
rs.Close

'  常用语句
' 创建数据库 conn.Execute "create database huweisjk"
' 删除数据库  conn.Execute "drop database huweisj"
' 进入数据库  conn.Execute "huweisjk"
'创建表 ;
'  conn.Execute "create table MyClass(id int(4) not null primary key auto_increment,name char(20) not null,sex int(4) not null default '0',degree double(16,2))"
' 插入数据 conn.Execute "insert into MyClass values(1,'Tom',20,96.45)"


End Sub