VALUES sorunu

[gokhanbek]

objconnection.Execute "INSERT INTO [Performans] ([tarih], [sicilno], [calisanisci], [ymkodu], [ymmalzeme], [baslamasaati], [bitissaati], [operasyonkodu], [vardiya], [mola], [kapasite9], [malzemeismi], [saatfarki], [calistigidakika], [hurda], [hurdayuzde], [dahilolmayansure], [aciklama], [grup], [kalipno], [kalipadi], [tarihfiltre], [yuzde]) VALUES (@tarih, @sicilno, @calisanisci, @ymkodu, @ymmalzeme, @baslamasaati, @bitissaati, @operasyonkodu, @vardiya, @mola, @kapasite9, @malzemeismi, @saatfarki, @calistigidakika, @hurda, @hurdayuzde, @dahilolmayansure, @aciklama, @grup, @kalipno, @kalipadi, @tarihfiltre, @yuzde)"



merhaba VALUES de @ile başlayan veriler yerine a1,a2,c4,b3 gibi hücre değerlerini yazmak istiyorum ne yapmam gerekli?

 

[Tarkan VURAL]

Elinizdeki deklare edilmiş değişkenleri VBA dilinin anlayacağı modele çevirmelisiniz.
Örnek:
A4 hücresinde @aciklama, b4 hücresinde de @kalipno yazıyor olsun.

objconnection.Execute "INSERT INTO [aciklama], [kalipno]) VALUES ('" & range("a4").value & "'," & range("b4").value & ")"

Sayısal değer içeren verileri tek tırnak olmadan, metinsel değer içeren verileri tek tırnak ile işleyiniz.

Ya da aynı mantıkta değişken kullanarak;

dim aciklama as string, kalipno as long
aciklama = range("a4").value
kalipno = range("b4").value
objconnection.Execute "INSERT INTO [aciklama], [kalipno]) VALUES ('" & aciklama & "'," & kalipno & ")"

Kolay gelsin.

 

[gokhanbek]

günaydın

tarhan bey

eline sağlık çok işime yaradı sağ olun kolay gelsin

 

[gokhanbek]

tarkan bey
merhaba

sql tablomuzda bulunan numeric(18, 2)

excel tablomuzdan yuzde = Range("yuzde").Value
şeklind de yolluyor fakat küsürat 99.12'yi 99.00 şeklinde yazıyor.

yuzde = format( Range("yuzde").Value, "0,00") şeklinide denedim ne yapmam lazım