Hi Gareth,
try using a higher port number (above 1024) and be sure that nobody's using it (50000/50001 are the default for DB2/Linux).
Ex:
db2cxxxx 50000/tcp # Connection port for DB2
db2ixxxx 50001/tct # Interrupt port for DB2
HTH,
Alphonsus.
Hi Lucian,
I don't know anything about FoxPro, but I think it shouldn't be hard to generate a plain text file with delimiters. If you can do this it would be easy to import it to DB2, using Import or Load.
HTH,
Alphonsus.
P.S. Talking about V6 on a Linux box.
Hi all,
we're using Delphi 5.0 and DB2 6.1 (Linux) connected through ODBC. We have a Form with a DBMemo that maps into a varchar(3000) field. Everything works fine as long as you type something in this field. If it's blank it
gives back the message below.
General SQL error.
[IBM][CLI...
Try something like this (use your date separator):
select
quarter(date('01/'||month_no||'/'||year_no)),
year_no,
sum(amount)
from
t1 a,
t2 b
where
a.calendar_id = b.calendar_id
group by
quarter(date('01/'||month_no||'/'||year_no)),
year_no
HTH,
Alphonsus.
Hi all,
we need to write a procedure that reads a DFM file and assigns the Form defined in it to program variable, so that we can add Components to it (won't be visual). This program should not rely on any of IDE's feature.
Any help will be welcomed.
Thanks,
Alphonsus.
This is just an idea to help you. Change the sleep time and the size you want to print each time (nSize) to get the efects you want. If it needs to run forever create a different thread.
var
sAux: String;
nLength: Integer;
nSize: Integer;
nPos: integer;
bLeave: Boolean;
begin...
Hi all,
let's say I have a Form with an Edit box and some public methods. The
user will type the name of the method in the Edit box and the program will
execute it. In other words: in Runtime I need to execute a method having
only it's name as a String.
Any help???
Thanks...
Hello,
maybe this can help:
while your application is hanging, issue the command at the OS prompt (open another session) "db2 get snapshot for locks on <YourDb>" and look for an Application with Lock-wait status. If you're using the correct monitor it should say who is holding...
Just to make a test:
pass "nil" when creating the Query. It may be that the component you're passing as the owner is being destoyed somewhere else in the program so destroying its children also.
Hope it helps,
Alphonsus.
You can use Form's Components property as bellow:
procedure TForm1.ClearEdit;
var
j: Integer;
nComp : Integer;
begin
nComp := ComponentCount -1;
if nComp >= 0 then
begin
for j := 0 to nComp do
begin
if Components[j] is TEdit then
begin...
Or you can try this:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not ((Key >= #48) and (Key <= #57)) then
begin
Key := #0;
end;
end;
HTH,
Alphonsus.
Hi William,
download one of the Cookbooks that exists in this site and take a look in the Chapter "Recursive SQL"
http://ourworld.compuserve.com/homepages/Graeme_Birchall/HTM_COOK.HTM
Regards,
Alphonsus.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.