使用BDE链接MSSQL数据库的配置指南

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的配置过程相对简单,同时操作也较为方便。

数据库标签