SOS!我只想要一个ACCESS和PARADOX导入导出的代码(包含OLE字段)。
解决方案 »
- 怎么样提高自己DELPHI的水平呀~~各位前辈请多多多指导~~谢谢了~~
- please come in------------- juliens(星星球) 100
- 如何利用程序获取一个对象的所有信息(高难)
- 有没有好点的网络书店
- 怎样实现exe文件和swf文件转换,即exe<->swf
- 請大俠幫忙!!!!!!!!1如何保证主从表数据完整????
- xxmmmx(踢踏) ( ) 可以进来帮忙吗,(当然其他人也可以)UDP问题
- 如何在delphi下,用webBrowser时,如何禁止掉鼠标右键?(500分)分数不够可以再加。
- select 语句的有关问题
- 我下了DELPHI的补丁包和ADO的补丁,可我都装不上!(注册码错误),请问有什么解决的办法?
- delphi6 能使用access2002数据库吗?
- 如何判断ftp服务器上目录或文件是否存在?
一、连接Paradox和dBASE进行异库查询
例如:Master.db和Customer.dbf分别为Paradox和dBASE的数据库,它们有一个公共字段CustNo。这时可输入如下代码:
Query1.Close;
Query1.DataBaseName:=′′;
Query1.SQL.Clear;
Query1.SQL.Add(′Select * from ″Master.db″ A,″Customer.dbf ″ B Where A.CustNo=B.CustNo′);{在同一行内输入}
Query1.Open;
注意:进行多库联查时,TQuery控件的DataBaseName属性必须先置空,单引号内不包含任何字符;A和B分别是Master.db和Customer.dbf的别名(引用别名可减少代码长度)。
使用ADO+BDE
类代码:
With ADO do
begin
First;
while not eof do
begin
for i:=0 to FieldDefs.Count-1 do
BDE.Fileds[i].value:=Fields[i].value;
Next;
end;
end;/ by LY http://lysoft.7u7.net http://liuyang.7i24.com http://lysoft.91i.net