Skip to main content

AccessTr.neT


Excelden Accese Veri Atarken Boş Hücreyi Atlama

Excelden Accese Veri Atarken Boş Hücreyi Atlama

Çözüldü #1
merhaba arkadaşlar aşağıdaki kodala excelden accese veri yolluyorum ama bazen hücreler boş kalabilior o zamanda hata veriyor illaki hücreleri doldurmam gerekiyor hücre boşsa onu atla şeklinde bir şey yapmak mümkün mü ?
teşekkürler.

Kod:
strqry = "Insert into adres(isim,BABA_ADI,ANA_ADI) VALUES ('" + Hcr.Text + "','" + Hcr.Offset(0, 2).Text + "','" + Hcr.Offset(0, 3).Text + "')"
con.Execute strqry

Cevapla
#2
ilgili alan boş ise NULL yazarak denenebilir
tabi örneğiniz olmadığı için deneme imkanım olmadı ama kabaca aşağıdkine benzer bir kod kullanılabilir
iif(len(alan)=0,null, değer) mantığı kullanılmıştır
strqry = "Insert into adres(isim,BABA_ADI,ANA_ADI) VALUES (" & iif(len(Hcr.Text)=0,"Null", "'" & Hcr.Text & "'") & "," 
& iif(len( Hcr.Offset(0, 2).Text )=0,"Null","'" & Hcr.Offset(0, 2).Text  & "'") &  "," & iif(len( Hcr.Offset(0, 3).Text )=0,"Null","'" & Hcr.Offset(0, 3).Text  & "'" ) &  ")"
con.Execute strqry
Cevapla
#3
(17/09/2022, 14:30)berduş yazdı: ilgili alan boş ise NULL yazarak denenebilir
tabi örneğiniz olmadığı için deneme imkanım olmadı ama kabaca aşağıdkine benzer bir kod kullanılabilir
iif(len(alan)=0,null, değer) mantığı kullanılmıştır
strqry = "Insert into adres(isim,BABA_ADI,ANA_ADI) VALUES (" & iif(len(Hcr.Text)=0,"Null", "'" & Hcr.Text & "'") & "," 
& iif(len( Hcr.Offset(0, 2).Text )=0,"Null","'" &  Hcr.Offset(0, 2).Text  & "'") &  "," & iif(len( Hcr.Offset(0, 3).Text )=0,"Null","'" &  Hcr.Offset(0, 3).Text  & "'" ) &  ")"
con.Execute strqry

teşekkürler elinize sağlık.
Cevapla
#4
sorunsuz çalıştı mı?
cevaplanmışlara taşıyalım mı?
Cevapla
#5
(17/09/2022, 16:28)berduş yazdı: sorunsuz çalıştı mı?
cevaplanmışlara taşıyalım mı?

evet sorunsuz çalişti teşekkürler.
Cevapla
#6
rica ederim
iyi çalışmalar
Not: Lütfen sorularınıza her zaman örnek dosya ekleyiniz
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da