📄 jq12.htm

📁 对于学习很有帮助
💻 HTM
字号:
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title>Delphi中多库关联查询</title>
</head>

<body stylesrc="API扩展Delphi函数.htm" bgcolor="#EEEEFF">

<p>　</p>

<table>
  <tr>
    <td bgColor="#55002b" vAlign="top" width="672"><p align="center"><font color="#ffffff"
    face="黑体"><b>Delphi中多库关联查询</b></font></td>
  </tr>
  <tr align="left" vAlign="bottom">
    <td width="672"><p align="left">　　在我们对数据库进行操作时，经常用到TTable控件，但TTable只能同时对一个数据表进行操作，而TQuery控件不仅具有TTable的多数功能，而且同时可对多个数据表进行操作。不仅如此，TQuery控件还有更强大的数据库查询功能，可以同时对多个不同结构的数据库进行关联查询，被查询的数据库可以是ODBC支持的任何一种类型，当然计算机中必须先安装ODBC和BDC(Delphi的数据库引擎),现举例说明。<br>
    　　一、连接Paradox和dBASE进行异库查询<br>
    　　例如：Master.db和Customer.dbf分别为Paradox和dBASE的数据库，它们有一个公共字段CustNo。这时可输入如下代码：<br>
    　　Query1.Close;<br>
    　　Query1.DataBaseName:=′′；<br>
    　　Query1.SQL.Clear；<br>
    　　Query1.SQL.Add(′Select ＊ from ″Master.db″ A,″Customer.dbf ″ B Where 
    A.CustNo=B.CustNo′)；{在同一行内输入}<br>
    　　Query1.Open；<br>
    　　注意：进行多库联查时，TQuery控件的DataBaseName属性必须先置空，单引号内不包含任何字符；A和B分别是Master.db和Customer.dbf的别名(引用别名可减少代码长度)。<br>
    　　二、MS Access的多表联查<br>
    　　Access数据库属于多表集合数据库(一个数据库中包含多个数据表)，所以，对两个Access数据库进行查询的方法就与上述有所不同。例如：我们有RSDA.mdb和ZFGjj.mdb两个数据库，RSDA中包含人事档案、在职职工目录和离职职工目录等数据表，ZFGjj通过公共字段“用户号”与RSDA相连。如果我们从ZFGjj中提取一个用户号，需要从RSDA中得到拥有此用户号的职工姓名，这时就必须用到TQuery的多表查询。<br>
    　　第一步 在ODBC中增加两个数据源“ZFGjj”和<br>
    “RSDA”。<br>
    　　第二步 在BDE数据库引擎中添加两个数据库列名“ZFGjj”和“RSDA”。<br>
    　　第三步 在表单中增加两个DataBase控件“DataBase1”和“DataBase2”，在AliasName属性中分别选择“ZFGjj”和“RSDA”，DataBaseName属性中分别键入“ZFGjj”和“RSDA”，最后将KeepConnection和Connected属性都设为“True”。<br>
    　　现在可以输入相应的代码了：<br>
    　　Begin<br>
    　　For I:=1 To 10 Do<br>
    　　Begin<br>
    　　Query1.Close;<br>
    　　Query1.DataBaseName:=′′；<br>
    　　Query1.Sq1.Clear;<br>
    　　Query1.Sq1.Add(′Select A.七月，B.个人账号，B.用户号，C.姓名From“：ZFGjj：个人汇激部门表”A，“:ZFGjj:住房公积金明细表”B，“:RSDA:在职职工目录”C 
    Where(A.用户号=B.封存=:ib)′);{在同一行输入}<br>
    　　Query1.Prepare;<br>
    　　Query1.Params[0].DataType.=ftInteger;<br>
    　　Query1.Params[1].DataType.=ftBoolean;<br>
    　　Query1.Params[0].Asinteger:=ia[I];<br>
    　　Query1.Params[1].Asboolean:=ib;<br>
    　　Query1.Open;<br>
    　　End；<br>
    　　End;<br>
    　　代码中SQL语句必须在一行内输入，不能分行。SQL语句中使用了动态参数“ia”和“ib”，Delphi会自动按参数出现的顺序将它们添加在Query1的Params属性中并分配索引号分别为0和1，参数“ia”和“ib”应在程序开始时声明其类型并赋值。<br>
    <strong>(新疆 吴晓飞)</strong></p>
    <p align="right"><font color="#000000">本文出自：<a
    href="file://\\黄凯\D\99101302.htm/index.htm">《电脑报》1999年03月15日第10期</a></font> 
    </td>
  </tr>
</TBODY>
</table>
</body>
</html>
💿 文件大小 2022 K
👤 上传用户 siclj
📂 所属分类 Delphi/CppBuilder
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -