用ODBC！
创新互联是一家朝气蓬勃的网站建设公司。公司专注于为企业提供信息化建设解决方案。从事网站开发，网站制作，网站设计，网站模板，微信公众号开发，软件开发，微信小程序，十载建站对成都边坡防护网等多个领域，拥有丰富的营销推广经验。
先到下载mysql 的 odbc驱动，装上以后 ，再配置数据源，再在vb里面编程连接！
必须安装mysql的驱动才行，不管是vb还是c++都需要这个驱动。
代码如下：
public
function
exemysql(byval
sql
as
string)
as
adodb.recordset
sql
=
trim$(sql)
set
conn
=
new
adodb.connection
set
rs
=
new
adodb.recordset
conn.open
"driver=mysql
odbc
3.51
driver;"
_
"server=服务器地址;"
_
"port=3306;"
_
"database=数据库名;"
_
"uid=用户名;"
_
"pwd=密码"
conn.defaultdatabase
=
"数据库名"
conn.cursorlocation
=
aduseclient
set
rs.activeconnection
=
conn
rs.locktype
=
adlockbatchoptimistic
rs.cursortype
=
adopenkeyset
rs.open
sql
set
exesql
=
rs
set
rs
=
nothing
set
conn
=
nothing
end
function
楼上讲的是VB2005的连接方法，不知道你用的是什么版本的VB,我给你一个VB6.0的连接方法吧
先在本机上安装最新的ODBC CONNECTER/mysql
无需设置ODBC,就可以使用.
注意MYSQL的帐户登录是根据主机的,设置好MYSQL的帐户后再做测试.
测试代码:
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim fld As ADODB.Field
Dim sql As String
'connect to MySQL server using MySQL ODBC 3.51 Driver
Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
"SERVER=192.168.0.1;" _
" DATABASE=db_name;" _
"UID=username;PWD=password; OPTION=3"
conn.Open
'create table
conn.Execute "DROP TABLE IF EXISTS my_ado"
conn.Execute "CREATE TABLE my_ado(id int not null primary key, name varchar(20)," _
"txt text, dt date, tm time, ts timestamp)"
'direct insert
conn.Execute "INSERT INTO my_ado(id,name,txt) values(1,100,'venu')"
conn.Execute "INSERT INTO my_ado(id,name,txt) values(2,200,'MySQL')"
conn.Execute "INSERT INTO my_ado(id,name,txt) values(3,300,'Delete')"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
'fetch the initial table ..
rs.Open "SELECT * FROM my_ado", conn
Debug.Print rs.RecordCount
rs.MoveFirst
Debug.Print String(50, "-") "Initial my_ado Result Set " String(50, "-")
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.Close
方法/步骤
1
登录到phpMyAdmin
2
新建一个要导入的数据库，点击“+new”
3
如图，分别填写数据库名称，以及选择数据库的排序规则，
4
完成步骤3，点击“创建”
5
完成步骤4，从右侧就可以看到我们新创建的数据库了，如果没有立即显示，刷新即可立马显示了。
6
单击我们新创建的数据库，
7
然后，我们选择“导入”，
8
完成步骤7，我们点击“选择文件”，
9
点击了“选择文件”之后，就会出现如图所示的弹出框，我们选择要导入的sql就可以了，后缀名可以是.sql，也可以是压缩文件.zip。如图，选择好文件之后，点击“确定”就可以了
10
完成步骤⑨，你就可以从刚才的页面中看到自己上传的文件了，如图所示，其余选项默认就可以了，然后点击“执行”就可以了。
11
这个时候，你就可以看到你的数据已经导入到你新创建的数据库中了
最简单的办法是：在VB里添加一个ADO部件，将其放到窗体中，然后右键选择属性，在其属性页的下面有个生成连接字符串的项，点击其后的按钮，然后一步步的来做（很简单的），然后连接字符串就会在那里生成，只要拷贝这个字符串，就可以用ADODB来连接了。。。
ODBC加载.
vb中添加一个Adodc的控件.
Public Function conn() As String
conn = "Provider=SQLOLEDB.1;Password=数据库管理密码;Persist Security Info=True;User ID=数据库管理帐号;Initial Catalog=数据库名;Data Source=计算机名"
End Function
Dim rs As New ADODB.Recordset
Dim con As New ADODB.Connection
Dim sql As String
Set con = CreateObject("ADODB.Connection")
con.Open conn
sql = "select * from Admin where username='" username.Text "' and password='" password.Text "'"
rs.Open sql, con, 1, 1
重庆分公司
重庆分公司
