[DUG] Importing Data

[Alister Christie]

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
>
>
>