请问：vb如何访问mysql

Question

请问：vb如何访问mysql 
我查了下，说是要安装mysql-connector-odbc-5.1.5-win32.msi 我写的程序是在未知人的机器上运行的。那他不安装这个ODBC。我的程序是不是就不能跑啊。 
如果可以的话，应该怎么做呢。 再有我安装完他之后。我在vb里如何引用他的方法，是引用dll吗。我怎么没找到他的dll在那个路径下。

Answer 1

做安装程序时，把mysql-connector-odbc-5.1.5-win32.msi打包进来。 

Answer 2

联mysql我通常用odbc，感觉方便一些.

Answer 3

VB 那边写好连接MYSQL的代码就好了.MYSQL在自己机器上安装.这样一来程序就可以跑起来了.我们公司就是用VB+MYSQL的.

Answer 4

可以用mysql的libmysql.dll。
http://download.csdn.net/source/325189

Answer 5

我做个一个vb+mysql的应用，用的是libmysql.dll，效果很好的。不用安装驱动，只用像标准dll文件一样将该dll文件打包安装到运行程序的目录下。问题是上面下载的例子中的libmysql.dll是老版的，不能用新版的密码。试过用新版本的libmysql.dll，但没有成功。

Answer 6

放弃libmysql了。我用odbc把。现在有个小问题。代码是这样的：
Option ExplicitPublic Function getConnection() As ADODB.Connection
    Dim cn As New ADODB.Connection
    Dim strCn As String
    
    Dim db_host As String
    Dim db_user As String
    Dim db_pass As String
    Dim db_data As String
    
    db_host = "localhost"
    db_user = "root"
    db_pass = "root"
    db_data = "board"
    
    
    strCn = "DRIVER={MySQL ODBC 5.1 Driver};" & _
        "SERVER=" & db_host & ";" & _
        "DATABASE=" & db_data & ";" & _
        "UID=" & db_user & ";PWD=" & db_pass & ";" & _
        "OPTION=3;stmt=SET NAMES GB2312"
    getConnection = cn
End Function我在调用这个方法获得返回值的时候出现错误
getConnection = cn是从一个模块里进行调用的    Function setSetting()
    
        DiskInfo = GetHardDiskInfo        Dim db As New ManagerDB
        Dim con As ADODB.Connection
        
        con = db.getConnection -->出错。
            
        cn.Open strCn
        
        cn.CursorLocation = adUseClient
        
        SQL = "select * from board"
        rs.Open SQL, cn
        
        MsgBox rs.RecordCount
    End Function提示错误 对象变量或with块未设置

Answer 7

// con = db.getConnection -->出错。set con = db.getConnection 

Answer 8

set 也不行呀。是变量生存周期的问题吗？
vb真麻烦啊。

Answer 9

Public Function getConnection() As ADODB.Connection 
    ...
    cn.CursorLocation = adUseClient 
    cn.Open strCn
    Set getConnection = cn 
End Function Function setSetting() 
    ...
    Set con = db.getConnection
    '删除 cn.Open strCn'
    '删除 cn.CursorLocation = adUseClient'
    Set rs = cn.Execute("select * from board")       
    MsgBox rs.RecordCount 
End Function 

Answer 10

vb访问mysql效果如何？是否要比ACCESS好一些呢？