1. 简介
使用BDE(Borland Database Engine)链接MSSQL(Microsoft SQL Server)数据库可以方便地进行数据读写和管理,下面将给大家介绍配置流程。
2. 准备工作
2.1 下载并安装BDE
首先需要下载BDE组件并进行安装,下载链接:https://www.embarcadero.com/free-tools/bde,安装过程中按照提示进行操作。
2.2 安装MSSQL数据库驱动
BDE自身不支持MSSQL数据库,需要安装相应的驱动程序才能进行链接。可以从官网上下载:https://docs.microsoft.com/en-us/sql/connect/odbc/download-odbc-driver-for-sql-server?view=sql-server-ver15,安装过程与一般的Windows应用安装过程相同。
3. 连接数据库
3.1 打开BDE管理员
BDE管理员是管理BDE的工具,在开始菜单或安装目录的bin文件夹下可以找到BDEADM.EXE文件,运行该文件。
3.2 创建新的BDE配置文件
BDE管理员启动后,新建并打开一个配置文件,可以在“对象”菜单下的“新建”选项中创建。
3.3 添加ODBC驱动程序
在“驱动程序”菜单下选择“新建”选项,选择ODBC驱动程序并填写相应信息,例如驱动程序名称、别名、默认目录等,然后填写ODBC数据源名称和连接字符串,接着点击“测试”按钮进行连接测试。
驱动程序名称: SQL Server
别名: MSSQL
默认目录:
ODBC数据源名称: mssqldb
连接字符串: DRIVER=ODBC Driver for SQL Server;SERVER=127.0.0.1;DATABASE=mydatabase;UID=myusername;PWD=mypassword
连接字符串参数说明:
DRIVER: ODBC驱动程序名称
SERVER: MSSQL服务器IP地址或主机名
DATABASE: 数据库名称
UID: 数据库用户名
PWD: 数据库用户密码
3.4 添加BDE别名
在“配置”菜单下选择“新建”选项,填写别名、驱动名称、数据源等信息,其中驱动名称就是上一步添加的ODBC驱动程序名称,数据源是上一步添加的ODBC数据源名称,然后测试连接。
别名: MyDatabase
驱动名称: SQL Server
路径: 这里路径为空即可
类型名: MSSQL
数据源名称: mssqldb
用户名称: myusername
密码: mypassword
4. 数据库操作
完成上述配置后,BDE就可以链接到MSSQL数据库了,可以使用Delphi或BCB等开发工具进行开发并操作数据库。
下面是一个简单的示例,在Delphi中链接数据库,并进行查询操作:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, dbtables;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Database1: TDatabase;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Table1: TTable;
begin
Database1:= TDatabase.Create(Application);
with Database1 do
begin
AliasName:= 'MyDatabase';
LoginPrompt:= False;
end;
Table1:= TTable.Create(Application);
with Table1 do
begin
DatabaseName:= 'Database1';
TableName:= 'MyTable';
Active:= True;
end;
Memo1.Lines.Add('Id Name Age');
Table1.First;
while not Table1.Eof do
begin
Memo1.Lines.Add(Table1.FieldByName('Id').AsString + ' ' + Table1.FieldByName('Name').AsString + ' ' + Table1.FieldByName('Age').AsInteger);
Table1.Next;
end;
Table1.Free;
end;
end.
代码说明:
在程序开始时创建一个TDatabase实例,设置上一步添加的BDE别名。
创建一个TTable实例,设置DatabaseName为上述实例的名称,设置TableName为要操作的表名称。
调用Table1.First,Table1.Eof和Table1.Next进行遍历操作,获取数据。
5. 总结
通过上述步骤,就可以使用BDE链接MSSQL数据库进行数据读写和管理,相较于其它数据库链接方式,BDE的配置过程相对简单,同时操作也较为方便。