zoukankan      html  css  js  c++  java
  • VB6 连接MySql数据库

    目测 VB6 的资料比较少了,花了好久时间写了个查询语句

    首先下载驱动程序,我是win7 x64 不知道刚开始下载了一个5.1 x64的驱动为什么连接不上,总提示找不到驱动,下载5.3 32位后正常

    http://dev.mysql.com/downloads/connector/odbc/

    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
    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
  • 相关阅读:
    DI的3种实现方式
    spring ioc的实现方式
    异常:This application has no explicit mapping for /error, so you are seeing this as a fallback.
    maven项目 集成SSM框架
    org.xml.sax.SAXParseException错误
    Redis在web中的应用
    上传下载文件实例(vsftp服务器+nginx)
    Redis的安装与启动
    修饰器-2
    修饰器练习
  • 原文地址:https://www.cnblogs.com/AppleDeveloper/p/4593385.html
Copyright © 2011-2022 走看看