Recent Posts

Sunday, January 20, 2013

Cara Membuat Penomoran Otomatis Di VB.6

Jika anda ingin membuat suatu program pendaftaran misalkan, pasti di awal ada label Nomor,Nama,Tlp,dll
Nah saya akan mengasih tutorial kepada anda" bagaimana cara membuat Nomor Otomatis di VB.
ok langsung saja kita praktekan :
-Pertama" Kita Masukan Textbox & Comman Button ke Form

-Kedua kita masukan componen Microsoft ADO Data Control 6.0 & Microsoft Windows Common      Control 6.0 ( tekan CTRL + E di keyboard )

-Ketiga Masukan Adodc & Listview ke Form
-Keempat kita tambah Module ke dalam project kita.

  • Klik Project -> Add Module -> Open
  • Masukan Syntak di bawah ke dalam Module
  • Klik show untuk melihat syntak
    Option Explicit Public db As New ADODB.Connection Public rs As New ADODB.Recordset Dim b As Integer Public sql As String 'Public Function koneksi_database() As Boolean = BERGUNA UNTUK MENGHUBUNGKAN/MENGKONEKSIKAN DATABASE KE VB Public Function koneksi_database() As Boolean On Error GoTo pesan If db.State = adStateOpen Then db.Close End If 'INI MERUPAKAN SYNTAK YG KITA DAPAT DARI ADODC YG TELAH SUDAH DI KONEKSIKAN KE DATABASE db.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=penomoran.mdb;" & _ "Persist Security Info=False" db.CursorLocation = adUseClient koneksi_database = True Exit Function pesan: koneksi_database = False MsgBox "koneksi ke server tidak berhasil", 16, "error" End Function

-Kelima Masukan semua Syntak di bawah di view code

Klik show untuk melihat Syntak
Private Sub Command1_Click() Call koneksi_database With rs sql = "insert into contoh1(nomor) values('" & Text1.Text & "')" db.Execute (sql) End With Text1.Text = Val(Text1.Text) + 1 End Sub Private Sub Command2_Click() Call menampilkan_contoh End Sub Private Sub Form_Load() Call contoh Call menampilkan_contoh Dim a As Integer Call koneksi_database sql = "select nomor from contoh1 " rs.Open sql, db If rs.EOF = True Then a = 1 Text1.Text = a Else rs.MoveLast a = rs.Fields("nomor") a = a + 1 b = a Text1.Text = a End If End Sub Sub contoh() With ListView1 .View = lvwReport .GridLines = True .FullRowSelect = True With .ColumnHeaders .Add , , "Nomor", 1500 .Add , , "Keterangan", 1500 End With End With End Sub Sub menampilkan_contoh() Call koneksi_database sql = "select nomor,keterangan from contoh1 " rs.Open sql, db If rs.EOF = False Then ListView1.ListItems.Clear rs.MoveFirst Do While Not rs.EOF Set List = ListView1.ListItems.Add(, , rs.Fields("nomor")) ' List.SubItems(1) = rs.Fields("keterangan") rs.MoveNext Loop Else ListView1.ListItems.Clear End If End Sub Sub menampilkan_contoh3() Call koneksi_database sql = "select nomor,keterangan from contoh1 where nomor='" & Text2.Text & "'" rs.Open sql, db If rs.EOF = False Then ListView1.ListItems.Clear rs.MoveFirst Do While Not rs.EOF Set List = ListView1.ListItems.Add(, , rs.Fields("nomor")) List.SubItems(1) = rs.Fields("keterangan") rs.MoveNext Loop Else ListView1.ListItems.Clear End If End Sub

Coba Anda Jalankan ( F5 )

Anda Bisa Download Source Code ya :
 -Via MF Di Sini
 -Via SB Di Sini