Sql

[bojongkenyod]

mo nanya gw, gimana caranya ya isi dari query SQL misalnya:
inputan itu integer 1
outputnya jadi 'SATU'
tapi kalo 11
jadi 'SEBELAS'
begitu seterusnya... sampe 999....
ada yg gnerti ga nih?? gw cuman dapet logikanya doang... jadi dari 3 digit, klo digit k 2-nya 2, jadi 2 puluh.. kalo 1 jadi ... belas... cuman gmn cara nulis querynya yah???? help yaa

 

[Sandayu]

wah pertamax horee
emang itu pelajaran apa perasaan belon penah belajar

 

[byakuya]

wah pjg thu bro...................................

Public Function Terbilang(x As Currency)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
Dim baca As String

If x > 1E+15 Then
Terbilang = ""
Exit Function
End If
'jika x adalan 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
'Pisah masing-masing bagian untuk triliun, milyard, juta, ribu, rupiah dan sen
triliun = Int(x * 0.001 ^ 4)
milyar = Int((x - triliun * 1000 ^ 4) * 0.001 ^ 3)
juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) * 0.001 ^ 2)
ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) * 0.001)
satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
sen = Int((x - Int(x)) * 100)
'baca bagian triliun dan ditambah akhiran trilliun
If triliun > 0 Then
baca = Ratus(triliun, 5) + "triliun "
End If

'baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = baca + Ratus(milyar, 4) + "milyar "
End If
'baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + Ratus(juta, 3) + "juta "
End If
'baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + Ratus(ribu, 2) + "ribu "
End If
'baca bagian rupiah dan ditambah akhiran rupiah
If satu > 0 Then
baca = baca + Ratus(satu, 1)
End If
'baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + "koma " + Ratus(sen, 0) + "per seratus "
End If
End If
Terbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
End Function

Public Function TerbilangRp(x As Currency)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
Dim baca As String
If x > 1E+15 Then
TerbilangRp = ""
Exit Function
End If
'jika x adalah 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
'Pisah masing-masing bagian untuk triliun, milyard, juta, ribu, rupiah dan sen
triliun = Int(x / 1000 ^ 4)
milyar = Int((x - triliun * 1000 ^ 4) * 0.001 ^ 3)
juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)
ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
sen = Int((x - Int(x)) * 100)
'baca bagian triliun dan ditambah akhiran trilliun
If triliun > 0 Then
baca = Ratus(triliun, 5) + "triliun "
End If
'baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = baca + Ratus(milyar, 4) + "milyar "
End If
'baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + Ratus(juta, 3) + "juta "
End If
'baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + Ratus(ribu, 2) + "ribu "
End If
'baca bagian rupiah dan ditambah akhiran rupiah
If satu > 0 Then
baca = baca + Ratus(satu, 1) + ""
End If
'sebelum bagian sen
baca = baca & "rupiah "
'baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + Ratus(sen, 0) + "sen "
End If
End If
TerbilangRp = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
End Function

Function Ratus(x As Currency, Posisi As Integer) As String
Dim a100 As Integer, a10 As Integer, a1 As Integer
Dim baca As String
a100 = Int(x * 0.01)
a10 = Int((x - a100 * 100) * 0.1)
a1 = Int(x - a100 * 100 - a10 * 10)
If a100 = 1 Then
baca = "Seratus "
Else
If a100 > 0 Then
baca = angka(a100, Posisi) + "ratus "
End If
End If
'baca bagian puluhan dan satuan
If a10 = 1 Then
baca = baca + angka(a10 * 10 + a1, Posisi)
Else
If a10 > 0 Then
baca = baca + angka(a10, Posisi) + "puluh "
End If
If a1 > 0 Then
baca = baca + angka(a1, Posisi)
End If
End If
Ratus = baca
End Function

Function angka(x As Integer, Posisi As Integer)
Select Case x
Case 0: angka = "Nol"
Case 1:
If Posisi > 2 Then
angka = "Satu "
Else
angka = "Se"
End If
Case 2: angka = "Dua "
Case 3: angka = "Tiga "
Case 4: angka = "Empat "
Case 5: angka = "Lima "
Case 6: angka = "Enam "
Case 7: angka = "Tujuh "
Case 8: angka = "Delapan "
Case 9: angka = "Sembilan "
Case 10: angka = "Sepuluh "
Case 11: angka = "Sebelas "
Case 12: angka = "Duabelas "
Case 13: angka = "Tigabelas "
Case 14: angka = "Empatbelas "
Case 15: angka = "Limabelas "
Case 16: angka = "Enambelas "
Case 17: angka = "Tujuhbelas "
Case 18: angka = "Delapanbelas "
Case 19: angka = "Sembilanbelas "
End Select
End Function

@adul
kayaknya ini utk org kul bro............
ato mungkin ad sma yg belajar kali ya............./hmm

 

[Sandayu]

wah pantes gw g ngerti,,
ini pelajaran kul toh

 

[Nemesis]

wah kaga tau, gw taunya SQL = Susu QedeLai

 

[bojongkenyod]

wakakakkaa... dasar om neme....

btw, om bya, itu bahasa apaaan?? ko ada public sgala?

 

[juraganbata]

SQL toh ..... timpuk bata aja monitornya pasti rebes gan

 

[bojongkenyod]

problem solved.. ga spanjang yg s bya sih.. hahahaha

 

[Sandayu]

lah malah percaya si juragan lagi

 

[Ozma]

wakakakkaa... dasar om neme....

btw, om bya, itu bahasa apaaan?? ko ada public sgala?

bya pake vb tuh


saya bingung, yg diminta itu SQL apa Programming language ? /hmm
kalo SQL apa maksudnya stored procedure ya ?


sukurlah kalo uda solved /no1

 

[Nemesis]

kalo mo tau sql banyakin makan di A&W, disitu ada union ring

 

[bojongkenyod]

@ozma
store procesure tu buat bikin prosedur biar gampang, kan daripada kita harus nyalin sebanyak2 sinting tulisan:

select * from tbx where id='001' insert into.....(@nama,@id,@alamat,dsb..)

sebanyak 10 kali (kalo ada id 10 biji) kalo pake store procedure cukup sekali aja jadi misalnya uda dibikin store procedure spInsertKaryawan cukup ngisi:

exec spInsertKaryawan '001', 'Anto', 'Jl. Jalan 5', '022-5555555'

sisanya tinggal sama, tinggal ganti id, nama, dsb... jadi lebih singkat kan? hehehe... sama kaya function klo d php ato program...

@neme
apa hubungannya om antara union ring sama sql????

 

[Amaterasu]

mmm,..

{
Console.Writeline(“Amaterasu emang ganteng”);
Console.Writeline(“Bojong lagi pusing”);
Console.Writeline(“Amaterasu yg ganteng gak bisa bantu bojong”);
Console.Writeline(“keciaaan deh bojong”);

If(Amaterasu = “tidak bisa bantu”)
{
Console.Writeline(“kasih Grepe Amaterasu”);
}
else
{
Console.Writeline(“Jangan kasih Bata”);
}
}

semoga membantu!

 

[Ozma]

@ozma
store procesure tu buat bikin prosedur biar gampang, kan daripada kita harus nyalin sebanyak2 sinting tulisan:
sebanyak 10 kali (kalo ada id 10 biji) kalo pake store procedure cukup sekali aja jadi misalnya uda dibikin store procedure spInsertKaryawan cukup ngisi:

sisanya tinggal sama, tinggal ganti id, nama, dsb... jadi lebih singkat kan? hehehe... sama kaya function klo d php ato program...

@neme
apa hubungannya om antara union ring sama sql????

ou..
iya yg saya tanyakan tu, kamu perlunya stored procedure atau programming language..

 

[bojongkenyod]

ya yg dminta tdnya sql-nya... tp uda kburu beres... hahaha

 

[Nemesis]

@neme
apa hubungannya om antara union ring sama sql????

union ring temennya union select

 

[Sandayu]

@tas kamsud!!!! gw malah makin kga ngerti