Halaman

Minggu, 06 Januari 2013

koneksi Sql Server dengan Microsoft Visual Studio



koneksi Sql Server dengan Microsoft Visual Studio

Langkah lanagkah pengkoneksian
·         Bukalah Microsoft Sql Server dan buatlah sebuah Database dengan nama “dbmahasiswa”
seperti pada gambar dibawah ini :

·         Setelah itu buatlah tabel mahasiswa seperti gambar berikut :
 

·         Lalu modify database berikut seperti gambar di bawah:




·         Pada tabel, coba klik kanan lalu open tabel, Lalu isi tabel tersebut dengan 2 data atau lebih. Seperti pada gambar di bawah ini :



·         Setelah membuat database di dalam Sql Server, Sekarang bukalah Microsoft Visual Studio dan buatlah projek baru dan coba langkah langkah seperti di bawah ini :
Bukalah database yang sudah dibuat dengan meng-klik pada menu Data >>  Add New Data Source… >> Database, lalu Next > >  Dataset, lalu Next  >>  New Connection… >> pilih Microsoft SQL Server, lalu Continue . Kemudian akan muncul kotak dialog seperti berikut:





Pada bagian Server Name, pilih server yang tersedia,  Jika tidak bisa kembali ke SQL Server dan sorot nama server (pilih Connect lalu copy nama server tersebut). Pada Log on to the server pilih Use Windows Authentication. Dan masukkan dbmahasiswa. Lalu Test Connection, jika sukses maka telah siap dikonekkan.
Selanjutnya pilih Next, dan save. Dan tunggu beberapa saat hingga muncul tampilan. Cek semua table yang akan digunakan pada Visual Basic.
·         Setelah semua itu selesai,  kembali ke Visual Studio dan pilih menu Data lalu klik Show Data Source
·         Setelah itu coba ganti kolom jurusan dengan cara meng.klik kanan kolom jurusan dang anti dengan ComboBox


·         Drag semua kolom tersebut kedalam form lalu buatlah desain seperti gambar di bawah ini :



·         Pada kolom jurusan, tambahkan “TI” dan “SI” dengan menginputkannya di ComboBox
Lalu isikan coding-codingnya untuk tiap-tiap tombol :
Public Class Form1

    Private Sub TbmahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
        Me.TbmahasiswaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)

    End Sub

    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 'DbmahasiswaDataSet.tbmahasiswa' table. You can move, or remove it, as needed.
        Me.TbmahasiswaTableAdapter.Fill(Me.DbmahasiswaDataSet.tbmahasiswa)

    End Sub

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

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TbmahasiswaBindingSource.MovePrevious()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.TbmahasiswaBindingSource.MoveNext()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.TbmahasiswaBindingSource.MoveLast()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.TbmahasiswaBindingSource.AddNew()
        NimTextBox.Focus()
        TgllahirDateTimePicker.ResetText()
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Me.Validate()
        Me.TbmahasiswaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If MsgBox("Apakah Anda Yakin ?", vbYesNo + vbQuestion + vbDefaultButton2, "Delete") = vbYes Then

            Me.TbmahasiswaBindingSource.RemoveCurrent()
        End If
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If (TbmahasiswaBindingSource.Find("Nama", TextBox1.Text)) > -1 Then
            MsgBox("Data berhasil ditemukan")
        Else
            MsgBox("Data tidak berhasil ditemukan")
        End If
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Dim Mencari As String
        Mencari = InputBox("Masukkan Jurusan Yang Di Cari", "Filter ...")

    End Sub

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


Setelah itu coba Run Program






ssetelah di jalankan & berhasil :

 



 








 



4 komentar:

  1. Me itu adalah form itu sendiri

    BalasHapus
  2. gan gw pas konekin ke sqlnya dari visual studio malah gk kedetek sqlnya

    BalasHapus
  3. Masih Bingung DatagridView nya masih gak baca database sqlserver, padahal sudah terkoneksi..

    BalasHapus