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:
首先得建立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
这有的地方你得自己改改，因为我和你机子不一样！
自己调试吧，好的程序都是调试出来的！
和SQL数据库差不多的，下面是我用vb6.0连接本地mysql数据库的连接字符串
"driver={MySQL
ODBC
3.51
Driver};server=127.0.0.1;database=mysql;uid=root;pwd=sasa"
用ODBC！
先到下载mysql 的 odbc驱动，装上以后 ，再配置数据源，再在vb里面编程连接！
最简单的办法是：在VB里添加一个ADO部件，将其放到窗体中，然后右键选择属性，在其属性页的下面有个生成连接字符串的项，点击其后的按钮，然后一步步的来做（很简单的），然后连接字符串就会在那里生成，只要拷贝这个字符串，就可以用ADODB来连接了。。。
由于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
