Sql Ve Round İŞlevİ

[erkankamilonas]

SELECT ISAKISLARI.No, ISAKISLARI."MAMÜL KODU", ISAKISLARI."MAMÜL TANIMI", ISAKISLARI."YARI MAMÜL TANIMI", ISAKISLARI."SİPARİŞ ADET", ISAKISLARI."ÜRÜN NO", ISAKISLARI."OPR KOD", ISAKISLARI."OPERASYON TANIMI", ISAKISLARI."TEZGAH AYARI", ISAKISLARI."İŞLEM SÜRESİ", ISAKISLARI."HÜCRE TANIMI", ISAKISLARI."İŞ SIRASI", ISAKISLARI."GERÇEKLEŞEN TEZGAH AYARI", ISAKISLARI."GERÇEKLEŞEN İŞLEM SÜRESİ", ISAKISLARI."GERÇEKLEŞEN TEZGAH", ISAKISLARI.DURUM, ISAKISLARI.BARKOD
FROM KRMZDATA.dbo.ISAKISLARI ISAKISLARI, mrp.dbo.urun_refakat_veritabani urun_refakat_veritabani
WHERE ISAKISLARI."ÜRÜN NO" = urun_refakat_veritabani."ÜRÜN NO"
ORDER BY ISAKISLARI."MAMÜL KODU" DESC

Bu kod ile ISAKISLARI ve urun_refakat_veritabani adlı table'lardan veri çekip eşeleşenleri listeleyen bir sorgu yazdım.
urun_refakat_veritabani adlı table'daki veriler 10.3333333 şeklinde bu verilerin Round(ISAKISLARI."GERÇEKLEŞEN İŞLEM SÜRESİ", 2) şeklinde yuvarlanmasını istiyorum. Acab SQL komutları ile yuvarlama işlemi nasıl yapılır yardımcı olurmusunuz?

 

[Zeki Gürsoy]

Sorgunuzda sorun görünmüyor ancak, (") tırnak işaretlerini kaldırarak deneyin.

Round([ISAKISLARI.GERÇEKLEŞEN İŞLEM SÜRESİ], 2)

 

[erkankamilonas]

Sorgunuzda sorun görünmüyor ancak, (") tırnak işaretlerini kaldırarak deneyin.

Round([ISAKISLARI.GERÇEKLEŞEN İŞLEM SÜRESİ], 2)

Sorumdaki sorgu MSQuery ile kullanılan bir yazım türü idi.
Sorumu şöyle değiştireyim:

Private Sub UserForm_Click()
Set con = New Connection
con.Provider = "Microsoft.Jet.OLEDB.4.0"
con.ConnectionString = ThisWorkbook.Path & "\VT.mdb"
con.Open
Set rec = New ADODB.Recordset
rec.Open Source:= _
"SELECT Round(Tablo,2) FROM [TABLO1]", _
ActiveConnection:=con, CursorType:=adOpenKeyset, _
LockType:=adLockOptimistic
On Error Resume Next
Do Until rec.EOF
ComboBox1.AddItem rec![Tablo]
rec.MoveNext
Loop
con.Close
End Sub

Şeklinde olması gerekemez mi? Ancak sonuç alamıyorum

 

[Zeki Gürsoy]

Şu şekilde olabilir..

[B][I]Private Sub UserForm_Click()
  Set con = New Connection
 con.Provider = "Microsoft.Jet.OLEDB.4.0"
 con.ConnectionString = ThisWorkbook.Path & "\VT.mdb"
 con.Open
 Set rec = New ADODB.Recordset
 rec.Open Source:= _
 "SELECT [COLOR=Red][COLOR=Blue]Round(Double_Alan_Adı, 2) AS Yuvarlanan[/COLOR] [/COLOR]FROM [TABLO1]", _
 ActiveConnection:=con, CursorType:=adOpenKeyset, _
 LockType:=adLockOptimistic
 On Error Resume Next
 Do Until rec.EOF
  ComboBox1.AddItem rec![[COLOR=Blue]Yuvarlanan[/COLOR]] [/I][/B][I][COLOR=DarkGreen]'// Önemli..[/COLOR][/I][B][I]
  rec.MoveNext
 Loop
 con.Close
End Sub[/I][/B]

 

[erkankamilonas]

Allah Razı olsun, teşekkürler.