DELPHI ADO连接数据库

说明：代码都是工程里拷贝出来的，一定好用，但可能引用了无用的单元。不追求效率，能完成就可以。其它连接数据库的控件，修改一下就可以。ANDROID上连接SQLITE用的TFDConnection这个控件，也可以写成这样的方式。

一、新建立一个TDataModule单元（个人理解，就是没有界面，方便管理）

二、放一个TADOConnection控件

三、上代码（这个是连接ACCESS的）

unit data_mouble;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Data.DB, Data.Win.ADODB;

type

TDataModule1 = class(TDataModule)

con_DB: TADOConnection;

procedureDataModuleCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule1: TDataModule1;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

procedureTDataModule1.DataModuleCreate(Sender: TObject);

var

condbstr: string;

begin

try

condbstr := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False';

con_DB.ConnectionString := condbstr;

con_DB.LoginPrompt := False;

con_DB.Connected := true;

except

Application.MessageBox('网络数据库连接失败，请检测网络!', '提示信息', MB_OK + MB_ICONINFORMATION);

ExitProcess(0);

end;

end;

end.

四、新建一个空白单元（用来保存操作数据库的小函数）

unit fun_data;

{************************************************************}

{ }

{ 模块名称：数据库操作函数模块 }

{ }

{ 技术支持： }

{ }

{ }

{************************************************************}

interface

uses ADODB, Windows, ComCtrls, SysUtils,

Math,data_mouble,System.Classes,Data.DB;

functionDB_CheckEmpty(TabName: string): Boolean;