Delphi使用ADO可以连接MSSQL和ACCESS,但似乎不能连接MYSQL和ORACEL,如果要连接MYSQL和ORACLE得使用BDE。

一、连接方法

首先得先安装mysql驱动程序_mysql-connector-odbc-5.1.6-win32,然后点控件面板->管理工具->数据源 (ODBC)

9cc6b68ce369c5ab237a5e3bdb7ae2b0.png

点系统DNS,然后选择MySQL ODBC Driver,点完成。出现如下界面,填写相关的信息,选择数据库点完成,完成MYSQL的ODBC数据源的创建

667a2af7e740c07690f98116853db416.png

接下来在Delphi里测试一下是否能连接成功。

首先在Delphi的BDE选项中拉一个Table数据库控件,点击该控件,在右边的属性面板中,在DataBaseName中选择刚才的创建的MYSQL-ODBC数据源名称,Active设为True,TableName选中需要的表。

18bb5e56ae5b884c3d3b6333858520da.png

最后拉一个DataSource和DBGrid,进行相关连接配置,就完成了,很方便。

二、使用ODBC中的Query组件

在ODBC中拉一个Query,其他配置与上面的一样,只是Query属性板中的SQL中要编写要查数据库的SQL语句

52012a432cd95062d0d0320c34223aa2.png

三、踪合一点点的例子

6f512414efb05764d5286620eda30c82.png

数据源的其他配置一样,在DBGrid1CellClick放如下代码。

procedure TForm1.DBGrid1CellClick(Column: TColumn);

begin

LabelName.Caption := Table1['Name'];

LabelAge.Caption := Table1['Age'];

end;

如果需要一整行选中,在Option的dgRowSelect设为True

367d34c7b3552df6bb833f3db6b91274.png

上一条记录,下一条记录,第一条记录,最后一条记录。

Table1.Prior;

Table1.Next;

Table1.First;

Table1.Last;

查找按扭,第一个参数是'name'是要查找的字段名,第二个参数是要查找的内容,最后一个参数是否忽略大小写。

Table1.Location('name',edit1.Text,[Lopartialkey,Locaseinsensitive]);

Logo

DAMO开发者矩阵,由阿里巴巴达摩院和中国互联网协会联合发起,致力于探讨最前沿的技术趋势与应用成果,搭建高质量的交流与分享平台,推动技术创新与产业应用链接,围绕“人工智能与新型计算”构建开放共享的开发者生态。

更多推荐