有VB连接MYSQL的例子么。不用ADO>ODBC的，好像是那个libmysql.dll

[小噤]

一直使用安装ODBC的方法来连接数据库。感觉不太友好。
网上了找了好久。没有找到有用例子
望哪位可以分享一下连接mysql的例子

[脆皮大雪糕]

直接用ADO连接，用连接字符串。用ADO控件可以用引导界面生成连接字符串，上百度搜搜就有

[小噤]

引用 1 楼 chewinggum 的回复:

直接用ADO连接，用连接字符串。用ADO控件可以用引导界面生成连接字符串，上百度搜搜就有

就是想不用ADO喽.不想安装ODBC驱动.

[小噤]

引用 3 楼 ayalicer 的回复:

就当mssql 一样连 改一下连接串就好 不过还是要按照对应 odbc 驱动先 比如连接本地 账号root 密码pass 数据库 testdb connstr="DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;DATABASE=testdb;UID=root;PWD=pass;" conn.open connstr

嗯.ADO+ODBC.是可以. 主要是想了解一下调用DLL的方式.不通过ODBC

[小噤]

引用 2 楼 Chen8013 的回复:

数据库方面的，我围观一下。

又见大师. 估计我这新手还是搞不定. DLL返回的记录集是"指针"啥的.搞不定.正常的插入,更新.删除.都可以执行 我放弃了.有基础了再回来研究....

Option Explicit
'以下例子通过.只是取记录集...目前没那个水准....日后再研究....
Private Declare Function mysql_server_init Lib "libmysql.dll" (ByVal arg1 As Long, ByVal arg2 As Long, ByVal arg3 As Long) As Long
Private Declare Function mysql_server_end Lib "libmysql.dll" () As Long

Private Declare Function mysql_init Lib "libmysql.dll" (ByVal arg1 As Long) As Long
Private Declare Function mysql_close Lib "libmysql.dll" (ByVal arg1 As Long) As Long

Private Declare Function mysql_real_connect Lib "libmysql.dll" (ByVal arg1 As Long, ByVal arg2 As String, ByVal arg3 As String, ByVal arg4 As String, ByVal arg5 As String, ByVal arg6 As Long, ByVal arg7 As Long, ByVal arg8 As Long) As Long
Private Declare Function mysql_query Lib "libmysql.dll" (ByVal arg1 As Long, ByVal arg2 As String) As Long

Private Sub Form_Load()
    Dim MySql&
    mysql_server_init 0, 0, 0
    MySql = mysql_init(0)
    
    Debug.Print mysql_real_connect(MySql, ("IP地址"), ("账号"), ("密码"), ("数据库名"), 端口号, 0, 0) '连接到MySQL服务器。
    Debug.Print mysql_query(MySql, "这里输入sql语句")
    
    mysql_close MySql
    mysql_server_end
    End
End Sub

[砸死牛顿的苹果]

就当mssql 一样连 改一下连接串就好 不过还是要按照对应 odbc 驱动先 比如连接本地 账号root 密码pass 数据库 testdb connstr="DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;DATABASE=testdb;UID=root;PWD=pass;" conn.open connstr

[赵4老师]

http://bbs.csdn.net/topics/392143402

[舉杯邀明月]

数据库方面的，我围观一下。