VB怎么连接mysql

用ODBC！

创新互联是一家朝气蓬勃的网站建设公司。公司专注于为企业提供信息化建设解决方案。从事网站开发，网站制作，网站设计，网站模板，微信公众号开发，软件开发，微信小程序，十载建站对成都边坡防护网等多个领域，拥有丰富的营销推广经验。

先到下载mysql 的 odbc驱动，装上以后 ，再配置数据源，再在vb里面编程连接！

vb高手进，vb连接mysql数据库，怎么把数据写入数据库！

必须安装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

在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=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

怎么导入mysql数据

方法/步骤

1

登录到phpMyAdmin

2

新建一个要导入的数据库，点击“+new”

3

如图，分别填写数据库名称，以及选择数据库的排序规则，

4

完成步骤3，点击“创建”

5

完成步骤4，从右侧就可以看到我们新创建的数据库了，如果没有立即显示，刷新即可立马显示了。

6

单击我们新创建的数据库，

7

然后，我们选择“导入”，

8

完成步骤7，我们点击“选择文件”，

9

点击了“选择文件”之后，就会出现如图所示的弹出框，我们选择要导入的sql就可以了，后缀名可以是.sql，也可以是压缩文件.zip。如图，选择好文件之后，点击“确定”就可以了

10

完成步骤⑨，你就可以从刚才的页面中看到自己上传的文件了，如图所示，其余选项默认就可以了，然后点击“执行”就可以了。

11

这个时候，你就可以看到你的数据已经导入到你新创建的数据库中了

vb6.0如何连接MYSQL数据库？

最简单的办法是：在VB里添加一个ADO部件，将其放到窗体中，然后右键选择属性，在其属性页的下面有个生成连接字符串的项，点击其后的按钮，然后一步步的来做（很简单的），然后连接字符串就会在那里生成，只要拷贝这个字符串，就可以用ADODB来连接了。。。

vb连接mysql数据库

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

标题名称：linux权限区分命令,linux常用权限命令
转载源于：http://scgulin.cn/article/heojcc.html