[DUG] Importing Data

[Bob Pawley]

BitBtn1MouseUp2 do?

It starts the import procedure for the next row.

Thanks to all for your help.

Bob


----- Original Message ----- 
From: "Alister Christie" <alister at salespartner.co.nz>
To: "NZ Borland Developers Group - Delphi List" <delphi at delphi.org.nz>
Sent: Tuesday, November 06, 2007 12:15 PM
Subject: Re: [DUG] Importing Data


> Also, if your loop is taking a long time then you might want to add some 
> code to update the form, especially if you are using a progress bar or 
> something.
> You could use
> UpdateWindow(Handle); //just updates the screen
> or
> Application.ProcessMessages; //will update the screen and handle any 
> button clicks or key presses.
>
> What does
>
> BitBtn1MouseUp2 do?
>
> Alister Christie
> Computers for People
> Ph: 04 471 1849 Fax: 04 471 1266
> http://www.salespartner.co.nz
> PO Box 13085
> Johnsonville
> Wellington
>
>
> Wayne Roser wrote:
>> I don't recognise
>>> i := TIntegerField ;
>>>
>> I'm guessing that you don't need it.
>>
>> What does the line
>> Edit1.Text(Integer); mean?
>>
>> I wonder if you want:
>>  while not PSQLQuery1.EOF do
>>     begin
>>       i := PSQLQuery1.FieldByName('Count').AsInteger ;
>>       Edit1.Text := IntToStr(i);
>>
>>
>>
>>
>>
>> NZ Borland Developers Group - Delphi List <delphi at delphi.org.nz> on 
>> Wednesday, 7 November 2007 at
>> 6:29 a.m. +0000 wrote:
>>
>>> Hi
>>>
>>>
>>> In my pursuit of learning at least some Delphi, I have this challenge 
>>> for which I would appreciate
>>> some help.
>>>
>>> I am having a little difficulty with this part of an expression-
>>>
>>>
>>>       while not PSQLQuery1.EOF do
>>>
>>>        begin
>>>
>>>      i := TIntegerField ;
>>>
>>>      i:= PSQLQuery1.FieldByName('Count').AsInteger ;
>>>
>>>      Edit1.Text(Integer);
>>>
>>>
>>> I am importing data from a PostgreSQL database and processing the 
>>> information one row at a time.
>>> It works quite well as far as I have gone. I want to control the process 
>>> by taking the count of
>>> the rows left unprocessed (greater than zero) before importing the next 
>>> row.
>>>
>>>
>>> The full expression follows –
>>>
>>>
>>> Bob Pawley
>>>
>>>
>>> var
>>> i : integer
>>>
>>>
>>>      begin
>>>
>>>         PSQLQuery1.Close;
>>>
>>>      PSQLQuery1.SQL.Clear;
>>>
>>>      PSQLQuery1.SQL.Add ('Select Count (Loop_ID)');
>>>
>>>      PSQLQuery1.SQL.Add ('FROM P_ID.Loops, Project.Project');
>>>
>>>      PSQLQuery1.SQL.Add ('Where P_ID.Loops.IDW_Loop_ID is null');
>>>
>>>      PSQLQuery1.SQL.Add ('and P_ID.Loops.P_ID_ID = 
>>> Project.Project.P_ID_ID');
>>>
>>>      PSQLQuery1.SQL.Add ('and Project.Project.P_ID_Name = :P_ID_Name ') 
>>> ;
>>>
>>>      PSQLQuery1.ParamByName('P_ID_Name').AsString := DBEdit2.Text;
>>>
>>>      PSQLQuery1.Prepare;
>>>
>>>      PSQLQuery1.Open;
>>>
>>>      PSQLQuery1.First ;
>>>
>>>           while not PSQLQuery1.EOF do
>>>
>>>        begin
>>>
>>>      i := TIntegerField ;
>>>
>>>      i.value:= PSQLQuery1.FieldByName('Count').AsInteger ;
>>>
>>>      Edit1.Text(Integer);
>>>
>>>     while i >0 do
>>>
>>>
>>>     BitBtn1MouseUp2(Sender, Button, Shift, X, Y);
>>>
>>>       PSQLQuery1.Next;
>>>
>>>
>>>
>>>        end;
>>>
>>> _______________________________________________
>>> NZ Borland Developers Group - Delphi mailing list
>>> Post: delphi at delphi.org.nz
>>> Admin: http://delphi.org.nz/mailman/listinfo/delphi
>>> Unsubscribe: send an email to delphi-request at delphi.org.nz with Subject: 
>>> unsubscribe
>>>
>>
>>
>> _______________________________________________
>> NZ Borland Developers Group - Delphi mailing list
>> Post: delphi at delphi.org.nz
>> Admin: http://delphi.org.nz/mailman/listinfo/delphi
>> Unsubscribe: send an email to delphi-request at delphi.org.nz with Subject: 
>> unsubscribe
>>
>>
>>
> _______________________________________________
> NZ Borland Developers Group - Delphi mailing list
> Post: delphi at delphi.org.nz
> Admin: http://delphi.org.nz/mailman/listinfo/delphi
> Unsubscribe: send an email to delphi-request at delphi.org.nz with Subject: 
> unsubscribe