zoukankan      html  css  js  c++  java
  • 教程-(SQL DBE、ADO连接)+(Firebird火鸟+DbExpress)+(VF DBF数据库)+(DB Paradox)

    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:WINDOWSsystem32中。 在“执行”中,执行regsvr32  C:WINDOWSsystem32midas.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: empaaa.dbf   ,那么输入c: emp
    同时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_MACHINESOFTWAREMicrosoftJet4.0ISAM FormatsParadox 7.X "是否存在,如果不存在表示驱动版本不对。
    最新jet4.0下载
    http://support.microsoft.com/default.aspx?scid=kb;zh-cn;239114

  • 相关阅读:
    Codeforces Round #136 (Div. 1) B. Little Elephant and Array
    洛谷 P2966 [USACO09DEC]牛收费路径Cow Toll Paths
    cogs 969. [NOIP2006] 数列
    防止xss(跨站脚本攻击)
    ☀【插件】iScroll
    ☀【移动优化】
    ☀【Zepto】
    ☀【JS】Code
    ☀【响应式设计】屏幕尺寸
    CODEVS——T2744 养鱼喂妹纸
  • 原文地址:https://www.cnblogs.com/FKdelphi/p/4654581.html
Copyright © 2011-2022 走看看