Showing posts with label script. Show all posts
Showing posts with label script. Show all posts

Saturday, August 3, 2013

Membuat koneksi VB NET 2008 dengan MySql sekaligus menampilkannya

Langkah awal yang harus kita lakukan adalah menambahkan Reference, Caranya pilih Project=>Add Reference  Pilih Tab .NET cari mysql.data seperti gambar berikut, jika belum ada berarti belum diinstall mysql konektor net, silahkan download dulu di situr resmi mysql. Lihat gambar berikut.



Selanjutnya pada form ketikkan koding berikut :
Private Sub dispalydata()
        Dim konek As New MySql.Data.MySqlClient.MySqlConnection("server=www.db4free.net;user id=khoirulh1610;password=******;database=script16;port=3306")
        konek.Open()
        Dim rs As New MySql.Data.MySqlClient.MySqlDataAdapter("select * from toko", konek)
        Dim data As New DataTable("tb_user")
        rs.Fill(Data)
        DataGridView1.DataSource = Data
    End Sub
langkaah selanjutnya panggil sub tersebut pada saat form load

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call dispalydata()
 End Sub



Namun disini saya hany mencontohkan cara menampilkan data saja, untuk fungsi lainya akan saya bahan berikutnya.

Sunday, July 28, 2013

Contoh program vb6 system inventori Triple A

hari ini saya akan share tentang program system inventory contol, langsung saja berikut sreen shotnya
Tampilan produck record.

Menu customer record.


Bila anda berminat silahkan download scriptnya Disini bila ling download tidak bisa mohon kasih komen biar bisa kami perbaiki.

Wednesday, May 15, 2013

Visual Basic 6 (Modul Fungsi Terbilang)

Disni saya akan membagikan script dari fungsi terbilang di vb6. langsung saja buat sebuah modul dan tuliskan koding berikut.