��

�� · Posted: 06 Jul 2004 15:34 Post subject:

�� - �� -��

*************
procedure TForm1.Button1Click(Sender: TObject);
var QN,qn2:TQuery;
S_Query,S_Query2:string;
begin
QN:=TQuery.Create(nil);
QN.DatabaseName:='Alex';
QN2:=TQuery.Create(nil);
QN2.DatabaseName:='Alex';
S_Query:='SELECT Name_bank, uin_bank FROM dbo.bank where uin_bank not in (SELECT ID_mat FROM dbo.Mater )';
QN.SQL.Add(S_Query);
QN.ExecSQL;
QN.Open;
while not(QN.Eof) do
begin
qn2.SQL.Clear;
S_Query2:='insert into dbo.Mater (Name_mat, ID_mat)values('''+qN.Fields.Fields[0].AsString+''','+qN.Fields.Fields[1].AsString+')';
QN2.SQL.Add(S_Query2);
QN2.ExecSQL;
qn.Next;
end;
QN2.Close;
QN.Close;
end;

integral · Posted: 07 Jul 2004 07:45 Post subject:

2 �� :
� �� (��) � �� -�� ? � �� ?
2 �� :
�� , �� . � BDE ��

�� · Posted: 07 Jul 2004 08:14 Post subject:

Irina_Gl · Posted: 07 Jul 2004 14:02 Post subject:

� �� -5, � �� SP � �� 3.1, �� :

1. � �� "�� " (��/��)
2. � �� .
3. �� /�� (�� ) ��
_________________
��
��
��

integral · Posted: 07 Jul 2004 14:36 Post subject:

� �� -4 ��-�� ?

�� · Posted: 09 Jul 2004 10:16 Post subject:

vick · Posted: 09 Jul 2004 13:39 Post subject:

vick · Posted: 09 Jul 2004 13:41 Post subject:

�� · Posted: 10 Jul 2004 09:16 Post subject:

�� · Joined: 26 Feb 2002 Posts: 649

�� · Posted: 13 Jul 2004 07:05 Post subject:

�� · Posted: 14 Jul 2004 11:42 Post subject: