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
1 comments:
makasih bozz ada program standar nya gak bagi2 donk kirim ke akun saya
gunawan19920501@gmail.com
Post a Comment
jangan lupa di komen ya ..