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

Mengambil Log Data di Fingerprint CZKEM

Berikut adalah cara pengambilan data log absen sidik jari di mesin fingerprint CZKEM. Untuk Koneksi ke mesin sidik jari silakan buka di Koneksi Fingerprint CZKEM.
Pertama-tama adalah membaca dulu semua data log

CZKEM1.ReadAllGLogData DeviceNumber

Proses pengambilan data log :

CZKEM1.SSR_GetGeneralLogData(DeviceNumber, EnrollNum, dwVerifyMode, dwInOutMode, dwYear, dwMonth, dwDay, dwHour, dwMinute, dwSecond, dwWorkCode)

Berikut contoh source code-nya :

Private Sub GetLogData()
Dim DeviceNumber As Long
Dim EnrollNum As String
Dim dwVerifyMode As Long
Dim dwInOutMode As Long
Dim dwYear As Long
Dim dwMonth As Long
Dim dwDay As Long
Dim dwHour As Long
Dim dwMinute As Long
Dim dwSecond As Long
Dim dwWorkCode As Long

    CZKEM1.ReadAllGLogData DeviceNumber
   
    While CZKEM1.SSR_GetGeneralLogData(DeviceNumber, EnrollNum, dwVerifyMode, dwInOutMode, dwYear, dwMonth, dwDay, dwHour, dwMinute, dwSecond, dwWorkCode)
        Text1.Text = EnrollNum
        Text2.Text = Format(dwDay, "00") & "/" & Format(dwMonth, "00") & "/" & Format(dwYear, "0000")
        Text3.Text = Format(dwHour, "00") & ":" & Format(dwMinute, "00") & ":" & Format(dwSecond, "00")
    Wend
End Sub

Semoga membantu...

** Mesin Fingerprint yang dipakai Solution X100-C

Penomoran Pada DatagridView VB.Net

Cara menambahkan nomor pada DatagridView :

Tuliskan Kode program dibawah ini di event RowPostPaint di DataGridView

Koneksi Database SQL Server dan VB.Net

ADO. NET
ADO merupakan singkatan dari Active X Data Object yang dipakai untuk mengaskes data dalam suatu
database seperti SQL Server, MS Access, Oracle ataupu file seperti file MS Excel. Didalam teknologi
.NET, ADO classic berkembang menjadi ADO.NET dengan beberapa perubahan seperti perubahan
object recordset dalam ADO menjadi beberpa object dalam ADO.NET dan lainnya.
Akses Data di ADO.NET bergantung pada dua komponen: Penyedia DataSet dan Data. Dataset
adalah, diputus dalam-memori representasi data. Hal ini dapat dianggap sebagai salinan lokal dari
bagian yang relevan dari database. DataSet adalah bertahan dalam memori dan data di dalamnya
dapat dimanipulasi dan diperbarui independen dari database. Ketika penggunaan DataSet ini selesai,
perubahan dapat dilakukan kembali ke pusat database untuk memperbarui. Data dalam DataSet dapat
dimuat dari sumber data yang valid seperti database server Microsoft SQL, Oracle atau database dari
database Microsoft Access.

Data Provider
Data Provider bertanggung jawab untuk menyediakan dan memelihara koneksi ke database. Sebuah
dataProvider adalah seperangkat komponen terkait yang bekerja sama untuk menyediakan data secara
efisien dan kinerja didorong. . NET Framework saat ini dilengkapi dengan dua DataProviders: SQL
Data Provider yang dirancang hanya untuk bekerja dengan SQL Server 7.0 Microsoft dan dataProvider
OLEDB yang memungkinkan kita untuk terhubung ke database jenis lain seperti Access dan Oracle.
Setiap data Provider terdiri dari kelas komponen berikut:

• Object Connection yang menyediakan koneksi ke database
• Object Command yang digunakan untuk mengeksekusi perintah
• Obyek DataReader yang menyediakan forward-only, read only, recordset terhubung
• Obyek DataAdapter yang populasikan DataSet terputus dengan data dan melakukan pembaruan.

Multiple Gammu Service

Membuat Servis Gammu :

1. Gammu-smsd -c smsd -i   (Servis Gammu dengan nama Standar GammuSMSD)

2. Gammu-smsd -i -c smsdrc -n Modem1 (Servis Gammu dengan Nama Modem1)

Gammu-smsd -i -c [NamaSmsdrc] -n [NamaService]

Contoh :

Gammu-smsd -i -c smsdrc -n Gammu1

Gammu-smsd -i -c smsdrc1 -n Gammu2

Menghapus Servis :

1. Gammu-smsd -u (Menghapus servis gammu dengan nama standar GammuSMSD)

2. Gammu-smsd -n Modem1 -u (Hapus servis Gammu dengan nama Modem1)

gammu-smsd -n [NamaService] -u

Contoh :

gammu-smsd -n Gammu1 -u

gammu-smsd -n Gammu2 -u

Menjalankan Service :

gammu-smsd -c [NamaSmsdrc] -n [NamaService] -s

Contoh :

gammu-smsd -c smsdrc -n Gammu1 -s

gammu-smsd -c smsdrc1 -n Gammu2 -s

Menghentikan Service :

gammu-smsd -c [NamaSmsdrc] -n [NamaService] -k

Contoh :

gammu-smsd -c smsdrc -n Gammu1 -k

gammu-smsd -c smsdrc1 -n Gammu2 -k

/ untuk cek koneksi dengan modem/HP apakah bekerja dengan baik

gammu –identify

// untuk mengirim SMS tanpa database

gammu –sendsms TEXT 08xxxxxxxxxx -text “coba”

// untuk install service gammu

gammu-smsd -c smsdrc -i

// untuk menjalankan service gammu

gammu-smsd -c smsdrc -s

// untuk mengirim sms dengan metode inject

gammu-smsd-inject -c smsdrc TEXT 08xxxxxxxxxx -text “coba”

// untuk mengirim sms dengan metode inject dengan jumlah karakter > 166

gammu-smsd-inject -c smsdrc EMS 08xxxxxxxxxx -text “coba”

// untuk stop service gammu

gammu-smsd -c smsdrc -k

// untuk uninstall service gammu

gammu-smsd -c smsdrc -u