ʹ��PowerBuilderͬʱ��ʶ��ݿ�

Article View: cn.bbs.comp.program

Article #1238

Back to cn.bbs.comp.program Previous Next

#1238

From: ��ܵ�Сʨ
Date: Sat, 18 Apr 1998 00:00

77 lines
4508 bytes


 PowerBuilder 4.0��һ��ǿ�����ݿ�Ӧ��ϵͳ��������,�������
��Ŀͻ�/��������ϵ�ṹ����������Ӧ�ó��򿪷������Լ�����
���Ŀ�������,����Ϊ�������е���ݿ�ǰ�˿������ߡ�
    ����������������Ϣϵͳ�Ĳ��Ͽ���,ϵͳ������������ν�
�ֲ��ڲ�ͬ�������ϵ���ݿ�ϵͳ���ɵ�һ������⡣����ͼ��ʾ:
ͼ1
    ĳ���ͻ�Ӧ�ÿ�����Ҫ��ͬһ����ͬʱ���������������ϵ�����
��ͬ����ݿ�,PowerB uilderΪ���������ṩ����������Ľ������
��
    ����һ:
    ͨ��Transaction Objectͬʱ�򿪶������,��ͨ���������
ȡ�����ڲ�ͬ��ݿ��ϵ�DataWindows��
    ������:
    ͨ����ݹܵ�(DataPipeLine)��������ݿ��ϻ���е���ݴ���
������ݿ���,����ݹܵ����ɼ��Ϲ�������,�Ա�ֻ������Ҫ�����
��
    ����ʵ�ַ���
    ������һ�������ϵ�������ť������ʾ����һ�ͷ�����,�����
������ͼ��ʾ������������е�����¼��ű�(Scripts)����:
    (1)�򿪴����¼��ű�(Open for W_LC)
    Transaction lc_oracle,lc_ingres
    �γ�ʼ��oracle��ݿ�����
    lc_oracle=CREATE transaction
    lc_oracle.DBMS      ="OR7  ORACLE v7.x"
    lc_oracle.Database  ="ora7"
    lc_oracle.logId     ="Ljb"
    lc_oracle.logPassword   ="Ljbljb"
    lc_oracle.ServerName    ="@t:132.147.111.8"
    �γ�ʼ��ingres��ݿ�����
    lc_ingres=CREATE transaction
    lc_ingres.DBMS      ="ODBC"
    lc_ingres.Database  ="xxzx2"
    lc_ingres.userid    ="nt"
    lc_ingres.dbpass    ="ingres"
    lc_ingres.dbparm    ="ConnectString='DSN=kfml;&
    SRVR=nt;DB=xxzx2;OPTS=;UID=ingres'"
    (2)ͬʱ����������ݿ�Ľű�(Clicked for CB_MutiDBMS)
    �η��� oracle��ݿ�
ͼ2
    connect using lc_oracle;
    dw_oracle.SetTrans(lc_oracle)
    dw_oracle.retrieve()
    �η���ingres��ݿ�
    connect using lc_ingres;
    dw_ingres.SetTrans(lc_ingres)
    dw_ingres.retrieve()
    (3)��ݹܵ��Ľű�(Clicked for CB_PipeLine)
    /*˵��һ��֧����ݹܵ��Ķ���,lc_object����
    User Object Painter�ж����PipeLine����*/
    lc_object lcl_object
    ��������ݹܵ�
    integer start_result
    connect using lc_oracle;
    connect using lc_ingres;
    lcl_object=create lc_object
    /*lc_pipeline����PipeLine Painter�ж������ݹܵ�,�Ա㽫
ingres����е���ݴ��͵�oracle��ݿ�����*/
    lcl_object.dataobject="lc_pipeline"
    start_result=lcl_object.start &(lc_oracle,lc_ingres,dw_o
racle)
    If start_result=-3
    messagebox("��ݹܵ���","�˻���Ѵ���");
    return
    end if
    disconnect using lc_oracle;
    disconnect using lc_ingres;

    С��
    PowerBuilder����ΪӦ��ϵͳ�Ŀ��ٿ����ṩ��ǿ������֧�ֹ�
��,����Ϊ30������ݿ��ṩ��ֱ�����ӻ�ODBC����,�ټ���Transact
ion Object��Data PipeLineͬʱ��ȡ�����ݿ�Ĺ���,Ϊ��������
ҵ����Ϣϵͳ������к������ϵͳ�Ļ����ṩ�˼����Ч�ķ�����

--
[m[1;32m�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: hsia.nju.edu.cn][m

Technical Details

Message-ID: <3O9i76$tXE@bbs.nju.edu.cn>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: Chinese,GB
X-Google-Thread: fc86e,a8f14d459f39343f,start
X-Google-Attributes: gidfc86e,public
From: pipishi.bbs@bbs.nju.edu.cn (���ܵ�Сʨ)
Subject: ʹ��PowerBuilderͬʱ���ʶ����ݿ�
Date: 1998/04/18
Message-ID: <3O9i76$tXE@bbs.nju.edu.cn>
X-Deja-AN: 345403260
X-Filename: Programming/M.892910934.A
Organization: nju_bbs
Newsgroups: cn.bbs.comp.program

Article View: cn.bbs.comp.program

ʹ��PowerBuilderͬʱ���ʶ����ݿ�

ʹ��PowerBuilderͬʱ��ʶ��ݿ�