Ngintip

Sekian lama tidak membuka blog, ternyata masih saja rame pengunjung tidak ada satupun komentar yang masuk dalma blog saya..
Blog yang hanya di gunakan pada saat ada tugas dari seorang yang namanya dosen, jika tidak ada tugas ya tetep aja di buka lah.. Hari ini minggu 2 juni 2013 saya membuka kembali blog saya setelah saya menonton motoGP dengan kekalahan dani pedrosa yang hanya mampu menempati di urutan ke dua saja, dan kali ini saya membuka hanya untuk mengecek saja agar blog ini tidak hangus termakan jaman.. Dengan gembira ternyata blog saya masih ada.. HOREeEee.. Udah dulu ahh ceritanya, di sambung lain kali lagi, semoga bagi kalian yang sedang membaca ini dalam keadaan sehat.. amin..

BACA SELANJUTNYA >>>>

Verifikation

Gara - gara akun tidak pernah di buka, maka akun ditanyakan keasliannya agar tau apakah itu si pemilik asli akun tersebut atau bukan, kemudian dimintai nomor verifikation melalui nimor ponsel anda. Kemudian masukan kode atau nomor verifikation tersebut dan akunpun bisa di buka kembali.. SEKIAN by : anasepoll

BACA SELANJUTNYA >>>>

Tugas Ke 7 Menggabungkan Antara Visual Basic 2010 Dan Database SQL Server 2005

Kali ini saya akan membahas tentang aplikasi penggabungan antara Visual Basic 2010 dan database SQL Server 2005. Walaupun terlambat, karena saya harus menginstal ulang windows terlebih dahulu sebelum saya menginstal SQL Server 2005.

langkah-langkahnya dibawah ini :

1. Buatlah tabel pada SQL Server.
Langkah pertama bukalah aplikasi SQL Server, kemudian klik connect.

Kemudian klik kanan database, lalu pilih new database, beri nama dan kemudian simpan pada drive D atau E terserah sesuaikan dengan keinginan anda. Setelah selesai maka klik OK.

Klik database yang telah anda buat tadi kemudian cari folder table setelah ketemu klik kanan lalu pilih new table, buatlah table tersebut dengan formatnya sesuai dengan kebutuhan. 

 

Kemudian klik save all dan jangan lupa berikan nama jika sudah lalu klik OK.

Kemudian klik kanan pada table yang anda buat kemudian klik open table dan isikan kolom pada table tersebut, bila semuanya sudah terisi klik save all.

2. Membuat form pada Visual Basic 2010. 

Buka aplikasi Visual Basic 2010 lalu klik new project, pilih visual basic dan  pilih windows form application setelah selese klik OK.

3. Menggabungkan Visual Basic 2010 dan database SQL Server 2005 

Klik menu data kemudian pilih Add New Data Source 

Kemudian pilih Database kemudian klik next, pilih Dataset klik next kembali.

Klik Next pilih New Connection

Pilih Microsoft SQL Server, lalu Continue.

Kemudian isikan User SQL Server Authentication lalu  pilihlah Select or enter a database name pilih nama database yang telah dibuat sebelumnya, kemudian klik test conection bila sukses klik ok, kemudian klik next, kemudian cetang pilihan sesuai kebutuhan kemudian klik finish.  

 

 

 

Drag atau tarik tabel (database mahasiswa) ke from, ganti jurusan dengan combobox

Kemudian buat label, textbox, combobox (Masukan TI dan SI yaitu klik kanan edit text dst), button awal, akhir, sebelum, selanjutnya, tambah, hapus, simpan ,cari, filter, dan terakhir keluar.

Koding Programnya :

 1. Button Awal :

Private Sub Btawal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btawal.Click
        DbmahasiswaBindingSource.MoveFirst()
    End Sub

Printscrennya: 

 

2. Button Akhir : 

Private Sub Btakhir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btakhir.Click
        DbmahasiswaBindingSource.MoveLast()
    End Sub

Printscrennya: 

 

3. Button Sebelumnya :

 Private Sub Btsebelum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsebelum.Click
        DbmahasiswaBindingSource.MovePrevious()
    End Sub

 Printscrennya: 

4. Button Selanjutnya:

 Private Sub Btselanjutnya_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btselanjutnya.Click
        DbmahasiswaBindingSource.MoveNext()
    End Sub

Printscrennya : 

5. Button Tambah :

Private Sub Bttambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bttambah.Click
        DbmahasiswaBindingSource.AddNew()
    End Sub

Printscrennya :

6. Button Hapus

Private Sub Bthapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bthapus.Click
        DbmahasiswaBindingSource.RemoveCurrent()
    End Sub

Printscrennya : 

7. Button Simpan

Private Sub Btsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsimpan.Click
        Me.Validate()
        Me.DbmahasiswaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)
    End Sub

Printscrennya :

8. Button Cari

Private Sub Btcari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btcari.Click
        If (DbmahasiswaBindingSource.Find("Nama", TextBox4.Text)) > -1 Then
            MsgBox("Data yang anda cari berhasil ditemukan")
        Else
            MsgBox("Data yang anda cari tidak berhasil ditemukan")
        End If

    End Sub

Printscrennya :

9. Button Keluar

Private Sub Btkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btkeluar.Click
        Me.Close()
    End Sub
End Class

BACA SELANJUTNYA >>>>

Gadget Lebih Awet

Ada banyak faktor yang menyebabkan barang - barang elektronik menjadi cepat rusak. Simak tips dan trik berikut ini agar barang elektronik anda awet dan tahan lama.

1. Beli Elektronik dengan merek dan kualitas yang telah teruji

2. Simpan barang - barang elektronik tersebut di ruangan terbuka yang mempunyai aliran udara yang baik agar pada saat dipakai barang - barang tersebut tidak cepat panas.
3. Segera matikan barang elektronik anda saat cuaca tidak bagus (banyak petir)
4. Jika rusak karena usia, segera bawa ke toko atau dealer tempat membeli barang tersebut.

Demikian yang dapat saya sampaikan, semoga dapat membantu. Terima Kasih

BACA SELANJUTNYA >>>>