SQL de farklı fieldlardan data aktarımı

[MakPRO]

mrb.

CODE isminde bir field ım var ve varhcar(30) yapısında. içindeki bilgiler tamamen rakamdan oluşmuş durumda. SYSCODE DOUBLE PRECISION diye bir alan ekleyip CODE içeriğini SYSCODE ALANINA nasıl aktarabilirim. yardımlarınız için teşekkür ederim .

[naile]

Sanirim CAST işinizi görür.. Kullanımı da şu şekilde olması lazım:

Kod: Tümünü seç

CAST(CODE AS DOUBLE)

[MakPRO]

mrb.

Kod: Tümünü seç

UPDATE CARDOPT SET SYSCODE=CAST(CODE AS DOUBLE)

bu komut hata verdi .

bu yüzden delphide kod yazarak sorunu çözdüm ama SQL de yapmak her zaman tercihimdir.

Kod: Tümünü seç

D.cardopt.First;
d.INST.First;
d.sqlgenel.SQL.Clear;
d.sqlgenel.SQL.Add('UPDATE CARDOPT SET SYSCODE=:CODE1 WHERE CODE=:CODE');
WHILE NOT (D.cardopt.Eof) DO BEGIN
d.sqlgenel.ParamByName('CODE1').AsFloat:=D.cardopt.FieldByName('CODE').AsFloat;
d.sqlgenel.ParamByName('CODE').Text:=D.cardopt.FieldByName('CODE').Text;
d.sqlgenel.ExecSQL;
d.cardopt.next;
end;
D.cardopt.Refresh;


d.sqlgenel.SQL.Clear;
d.sqlgenel.SQL.Add('UPDATE INST SET SYSCODE=:CODE1 WHERE CODE=:CODE');
WHILE NOT (D.cardopt.Eof) DO BEGIN
d.sqlgenel.ParamByName('CODE1').AsFloat:=D.cardopt.FieldByName('CODE').AsFloat;
d.sqlgenel.ParamByName('CODE').Text:=D.cardopt.FieldByName('CODE').Text;
d.sqlgenel.ExecSQL;
d.INST.next;
end;
D.INST.Refresh;

yazdığım komutlarda yukardaki gibidir. iyi çalışmalar.

[Kuri_YJ]

Selamlar,

Yazdığınız SQL ne hatası verdi?

Kolay Gelsin

[mucit]

Merhaba,

Kod: Tümünü seç

UPDATE CARDOPT SET SYSCODE=CAST(CODE AS DOUBLE)

yerine

Kod: Tümünü seç

UPDATE CARDOPT SET SYSCODE=CAST(CODE AS DOUBLE PRECISION)

şeklinde yazmalısın..

Kolay gelsin.

[MakPRO]

tşk verdiğiniz kod işe yaradı bundan sonraki çalışmalarımda bu kadar kod yazmıcağımı umarım

iyi çalışmalar