Sub DataAktar()
strconnectstr = "Provider=SQLOLEDB.1;Password=******;Persist Security Info=True;User ID=*************;Initial Catalog=**************;Data Source=**********"
Set objconnection = New ADODB.Connection
objconnection.Open strconnectstr
tarih = Format(Range("tarih").Value, "mm.dd.yyyy")
sicilno = Range("sicilno").Value
calisanisci = Range("calisanisci").Value
ymkodu = Range("ymkodu").Value
ymmalzeme = Range("ymmalzeme").Value
baslamasaati = Format(Range("baslamasaati").Value, "HH:mm")
bitissaati = Format(Range("bitissaati").Value, "HH:mm")
operasyonkodu = Range("operasyonkodu").Value
vardiya = Range("vardiya").Value
mola = Range("mola").Value
kapasite9 = Range("kapasite9").Value
malzemeismi = Range("malzemeismi").Value
saatfarki = Format(Range("saatfarki").Value, "HH:mm")
calistigidakika = Range("calistigidakika").Value
hurda = Range("hurda").Value
hurdayuzde = Range("hurdayuzde").Value
dahilolmayansure = Range("dahilolmayansure").Value
aciklama = Range("aciklama").Value
grup = Range("grup").Value
kalipno = Range("kalipno").Value
kalipadi = Range("kalipadi").Value
tarihfiltre = Range("tarihfiltre").Value
yuzde = Range("yuzde").Value
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 & ")"
objconnection.Close
Set objconnection = Nothing
yüzde yazan bölümde range ile sql veri yolluyorum ama küsürat 100,23 ü 100,00 olarak sql görünüyor ne yapmam lazım 2 gündür uğraşıyorım
strconnectstr = "Provider=SQLOLEDB.1;Password=******;Persist Security Info=True;User ID=*************;Initial Catalog=**************;Data Source=**********"
Set objconnection = New ADODB.Connection
objconnection.Open strconnectstr
tarih = Format(Range("tarih").Value, "mm.dd.yyyy")
sicilno = Range("sicilno").Value
calisanisci = Range("calisanisci").Value
ymkodu = Range("ymkodu").Value
ymmalzeme = Range("ymmalzeme").Value
baslamasaati = Format(Range("baslamasaati").Value, "HH:mm")
bitissaati = Format(Range("bitissaati").Value, "HH:mm")
operasyonkodu = Range("operasyonkodu").Value
vardiya = Range("vardiya").Value
mola = Range("mola").Value
kapasite9 = Range("kapasite9").Value
malzemeismi = Range("malzemeismi").Value
saatfarki = Format(Range("saatfarki").Value, "HH:mm")
calistigidakika = Range("calistigidakika").Value
hurda = Range("hurda").Value
hurdayuzde = Range("hurdayuzde").Value
dahilolmayansure = Range("dahilolmayansure").Value
aciklama = Range("aciklama").Value
grup = Range("grup").Value
kalipno = Range("kalipno").Value
kalipadi = Range("kalipadi").Value
tarihfiltre = Range("tarihfiltre").Value
yuzde = Range("yuzde").Value
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 & ")"
objconnection.Close
Set objconnection = Nothing
yüzde yazan bölümde range ile sql veri yolluyorum ama küsürat 100,23 ü 100,00 olarak sql görünüyor ne yapmam lazım 2 gündür uğraşıyorım