18-12-2020, Saat: 21:59
Merhaba,
Bir sorum olacaktı farklı databaseler arası bir aktarım yapmam lazım yalnız hata alıyorum, MSSQL'den MYSQL le, kullandığım kod ve sorgular aşağıdaki gibidir.
Hata kodu
kullandığım sorgu
kullandığım kod
Bir sorum olacaktı farklı databaseler arası bir aktarım yapmam lazım yalnız hata alıyorum, MSSQL'den MYSQL le, kullandığım kod ve sorgular aşağıdaki gibidir.
Hata kodu
exception class EDatabaseError with message 'Tur_Bilgi: Cannot modify a read-only dataset'. Process stopped. Use Step or Run
kullandığım sorgu
SELECT '' as kartfc,'' as akartno ,'' as kartid, --P.TCKIMLIK, P.ADI, P.SOYADI, P.SICIL, --'Aktif', CASE --P.CIKTAR WHEN P.CIKTAR <> '' THEN 'Pasif' ELSE 'Aktif' END AS DURUM, CASE P.FIRMA WHEN '1' THEN '4' WHEN '2' THEN '5' WHEN '3' THEN '6' ELSE '' END AS FIRMA, CASE P.GOREV WHEN '1' THEN '1' WHEN '2' THEN '2' WHEN '3' THEN '4' WHEN '4' THEN '4' WHEN '5' THEN '6' WHEN '6' THEN '6' ELSE '' END AS GOREV, -- 'bolumid', CASE P.BOLDEPARTMAN WHEN '1' THEN '1' WHEN '2' THEN '3' WHEN '3' THEN '3' WHEN '4' THEN '7' WHEN '5' THEN '5' WHEN '6' THEN '6' ELSE '' END AS DEPARTMAN, P.ISEGIRTAR, P.CIKTAR, 'maas' as ucrettipi,'' as resim, 'personel' as personelturu, '1' as fazlamesaialir,'0'as agialir ,'0' as parmaktanimlandi,'0' as sgk_issizliksigortakes, 'Normal' as sgk_grubu, '01' as sgk_belgeturu, '00000' as sgk_tabioldugukanun, '0' as sgk_ozurlulukderecesi,'1' as wckesintisiuygula,'1' as agicocukparasialsin, CASE P.BIRAMIRI WHEN '1' THEN '1' WHEN '2' THEN '7' WHEN '3' THEN '5' WHEN '4' THEN '7' WHEN '5' THEN '3' WHEN '6' THEN '2' WHEN '7' THEN '4' WHEN '8' THEN '7' WHEN '9' THEN '10' WHEN '10' THEN '9' WHEN '11' THEN '7' WHEN '12' THEN '6' WHEN '13' THEN '10' WHEN '14' THEN '11' ELSE '' END AS MUDUR FROM PERSONEL P LEFT JOIN FIRMA F ON (F.ID=P.FIRMA) LEFT JOIN GOREV G ON (G.ID=P.GOREV) LEFT JOIN MUDUR M ON (M.ID=P.BIRAMIRI) left join DEPARTMAN D ON (D.ID=P.BOLDEPARTMAN) WHERE P.IL=1
kullandığım kod
procedure TForm1.BitBtn1Click(Sender: TObject); begin while not Per_Bilgi.Eof do begin Tur_Bilgi.Append; ;//insert;// insert; Tur_Bilgi.fieldbyname('kartfc').value := Per_Bilgi.fieldbyname('kartfc').value; Tur_Bilgi.fieldbyname('kartno').value := Per_Bilgi.fieldbyname('akartno').value; Tur_Bilgi.fieldbyname('kartid').value := Per_Bilgi.fieldbyname('kartid').value; Tur_Bilgi.fieldbyname('ad').value := Per_Bilgi.fieldbyname('ADI').value; Tur_Bilgi.fieldbyname('soyad').value := Per_Bilgi.fieldbyname('SOYADI').value; Tur_Bilgi.fieldbyname('sicilno').value := Per_Bilgi.fieldbyname('SICIL').value; Tur_Bilgi.fieldbyname('durum').value := Per_Bilgi.fieldbyname('DURUM').value; Tur_Bilgi.fieldbyname('firmaid').value := Per_Bilgi.fieldbyname('FIRMA').value; Tur_Bilgi.fieldbyname('grupid').value := Per_Bilgi.fieldbyname('GOREV').value; Tur_Bilgi.fieldbyname('bolumid').value := Per_Bilgi.fieldbyname('DEPARTMAN').value; Tur_Bilgi.fieldbyname('isegiristarihi').value := Per_Bilgi.fieldbyname('ISEGIRTAR').value; Tur_Bilgi.fieldbyname('istencikistarihi').value := Per_Bilgi.fieldbyname('CIKTAR').value; Tur_Bilgi.fieldbyname('ucrettipi').value := Per_Bilgi.fieldbyname('ucrettipi').value; Tur_Bilgi.fieldbyname('resim').value := Per_Bilgi.fieldbyname('resim').value; Tur_Bilgi.fieldbyname('personelturu').value := Per_Bilgi.fieldbyname('personelturu').value; Tur_Bilgi.fieldbyname('fazlamesaialir').value := Per_Bilgi.fieldbyname('fazlamesaialir').value; Tur_Bilgi.fieldbyname('agialir').value := Per_Bilgi.fieldbyname('agialir').value; Tur_Bilgi.fieldbyname('parmaktanimlandi').value := Per_Bilgi.fieldbyname('parmaktanimlandi').value; Tur_Bilgi.fieldbyname('sgk_issizliksigortakes').value := Per_Bilgi.fieldbyname('sgk_issizliksigortakes').value; Tur_Bilgi.fieldbyname('sgk_grubu').value := Per_Bilgi.fieldbyname('sgk_grubu').value; Tur_Bilgi.fieldbyname('sgk_belgeturu').value := Per_Bilgi.fieldbyname('sgk_belgeturu').value; Tur_Bilgi.fieldbyname('sgk_tabioldugukanun').value := Per_Bilgi.fieldbyname('sgk_tabioldugukanun').value; Tur_Bilgi.fieldbyname('sgk_ozurlulukderecesi').value := Per_Bilgi.fieldbyname('sgk_ozurlulukderecesi').value; Tur_Bilgi.fieldbyname('wckesintisiuygula').value := Per_Bilgi.fieldbyname('wckesintisiuygula').value; Tur_Bilgi.fieldbyname('agicocukparasialsin').value := Per_Bilgi.fieldbyname('agicocukparasialsin').value; Tur_Bilgi.fieldbyname('bolumy').value := Per_Bilgi.fieldbyname('MUDUR').value; Tur_Bilgi.ExecSQL; Per_Bilgi.next; end; Per_Bilgi.First;