Excelden Accese Veri Atarken Boş Hücreyi Atlama

17/09/2022, 09:53

yakanic

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
17/09/2022, 14:30

berduş

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
17/09/2022, 16:02

yakanic

(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.
17/09/2022, 16:28

berduş

sorunsuz çalıştı mı?
cevaplanmışlara taşıyalım mı?
17/09/2022, 18:28

yakanic

(17/09/2022, 16:28)berduş yazdı: sorunsuz çalıştı mı?
cevaplanmışlara taşıyalım mı?

evet sorunsuz çalişti teşekkürler.
17/09/2022, 18:29

berduş

rica ederim
iyi çalışmalar
Not: Lütfen sorularınıza her zaman örnek dosya ekleyiniz