Menu Horisontal

Selasa, 16 November 2010

Fungsi SQL Server


SQL Functions

kakashi


Table 10-1: Standard SQL2 Functions
SQL Function
Description
BIT_LENGTH (expression)
Memberikan nilai panjang dalam bit
CAST (value AS data type)
Mengubah tipe data
CHAR_LENGTH (expression)
Mengembalikan panjang karakter
CONVERT (expression USING conversion)
Mengubah tipe data
CURRENT_DATE
Mengembalikan tanggal sistem
CURRENT_TIME (precision)
-
CURRENT_TIMESTAMP (precision)
Mengembalikan waktu dan tanggal
EXTRACT (part FROM expression)
Memecah string
LOWER (expression)
Mengubah string menjadi huruf besar
OCTET_LENGTH (expression)
Mengembalikan panjang byte
POSITION (char expression IN source)
Mencari posisi karakter dalam string
SUBSTRING (string expression, start, length)
Mengambil sebagian string
TRANSLATE (string expression USING translation rule)
Mengubah string ke string lain dengan aturan tertentu
TRIM(LEADING | TRAILING | BOTH char expressionFROM string expression)
Menghapus karakter tertentu
UPPER (expression)
Mengubah string menjadi huruf besar




Senin, 15 November 2010

Convert vsFlexgrid ke Excel

Public Sub ConvertToExcel(cmDialog As CommonDialog, fg1 As VSFlexGrid, frm As Form)
On Error GoTo ErrorHandler
Dim mPath As String
cmDialog.Filter = "Microsoft Office Excel |*.xls|"
cmDialog.FilterIndex = 1
cmDialog.ShowSave
If cmDialog.FileName = "" Then Exit Sub
mPath = cmDialog.FileName
With fg1
frm.MousePointer = MousePointerConstants.vbHourglass
.SaveGrid mPath, flexFileExcel, SaveExcelSettings.flexXLSaveFixedCells
frm.MousePointer = MousePointerConstants.vbDefault
End With

ErrorHandler:
If Err.Number <> 0 Then MsgBox Err.Description, vbExclamation, "Informasi"
End Sub

Terbilang Bulat dari Masino Sinaga

Dari Masino Sinaga

Public Function TerbilangBulat(strAngka As String, _
Optional MataUang As String = "Rupiah") As String
Dim strJmlHuruf$, intPecahan As Integer
Dim strPecahan$, Urai$, Bil1$, strTot$, Bil2$
Dim X As Integer, Y As Integer, z As Integer
On Error GoTo Pesan
Dim strValid As String, huruf As String * 1
Dim i As Integer

If strAngka = "" Then Exit Function
If Len(Trim(strAngka)) > 15 Then GoTo Pesan
strJmlHuruf = LTrim(strAngka)
'intPecahan = Val(Right(Mid(strAngka, 15, 2), 2))
If (intPecahan = 0) Then
strPecahan = ""
Else

Filter vsFlexgrid

Contoh dibawah ini adalah bagaimana caranya menfilter vsFlexgrid dengan mengetikan awalan kata di Textbox

Private Sub Text12_Change()
Dim Kata As String
Dim i, Panjang As Long

Panjang = Len(Trim(Text12.Text))
For i = 1 To fg.Rows - 1
Kata = UCase(Left$(fg.TextMatrix(i, 1), Panjang))
If Kata <> UCase(Trim(Text12.Text)) Then
fg.RowHidden(i) = True
Else
fg.RowHidden(i) = False
End If
Next i

End Sub

Sabtu, 06 November 2010

Fungsi Pembulatan ke 1000 an dan Jumlah Lembar Uang

Cara dibawah ini adalah bagaimana mencari jumlah lembaran uang dari Jumlah tertentu

If (Total3 Mod 1000) >= 500 Then
TerimaGaji = Round(Total3 + (1000 - (Total3 Mod 1000)))
Else
TerimaGaji = Round(Total3 - (Total3 Mod 1000))
End If

Sepuluh = TerimaGaji \ 10000
LimaRibu = (TerimaGaji - Sepuluh * (10000)) \ 5000
Seribu = (TerimaGaji - (Sepuluh * 10000) - LimaRibu * 5000) \ 1000