Belajar Pemrograman: database

Tampilkan postingan dengan label database. Tampilkan semua postingan

Menampilkan data pada VB.Net

Diposting oleh admin | Label: database, vb.Net

Menampilkan data dengan Data Grid View

Kali ini, kita akan coba buat data sederhana yang dapat ditampilkan secara langsung pada DataGridView.

Langkah-langkah untuk membuat Quick Sort di VB.Net adalah:

1. Buat sebuah project baru di VB.Net. Tambahkan kontrol DataGridView deng

an nama DataGridView1, dan tiga buah commandbuttonyangmasing-masing bernama Button1 (dengan caption Load Data), Button 2 (dengan caption Clear Data), dan Button 3 (dengan caption Exit).

2. Kode berikut digunakan untuk mengisikan data yang hendak ditampilkan. Data yang ditampilkan menggunakan class TableData yang terdiri dari 3 property, yaitu Pemilik, Peliharaan, dan NamaPeliharaan. Masing-masing property berjenis string:

Public Class Form1
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Dim td1 As New TableData
td1.Pemilik = "Frank"
td1.Peliharaan = "Sapi"
td1.NamaPeliharaan = "Mooow"
Dim td2 As New TableData
td2.Pemilik = "Goldi"
td2.Peliharaan = "Anjing"
td2.NamaPeliharaan = "Bleki"
Dim td3 As New TableData
td3.Pemilik = "Karlo"
td3.Peliharaan = "Katak"
td3.NamaPeliharaan = "Kwok-kwok"
Dim arr(3) As TableData
Dim i As Long
arr(0) = td1
arr(1) = td2
arr(2) = td3
DataGridView1.DataSource = arr
For i = 0 To 2
'autoresize each column
DataGridView1.AutoResizeColumn(i)
Next i
End Sub
Private Sub Button3_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles Button3.Click
End
End Sub
Private Sub Button2_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
DataGridView1.DataSource = Nothing
End Sub
End Class
3. Struktur data untuk data yang hendak ditampilkan, disimpan pada Class TableData:
Public Class TableData
Private mOwner As String
Private mPet As String
Private mPetname As String
Public Property Pemilik() As String

Get
Return mOwner
End Get
Set(ByVal value As String)
mOwner = value
End Set
End Property
Public Property Peliharaan() As String
Get
Return mPet
End Get
Set(ByVal value As String)
mPet = value
End Set
End Property
Public Property NamaPeliharaan() As String
Get
Return mPetname
End Get
Set(ByVal value As String)
mPetname = value
End Set
End Property

End Class
4. Jalankan program, dan hasil yang ditampilkan adalah:

Ohya, baca juga artikel: Nissan X-trail Mobil SUV Tangguh dan Sporty Terbaik Selengkapnya...

Database dengan Visual Basic 6.0 (part 2)

Diposting oleh admin | Label: database, visual basic

Pada artikel sebelumnya, kita telah membuat database access, form1 pada Visual Basic Proyek.

Nah, sekarang kita akan mengisikan form 1 dengan listing program. Klik kanan form tersebut, lalu pilih "view code:

'Pada Form ( Untuk Koneksi Data1 ke database access versi 97 )
Private Sub Form_Load()
Data1.DatabaseName = App.Path + "\dataku.mdb"
Data1.RecordSource = "Mhs"End Sub

'Pada Text1 ( Ingat eventnya Keypress bukan change ) :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

'Pada text 2 :
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub
'Pada text 3 :
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub
'Pada Command1 :
Private Sub Command1_Click()
Data1.Recordset.AddNew
Data1.Recordset("Nim") = Text1.Text
Data1.Recordset("Nama") = Text2.Text
Data1.Recordset("Alamat") = Text3.Text
Data1.Recordset.Update
Command5.Value = True
End Sub
'Pada Command3 :
Private Sub Command3_Click()
Data1.Recordset.Edit
Data1.Recordset("Nim") = Text1.Text
Data1.Recordset("Nama") = Text2.Text
Data1.Recordset("Alamat") = Text3.Text
Data1.Recordset.Update
Command5.Value = True
End Sub

'Pada Command4 :
Private Sub Command4_Click()
Data1.Recordset.MoveFirst
i = 1
j = Data1.Recordset.RecordCount
While i < text =" Data1.Recordset(" text =" Data1.Recordset(" k =" j" i =" (i" i =" i">

'Pada Command5 :
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
'Pada Command6 :
Private Sub Command6_Click()
Unload Me
End Sub

Selamat menjalankan program....!!
Nissan X-trail Mobil SUV Tangguh dan Sporty Terbaik yach....!!
:) Selengkapnya...

Database dengan Visual Basic 6.0 (part 1)

Diposting oleh admin | Label: database, visual basic

A. Koneksi Database.

Sebagai Latihan awal, buatlah database di Ms.Access Simpan di
D:\nama_nim\data1.mdb. Buatlah table dengan nama MHS sebagai berikut :

Kemudian jika perlu, isi field-filed pada NIM, Nama dan Alamat sebagai contoh.

Save, kemudian, lihat versi office anda, jika bukan versi 1997 ( office 2000 atau XP ),
maka konversikan ke 1997 format, caranya :

Klik Tools, Database utilities, Convert database, to Access 97 format.
Simpan di folder yang sama, beri nama dataku.mdb, klik ok, kini tersedia
database dengan nama dataku dengan Ms.Access versi 97.
Keluar dari Ms.access.

Bekerja dengan Microsoft Visual Basic 6.0.(VB).
Langkah – Langkahnya :

Masukkan Komponen Label,Text,Command, Data, dan DBGrid, ke dalam
Form aktif/ form kerja kita,namun, kadangkala DB Grid tidak otomatis ada,
maka kita menambah komponen dengan cara klik kanan toolbox, klikComponents :

Pilih Microsoft Databound Grid Control 5.0 (SP3), Klik Apply,klik close.

Sekarang buat tampilan sebagai berikut dengan objektext,label,command,data, dan DB Grid :

Set propertinya sebagai berikut :
Simpan form & Projectnya di folder tempat anda menyimpan database.
Cara memasukkan script adalah double click pada objeknya, berikut listing /
script programingnya :bersambung....... (part 2)