From: Mucibirahman İLBUĞA (mucip.ilbuga@gmail.com)
Date: Wed 10 Jan 2007 - 12:09:24 GMT
Selamlar,
Win üzerinde Access ile tutulan verileri Firebird 1.5 üzerine Delphi ile aktarmaya çalışıyorum. Ancak garip bir durum var:
Aşağıdaki kodda kaynak alan mesela "KapiNo" boş ise ;
"Could not convert variant of type (null) into type (string)"
Hatası alıyorum... ADO, alanın içeriği boş ise Null dönderiyor anlaşılan. Bu sorunu SQL içerisinden halledebilir miyiz? Yoksa Delphide "if null" gibi bir çözüm mü yapmalıyız?
Teşekkürler,
Mucip:)
Özgürlük için http://www.pardus.org.tr/
****************************************************************
procedure TForm1.Button3Click(Sender: TObject);
begin
AdoTable1.First;
while not AdoTable1.Eof do
Begin
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.add('Insert into Secmen(TCKimlikNo,SecmenNo,Ad,Soyad,');
IBQuery1.SQL.add('IlkSoyad,AnaAdi,BabaAdi,Cinsiyet,DogumYeri,'); {DogumTarihi,}
IBQuery1.SQL.add('NufusIl,NufusIlce,AdresIlAd,AdresIlceAd,AdresMuhtarAd,AdresCaddeSokakAd,KapiNo,DaireNo,Bolge) values ');
IBQuery1.SQL.add('(''' + ADOTable1.FieldValues['TCKimlikNo'] + ''', ');
IBQuery1.SQL.add('''' + ADOTable1.FieldValues['SecmenNo'] + ''', ');
IBQuery1.SQL.add('''' + ADOTable1.FieldValues['Ad'] + ''', ');
IBQuery1.SQL.add('''' + ADOTable1.FieldValues['SoyAd'] + ''', ');
IBQuery1.SQL.add('''' + ADOTable1.FieldValues['IlkSoyAd'] + ''', ');
IBQuery1.SQL.add('''' + ADOTable1.FieldValues['AnaAdi'] + ''', ');
IBQuery1.SQL.add('''' + ADOTable1.FieldValues['BabaAdi'] + ''', ');
IBQuery1.SQL.add('''' + ADOTable1.FieldValues['Cinsiyet'] + ''', ');
IBQuery1.SQL.add('''' + ADOTable1.FieldValues['DogumYeri'] + ''', ');
IBQuery1.SQL.add('''' + ADOTable1.FieldValues['NufusIl'] + ''', ');
IBQuery1.SQL.add('''' + ADOTable1.FieldValues['NufusIlce'] + ''', ');
IBQuery1.SQL.add('''' + ADOTable1.FieldValues['AdresIlAd'] + ''', ');
IBQuery1.SQL.add('''' + ADOTable1.FieldValues['AdresIlceAd'] + ''', ');
IBQuery1.SQL.add('''' + ADOTable1.FieldValues['AdresMuhtarAd'] + ''', ');
IBQuery1.SQL.add('''' + ADOTable1.FieldValues['AdresCaddeSokakAd'] + ''', ');
IBQuery1.SQL.add('''' + ADOTable1.FieldValues['KapiNo'] + ''', ');
IBQuery1.SQL.add('''' + ADOTable1.FieldValues['DaireNo'] + ''', ');
IBQuery1.SQL.add('''TEST'');');
IBQuery1.Prepare;
IBQuery1.ExecSQL;
Edit1.Text:= ADOTable1.FieldValues['No'];
application.ProcessMessages;
AdoTable1.Next;
End;
IBDataset1.Close;
IBDataset1.Open;
//ADOTable1.FieldValues['HareketFisNo']
end;
****************************************************************
_______________________________________________
Linux-programlama mailing list
Linux-programlama@liste.linux.org.tr
http://liste.linux.org.tr/mailman/listinfo/linux-programlama