Sv Scripts

Dalam penggunaan VB.Net, banyak cara untuk mengkoneksikan applikasi yang kita buat kedalam database. sekarang saya akan menjelaska cara untuk mengkoneksikan database melalui binding data.

langkah pertama adalah membuat koneksi antara VB.net dengan Sql server yang telah terinstal di komputer. dalam hal ini saya menggunakan Sql Server 2000

1.  VIEW => Server Explore setelah muncul server explore, kemudian klik kanan pada Data Connection lalu Add Connection, hingga muncul gambar seperti dibawah ini :


2. pada Server Name tuliskan nama server Sql server atau menggunakan tanda titik ( . ) untuk data lokal, dan pada Select enter a database name pilihkan database yang telah anda buat. sebelumnya saya telah membuat database di Sql server 2000 dengan nama database datamahasiswa yang terdiri dari field NIM, Nama, Jurusan, Agama, dan NIM sebagai Primary Key nya.

3. Jika sudah, dapat menggukana Test Connection untuk mengecek keberhasilan koneksinya.
dan pada server explorer akan muncul nama server, dan database nya.


4. Buatlah Form seperti ini :


5. pada Properties NIM (textbox1) lalu expand Data Binding dengan mengklik tanda (+) , lalu pilih Text lalu cari table database yang anda buat, pilih NIM. lalu lakukan hal seperti ini pada textbox yang lain, sesuai dengan nama fielnya masing-masing.


6. Sedangkan untuk mengkoneksikan database ke Binding Navigation yaitu dengan mengklik tanda panah kecil pada navigation, kemudian pilih Edit Item lalu pada Binding Source pilih Database.



7. langkah terakhir adalah memberikan koding pada tiap event.


Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DatamahasiswaDataSet.mahasiswa' table. You can move, or remove it, as needed.
        Me.MahasiswaTableAdapter.Fill(Me.DatamahasiswaDataSet.mahasiswa)
        Me.Text = "Browse Data Employees"
        Me.BackColor = Color.PaleGreen
        Me.StartPosition = FormStartPosition.CenterScreen
        Me.GroupBox1.Text = "| Data Mahasiswa |"
        Me.GroupBox1.BackColor = Color.LightGreen
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub BindingNavigatorMoveNextItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMoveNextItem.Click
        Me.BindingContext(Me.DatamahasiswaDataSet, "Mahasiswa").Position += 1
    End Sub

    Private Sub BindingNavigatorMovePreviousItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMovePreviousItem.Click
        Me.BindingContext(Me.DatamahasiswaDataSet, "Mahasiswa").Position -= 1
    End Sub

    Private Sub BindingNavigatorMoveFirstItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMoveFirstItem.Click
        Me.BindingContext(Me.DatamahasiswaDataSet, "Mahasiswa").Position = 0
    End Sub

    Private Sub BindingNavigatorMoveLastItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMoveLastItem.Click
        Me.BindingContext(Me.DatamahasiswaDataSet, "Mahasiswa").Position = Me.BindingContext(Me.DatamahasiswaDataSet, "Mahasiswa").Count - 1
    End Sub
End Class

Keterangan = Button1 adalah button untuk CLOSE Apllikasi

Mudah kan :)
Semoga bermanfaat...

Manchester - Sanjungan untuk Sir Alex Ferguson belum berhenti mengalir. Salah satu anak buahnya, Anders Lindegaard, juga melontarkan pujian untuk pria asal Skotlandia itu.


Sir Alex tengah merayakan "hari ulang tahun" yang ke-25 atas jabatannya sebagai manajer Manchester United pada 6 November kemarin. Banyak hal dilakukan untuk menyambut pencapaian itu. Mulai dari guard of honour sebelum laga MU vs Sunderland, Sabtu (6/11), sampai sebuah tribun khusus untuknya.


Di dalam riuh rendah tepuk tangan sebelum laga melawan The Black Cats, sebuah penutup di bagian utara stadion dibuka. Lantas terlihatlah tulisan "Sir Alex Ferguson Stand", di kawasan yang sebelumnya dikenal sebagai North Stand tersebut.


"Well, itu menjelaskan semuanya," kata Lindegaard ketika diwawancarai MUTV.


"Salah satu tribun terbesar di dunia kini dinamai Sir Alex Ferguson. Saya sendiri akan sangat terkejut jika ada satu saja kursi di luar sana dinamai 'Kursi Anders Lindegaard'."


"Jadi, itu mengatakan semuanya. Dia membangun klub ini dari bawah. Dia adalah manajer terbaik dalam sejarah sepakbola," tukas kiper asal Denmark ini.


Selama 25 tahun melatih MU, Sir Alex telah menyumbang banyak trofi. Pencapaian teranyarnya bersama 'Setan Merah' adalah meraih titel ke-19 pada akhir musim lalu, yang mana membuat MU menjadi klub dengan koleksi gelar Liga Inggris terbanyak.


sumber : www.detiksport.com

Macam macam ukuran foto

Ukuran 2x3	Lab foto tertentu	2,2  x   3,0 cm
Ukuran 2x3	Ukuran Foto KTP	2   x   2,7 cm
Ukuran 3x4	Ukuran Foto Ijazah	2,8   x   3,8 cm
Ukuran 4x6	Ukuran Foto SKCK	3,8    x    5,6 cm
Ukuran 2R	2     x   3,5  inci	5,6  x  8,9 cm
Ukuran 3R	3,5     x    5   inci	8,9  x  12,7 cm
Ukuran 4R	4      x    6   inci	10,2  x  15,2 cm
Ukuran 5R	5      x    7  inci	12,7   x   17,8 cm
Ukuran 6R	6      x     8  inci	15,2   x   20,3 cm
Ukuran 8R	8      x   10  inci	20,3   x   25,4 cm
Ukuran 8R Jbo	8     x    12  inci	20,3   x   30,5 cm
Ukuran 11R	11    x    14  inci	28     x   35 cm
Ukuran 12R	12    x    15 inci	30     x   40 cm
Ukuran 12R Jbo	12    x    18 inci	30     x   45 cm
Ukuran 16R	16    x     20 inci	40    x    50 cm
Ukuran 20R	20    x    24 inci	50    x    60 cm
Ukuran 22R	20    x    29,5 inci	60    x    90 cm
Ukuran 24R	24    x    31,5 inci	60    x    90 cm
Ukuran 30R	30    x     40  inci	75    x  100 cm
Ukuran A4	8,268    x    11,693  inci	21    x  29,7 cm
Ukuran A3	11,693    x    16,535  inci	29,7  x   42 cm
Ukuran B5	6.929   x   9.843 inci	17.6  x  25 cm
Ukuran B4	9.843   x   13.898 inci	25   x   35,3 cm
Ukuran B3	13.898  x   19.685 inci	35,3  x   50 cm