Sql server中数据表与Paradox7的转换(50分)

  • 主题发起人 主题发起人 haisongzhang
  • 开始时间 开始时间
H

haisongzhang

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样实现Sql Server数据表与Paradox7的相互转换?
 
有多好种方法:1.用BatchMove控件。2.用SQL SERVER中引入数据。这是一个向导。
你一步步的作就行了。3.自己编程实现。下面是例子:
procedure TForm1.bbtnChangeClick(Sender: TObject);
var wn:integer;
w:string;
begin
Qleave.close;
Qleave.SQL.Clear;
Qleave.sql.Add('select * from shinew where 1=1');
//Qleave.sql.Add('and workno>0');
Qleave.Open;
Qleave.First;
while not Qleave.EOF do
begin
with Tresignation do
begin
Append;
FieldByName('empNo').value:=Qleave.fieldbyname('empNo').asstring;
Fieldbyname('checkNo').value:=Qleave.fieldbyname('pNo').asstring;
Fieldbyname('checkDate').value:=Qleave.fieldbyname('dates').asstring;
Fieldbyname('chkpoint').value:=Qleave.fieldbyname('point').asfloat;
Fieldbyname('checknum').value:=Qleave.fieldbyname('Num').asfloat;
Fieldbyname('status').value:='M';
Post;
if PBhr.Position=10 then PBhr.Position:=0
else PBhr.Position:=PBhr.Position+1;
end;
Qleave.Next;
end;
PBhr.Visible:=false;
end;
 
可能是我的问题描述的不完整,我的意思是,要从Sql Server中把部分表的表体及内容
一同复制过来,原先Paradox是没有表的,如果采用上述方法,使用两个数据控件,那么
这两个控件的数据源应该是不一样的。
 
那也可以满足你的要求,Tresignation 这就是你要建立表用的控件。
你用它先连接到你已经建立好的DB,然后再它的TABLENAME中取一个你想要在DB中建立
所存贮的表名(这个表可以不存在,也可以存在)。这样就可以了呀?!

你可以再试试
 
那里找到Tresignation控件?
 
>>那里找到Tresignation控件?
随便一个TABLE控件或者QUERY控件都行。。。我用的是TABLE,它是TABLE的名字。
 
我的主页上有一个我自己做的工具带源码,专们用于在Paradox和SQL间导数据.包括了处理Blob数据.
 
忘了说主页了:http://www.aidelphi.com
 
多人接受答案了。
 
后退
顶部