Skip to main content

AccessTr.neT


Ölçüt ifadesinde veri türü uyuşmazlığı.

Ölçüt ifadesinde veri türü uyuşmazlığı.

#1
Aşağıdaki kodda hata alıyorum.bir çözüm bulan var mı ?

"kayan" isimli alanım evet/hayır tipinde.

Dim urunadi, urunresim, eklenmetarihi As String
Dim KAYAN As Boolean

urunadi = urunaditext.Text
eklenmetarihi = Now
If kayanresimchk.Checked = "True" Then
KAYAN = True
Else
KAYAN = False
End If

If resimup.FileName = "" Then
urunresim = "urunler\" + "resimyok.jpg"
End If
If resimup.FileName <> "" Then
resimup.SaveAs(Server.MapPath("urunler\" + resimup.FileName))
urunresim = "urunler\" + resimup.FileName
End If

sorgu.Connection = baglanti
sorgu.CommandText = "insert into urunler(urunadi,eklenmetarihi,urunresim,kayan) values ('" & urunadi & "','" & eklenmetarihi & "','" & urunresim & "','" & KAYAN & "')"
sorgu.ExecuteNonQuery()
Cevapla
#2
Aldığınız Hata Nedir?
Cevapla
#3
aldığım hata Ölçüt ifadesinde veri türü uyuşmazlığı.

checkbox kullanıyorum hata ondan kaynaklanıyor benim düşüncem. Ama nasıl gidreceğimi bulamadım...
Cevapla
#4
Gördüğüm kadarıyla;

If kayanresimchk.Checked = "True" Then
Burada tırnak işaretlerini kaldırıp deneyin.
If kayanresimchk.Checked = True Then

If resimup.FileName = "" Then
urunresim = "urunler\" + "resimyok.jpg"
End If
If resimup.FileName <> "" Then
resimup.SaveAs(Server.MapPath("urunler\" + resimup.FileName))
urunresim = "urunler\" + resimup.FileName
End If

Buradaki ifadelerde de + işareti yerine & işaretini kullanın.

If resimup.FileName = "" Then
urunresim = "urunler\" & "resimyok.jpg"
End If
If resimup.FileName <> "" Then
resimup.SaveAs(Server.MapPath("urunler\" & resimup.FileName))
urunresim = "urunler\" & resimup.FileName
End If
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task