在VB中，如何连接MYSQL

楼上讲的是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=usernamePWD=passwordOPTION=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

ServerIP

=

SQL的服务器IP

也可以是

服务器的名称

DB_PWD

=

"sa"

DB_User

=

"sa"

DB_Name

=

SQL数据库表名

SqlStr

=

"Provider

=

SQLOLEDB.1Password

="

&

DB_PWD

&

"Persist

Security

Info

=

TrueUser

ID

="

&

DB_User

&

"Initial

Catalog="

&

DB_Name

&

"Data

Source="

&

ServerIP

Public

DBCnn

As

New

ADODB.Connection

DBCnn.Open

SqlStr

DBCnn就可以做连接字符串了

---