Recordset Sementara Dengan Desimal

Membuat recordset sementara di visual basic 6 yang diharuskan memakai angka dibelakang koma/desimal (presisi).
Untuk menentukan jumlah koma/desimal harus menyertakan kode ini

    rs.Fields("Saldo").NumericScale = 2

Jika anda tidak menyertakan kode diatas, maka hanya nilai realnya aja yang diambil atau tanpa desimal.
Misalnya :
Rate = 7800,56 
maka nilai yang akan disimpan di recordset hanya 7800

Berikut contohnya :

Set rs = New ADODB.Recordset
With rs    
    .Fields.Append "Nomor", adBigInt, , adFldIsNullable
    .Fields.Append "Nama", adVarChar, 50, , adFldIsNullable
    .Fields.Append "Rate", adDouble, , adFldIsNullable
    .Fields("Rate").NumericScale = 4    'ini untuk menentukan jumlah angka koma / presisi
    .Fields.Append "Saldo", adCurrency, , adFldIsNullable
    .Fields("Saldo").NumericScale = 2   'ini untuk menentukan jumlah angka koma / presisi
    .Open
End With

Related Post :