mysql怎么用vb连接 vb和mysql如何连接

如何用VB连接远程的mysql数据库

1、显示密码

创新互联专注于雁山企业网站建设,响应式网站,商城网站建设。雁山网站建设公司,为雁山等地区提供建站服务。全流程按需设计，专业设计，全程项目跟踪，创新互联专业和态度为您提供的服务

如：MySQL

连接远程数据库（192.168.5.116），端口“3306”，用户名为“root”，密码“123456”

C:/mysql -h

192.168.5.116 -P 3306 -u root -p123456

2、隐藏密码

如：MySQL 连接本地数据库，用户名为“root”

C:/mysql -h

localhost -u root -p

Enter password:

如何使vb与mysql连接，并且在其他电脑上不用安装和设置odbc

首先得建立odbc数据源！步骤如下：

1.

在资源管理器或者

我的电脑中，进入到控制面板-管理工具，可以看到“数据库odbc项”。

2.

双击“数据源（odbc）”项，进入到数据源的配置。

3.

要想创建一个指定的数据库，点“添加按钮”，将出现数据源类型选择对话框，

在这一部中，你一定要写明连接的是sql

server

还是aceess。

4.点完成，进入到建立不同数据源的配置项或配置向导，注意，不同的数据库，配置界面有所不同。我介绍的是sql

，首先要输入数据源的名称，描述信息和指定服务器

5.

下一部，进入到sql连接的安全验证，可以选择以windows

nt验证方式或者sql登陆的方式。

6.再点击下一部，安全通过后，进行sql数据库的连接。

7.

继续进行下一部操作，进行一些系统消息语言，日志等配置，一般保持为默认方式。

8.点完成按钮，将提示一些总结信息，并可以执行数据与数据库的连接测试。

这是建立odbc数据源的步骤，下面还得在模块里面把ado连接的代码写好，才能真正连上，代码如下：

private

sub

command_click()

dim

a

as

connection

set

a

=

new

connection

a.connectstring="dsn=pubs;uid=sa;psw"

a.open

end

sub

这有的地方你得自己改改，因为我和你机子不一样！

自己调试吧，好的程序都是调试出来的！

怎么用vb连接mysql，有现成的代码吗跪求

和SQL数据库差不多的，下面是我用vb6.0连接本地mysql数据库的连接字符串

"driver={MySQL

ODBC

3.51

Driver};server=127.0.0.1;database=mysql;uid=root;pwd=sasa"

VB怎么连接mysql

用ODBC！

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

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

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

vb的ADO控件如何连接操作MYSQL数据库啊

由于ADO对象不直接支持MySQL,所以必须先安装MyODBC, 后者也是一个免费产品，在 上有下载，安装好了MyODBC, 就可以在ODBC数据源管理中配置一个数据源名称，把它指向你想连接的MySQL数据库。代码如下：Sub connectMySQL() '通过MyODBC去连接MySQL数据库，并将Microsoft SQL Server 7 '的数据转进mysql中 Dim sConnect As String, sSql As String, i As Long Dim cnMSSQL As New ADODB.Connection Dim cnMySQL As New ADODB.Connection '声明并创建对象 连接 Dim rs As New ADODB.Recordset '声明并创建对象 记录集 Dim cm As New ADODB.Command '声明并创建对象 命令 sConnect = "dsn=mysql1" '指定MySQL的数据源名称 cnMySQL.Open sConnect '连接到 mysql sConnect="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=123456;Initial Catalog=softdown;Data Source=ntserver" '连接到 ms sql server 7 cnMSSQL.Open sConnect 'sSql = "create table softinfo (softNum smallint,softname varchar(70),softdesc blob," _ "softpath varchar(30),softleng varchar(10),softclass varchar(10),softsugest tinyint(1)," _ "softdown smallint(4))" '创建新的MySQL数据表语句 sSql = "select * from softinfo order by softnum" rs.Open sSql, cnMSSQL, 1, 1 While Not rs.EOF sSql = "insert into softinfo values (" Trim(rs(0).Value) ",'" Trim(rs(1).Value) _ "','" Trim(rs(2).Value) "','" Trim(rs(3).Value) "','" Trim(rs(4).Value) _ "','" Trim(rs(5).Value) "'," Trim(rs(6).Value) "," Trim(rs(7).Value) ")" cm.ActiveConnection = cnMySQL cm.CommandType = adCmdText cm.CommandText = sSql cm.Execute rs.MoveNext Wend rs.Close Set rs = Nothing cnMySQL.Close Set cnMySQL = Nothing cnMSSQL.Close Set cnMSSQL = Nothing End Sub