博客
关于我
强烈建议你试试无所不能的chatGPT,快点击我
教程-(SQL DBE、ADO连接)+(Firebird火鸟+DbExpress)+(VF DBF数据库)+(DB Paradox)
阅读量:5743 次
发布时间:2019-06-18

本文共 3044 字,大约阅读时间需要 10 分钟。

DBE

连接SQL Server显然用ADO或DBEXPRESS更有优势,起码连接起来比较方便。

BDE的话可以用如下方法:(以下以Delphi7为例,其它版本的DELPHI请自己摸索一下,不过基本相差不大)

1.启动Delphi,选择菜单项 Database->Explorer,在左侧Database列表里面右键,选择New,在弹出的驱动对话框里面选择MSSQL,确定,然后在左侧可以更改名字,如:TEST,然后在选中TEST在右侧选项里面添入ServerName(服务器名) UserName(登录名) DatabaseName(数据库名)

然后Apply并关闭

2.在窗体上添加一个Database控件,右击Database选择Database Editor...

在里面添上数据库在Delphi中的名称、数据库别名,并且添加参数

USER NAME=sa

Password=你的密码

保存返回

3.设置Database的LoginPrompt为False,Connected为True

正常的话,你已经连接至SQL Server了,这个并不算太麻烦,主要是分发的时候会比较费力气,所以最好还是用ADO来连接比较好。

 

ADO

最简单的方法

放个ADOquary1、Dbgrid1、dataSource1

设置ADOquary1的connect或者connectString属性连接你的数据库

Sql属性里写(select * from 【Table】)

DataSource1的DataSet属性设为AdoQuary1,Dbgrid1的dataSource设为dataSource1,将AdoQuary的Active属性改为True就可以运行结果了

 

Firebird火鸟+DbExpress(库后缀为*.DB)

1.TSQLConnection1 -TSQLDataSet1-TDataSetProvider1-ClientDataSet1-DataSource1

(几个控件全部是属性连接的,第一个用代码连接库的。)

procedure TForm1.FormCreate(Sender: TObject);

begin
if SQLConnection1.Connected=true then
  SQLConnection1.Connected:=false;
  SQLConnection1.Params.Clear;
  SQLConnection1.Params.Values['user_name']:='sysdba';
  SQLConnection1.Params.values['password']:='masterkey.pub';
  sqlConnection1.Params.Values['SQLDialect']:='3';
  SQLConnection1.Params.Values['database']:=extractfilepath(paramstr(0))+'DATA.DB';
  SQLConnection1.Connected:=true;
end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

 with SQLDataSet1 do

    begin
      Close;
      CommandText:='select * from TORDERf';
      Open;
    end;

ClientDataSet1.Active:=True;

end;

发布程序:

1. midas.dll 放入C:\WINDOWS\system32中。 在“执行”中,执行regsvr32  C:\WINDOWS\system32\midas.dll。注册

2.EXE程序的同目录下必须有dbexpint.dll、GDS32.DLL二个文件。

3.电脑上必须安装FBWin32.exe。

 

 

DB2事务处理方法(DELPHI版)

1. 引用单元

uses DBXpress;

2.定义事务

var

G_TD: TTransactionDesc;//mysql事务

3.使用事务

procedure TForm1.Button1Click(Sender: TObject);

begin

G_TD.TransactionID:= 1;  //mysql事务ID

G_TD.IsolationLevel:= xilREADCOMMITTED; //mysql事务级别

    try

      SQLConnection1.StartTransaction(G_TD);

      ...

      ...

      SQLConnection1.Commit(G_TD);

    except

      SQLConnection1.Rollback(G_TD);

    end;

end;

 

 

VF DBF数据库

连接DBF数据

构造ado   connection   string
提供者选择   Microsoft   Jet   4.0   OLEDB   Provider
"所有 "那里编辑   Extended   Properties,
dbf文件的话设置为dBase   5.0(注意dBase和5.0之间必须有空格,最好拷贝过去粘贴)
db文件的话设置为Paradox   7.X
(dbf就是dbase或Vfox数据库,db就是paradox数据库)
“连接”那里的“数据库名称”输入的是目录名,不能包含文件名,
比如你的文件是   c:\temp\aaa.dbf   ,那么输入c:\temp
同时CursorLocation   设置为:   clUseServer

还可以:

如果直接连的话,ADO的连接字串设为:
adoConnection1.ConnectionString:= 'Provider=MSDASQL.1;Extended   Properties= "Driver={Microsoft   Visual   Foxpro   Driver};SourceType=DBF;SourceDB=c:\mydb " ';
如果是用ODBC,先在ODBC中设一个DSN连接到该DBF库,然后,在ADOConnection中设置连接ODBC的连接字串即可(可以用向导帮助完成)
DB Paradox (delphi 自代的数据库)
with con1 do
begin
    Connected := False;
    ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0; User ID=Admin;Data Source=F:\pakageTest;Mode=Share Deny None;Extended Properties=Paradox 7.X;Persist Security Info=False ';
    LoginPrompt := False;
    Connected := True;
end;

   qry1.close;

qry1.SQL.Text := 'select * from inf';
qry1.Open;
注意:
如果电脑上出现,无法使用。是驱动的问题。查看 "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\ISAM Formats\Paradox 7.X "是否存在,如果不存在表示驱动版本不对。
最新jet4.0下载

转载地址:http://konzx.baihongyu.com/

你可能感兴趣的文章
F#初学笔记06
查看>>
实战:将企业域名解析委派给企业DNS服务器
查看>>
在Lync 2013环境部署Office Web Apps
查看>>
微软大会Ignite,你准备好了么?
查看>>
读书笔记-高标管事 低调管人
查看>>
Master带给世界的思考:是“失控”还是进化
查看>>
用户和开发者不满苹果iCloud问题多多
查看>>
attrs.xml中declare-styleable 详解(用于自定义控件的属性)
查看>>
java.lang.UnsatisfiedLinkError:no dll in java.library.path终极解决之道
查看>>
我的工具:文本转音频文件
查看>>
【许晓笛】从零开始运行EOS系统
查看>>
【跃迁之路】【460天】程序员高效学习方法论探索系列(实验阶段217-2018.05.11)...
查看>>
C++入门读物推荐
查看>>
TiDB 源码阅读系列文章(七)基于规则的优化
查看>>
面试中会遇到的正则题
查看>>
Spring之旅第八站:Spring MVC Spittr舞台的搭建、基本的控制器、请求的输入、表单验证、测试(重点)...
查看>>
数据结构与算法——常用排序算法及其Java实现
查看>>
你所不知的Webpack-多种配置方法
查看>>
React.js 集成 Kotlin Spring Boot 开发 Web 应用实例详解
查看>>
webpack+typescript+threejs+vscode开发
查看>>