Tutorial VB : Cara mudah membuat Nomor antri harian.

Mungkin waktu pertama baca judul ini pembaca masih bingung apa maksud nya. Maklum saya aja buat nya waktu masih bingung. hehehe

Oke..!
Maksud judul diatas, kita akan membuat nomor antrian yang mana jika berganti hari maka antrian akan kembali pada angka 1, simple nya "Setiap hari antrian akan dimulai dari angka 1". Data ini disimpan dalam data base, jadi ketika form ditutup data antrian tidak hilang. :D

Lanjut..

Kita buat contoh:
1. Buat 1 table dengan nama TableAntri
2. Field table : ID, No_antri, nama_user, Tanggal_Entry (Supaya memudahkan qt buat field nya dikit aja)
3. Buat koneksi database nya seperti ini (Saya menggunakan database SqlServer 2005)

Private Sub Form_Load()
conn.CommandTimeout = 1200
    sqlstr = "Provider=MSDataShape;DataProvider=MSDASQL;DRIVER={SQL Server};SERVER="
    sqlstr = sqlstr & "VF-19\SQLEXPRESS" & ";UID="
    sqlstr = sqlstr & "sa" & ";PWD="
    sqlstr = sqlstr & "admin" & ";Database="
    sqlstr = sqlstr & "rjc" & ";"

    If conn.State = adStateOpen Then
        conn.Close
    End If
    conn.ConnectionString = sqlstr
    conn.CursorLocation = adUseClient
    
    
    
    conn.Open
End Sub

4. Kemudian sebuah Function untuk membuat Nomor antrian, silahkan temen2 pembaca kembangkan.

Private Function No_antri() As String
  Dim kode As String
  Dim nomor As Integer 
  Dim SqlStr As String 
  Dim rsc_kode As New ADODB.Recordset
  Dim Hari As Integer 

'==== Cek data yang telah di entry pada hari ini ===
'==== Jika Kosong maka akan dimulai dari 1 =====

SqlStr ="select count(tgl_entry) as Antrian from TableAntri where tgl_entry between '" &  Month(Date) &  "/" &  _
"" & Day(Date) &  "/" & ; Year(Date) & " 6:00:00am" & "'" & _
" and '" & Month(Date) & "/" & Day(Date) & "/" & _
" Year(Date) & 10:00:00pm" &  "'"
    '========================================
    
    If rsc_kode.State = adStateOpen Then
        rsc_kode.Close
    End If
    
    rsc_kode.Open SqlStr, conn, adOpenStatic, adLockOptimistic

'====== Jika tidak ada data hari ini maka angka adalah 0
  If rsc_kode.EOF = True Then
        nomor = 0
  Else
  If IsNull(rsc_kode("antrian")) = True then
      nomor = 0
  Else
      nomor = Val(Trim(rsc_kode("antrian")))
  End If
End If
'===== tambah 1 angka..      nomor = nomor + 1
    No_Urut = nomor
    
    If rsc_kode.State = adStateOpen Then
        rsc_kode.Close
    End If
    Set rsc_kode = Nothing
End Function

Contoh penggunaann nya seperti ini:

sql="insert into TableAntri (no_antri, nama_user, tgl_entry) " & _
" values ('"
Trim(No_antri) &  "','" &  _
         Trim(User) &  "','" &  _
         Trim(Now) &  "')

Nah demikian saja tutor hari ini, kalau ada salah mohon koreksi dari temen2 pembaca. :)