首页 / MYSQL / VB6 连接MySql数据库

VB6 连接MySql数据库

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了VB6 连接MySql数据库，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1270字，纯文字阅读大概需要2分钟。

内容图文

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 Dim cmd As New ADODB.Command ‘ 定义 SQL 语句变量 Dim sql As String ‘ 初始化数据库连接变量 db_host = "127.0.0.1" db_user = "root" db_pass = "" db_data = "family" strCn = "DRIVER={MySQL ODBC 5.3 Unicode Driver};" & _ "SERVER=" & db_host & ";" & _ "DATABASE=" & db_data & ";" & _ "UID=" & db_user & ";PWD=" & db_pass & ";" & _ "OPTION=3;stmt=SET NAMES UTF8" ‘ 连接数据库 ‘cn.Open strCn ‘ 设置该属性, 使 recordcount 和 absolutepage 属性可用 ‘cn.CursorLocation = adUseClient ‘rs.Open "tb_sys_emp", cn, adOpenKeyset, adLockOptimistic ‘rs.MoveFirst ‘Do While rs.EOF = False ‘ Debug.Print rs.Fields("emp_name") ‘ rs.MoveNext ‘Loop ‘rs.Close cn.Open strCn Set cmd.ActiveConnection = cn cmd.CommandText = "select emp_name from tb_sys_emp" cmd.CommandType = adCmdText cmd.CommandTimeout = 15 Set rs = cmd.Execute rs.MoveFirst Do While rs.EOF = False Debug.Print rs.Fields("emp_name") rs.MoveNext Loop rs.Close Debug.Print list.Count

 

VB6 连接MySql数据库

标签：

本文系统来源：http://www.cnblogs.com/AppleDeveloper/p/4593385.html

内容总结

以上是互联网集市为您收集整理的VB6 连接MySql数据库全部内容，希望文章能够帮你解决VB6 连接MySql数据库所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/449992.html

来源：【匿名】