189 8069 5689
方法/步骤1
创新互联建站是一家专业从事成都网站建设、网站建设的网络公司。作为专业网站制作公司,创新互联建站依托的技术实力、以及多年的网站运营经验,为您提供专业的成都网站建设、营销型网站及网站设计开发服务！
先从左侧的工具栏拖进控件Button和RichTextBox。
接着在RichTextBox中写上连接数据库的字符串。
Data Source=AH;Initial Catalog=DS20;User ID=sa;password=xxxxxxx;
Data Source：数据库服务器名称。
Initial Catalog：数据库名称。
User ID：数据库用户名。
password：数据库连接密码。
双击Button按钮，进入按钮点击事件，添加访问数据库的代码。这里代码的意思是，尝试连接SQL数据库，如果连接成功则显示“OK”，如果连接失败则显示失败信息。
SqlConnection：表示数据库SQL连接的类。
Open()：打开数据库。
Exception i：获取连接失败SQL的信息。
接下来分别演示“连接成功”和“连接失败”的效果。
我是用ADO连接的，BDE没尝试过。如果是ADO连接的话需要做如下设置：
第一步：下载安装mysql-connector-odbc-5.1.12-win32.msi驱动程序,该驱动程序可以从mysql官方网站下载：。
第二步：在电脑上配置MYSQL ODBC驱动程序，如下：
1、打开“我的电脑”-“控制面板”-“管理工具”-“数据源 (ODBC)”-“驱动程序”标签页，检查mysql驱动安装情况。如出现“Mysql ODBC 5.1 Driver”则表示ODBC驱动已完成安装。
2、在“ODBC 数据源管理器”的“用户DSN”标签页添加MYSQL的选项，并配置mysql的ODBC属性。选择“添加”—“mysql ODBC 5.1 DRIVER”-“完成”。
第三步：在DELPHI上连接MYSQL数据库：
1、 在程序添加TADOconnection控件，并对TADOConnection控件属性进行设置。
（1）、配置ConnectionString属性
“提供程序”-“MicorosoftOLE DB Provider for ODBC Driver”-“下一步”。
在“使用数据源名称”的下拉菜单中选择mysql配置的选项。输入用户名和密码后选择“测试连接”进行连接测试。如果出现“测试成功”则代表已连接上数据库。注：“输入要使用的初始目录”必须留空，否则会出错。
（2）、配置“LoginPrompt”属性为false，“Connected”为true。
至此，delphi通过ODBC连接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