Cara Mengkoneksikan Data Base ke Visual Basic 2010

Langsung saja pada pokok permasalahanya saja, saya menjelaskan langkah - langkanya:

• Langkah membuat:
• Klik Start – All Programs – Microsoft SQL Server 2005 -  SQL Server Managenent Studio

lengkapi isian kemudian connect

buat data base baru

• beri nama dengan database name dbmahasiswa kemudian tekan OK

• Double Click pada Databases kemudian double click pada Dbmahasiswa
  
  
  
• Click kanan pada table kemudian pilih new table
• Buat Table dengan struktur sbb beri nama tbmahasiswa kemudian simpan

Klik kanan pada dbmahasiswa kemudian klik open table

Kemudian isikan tabel sesuai dengan kebutuhan data yang ada

• Kemudian kita membuat project baru di Visual Studio 2010 dengan tampilan seperti ini:

• Mengkoneksikan form ke database dengan cara:
• Data - Add new data source - Data base

• Tekan Next kemudian pilih New Connection- Microsoft SQL Server-Continue

• Lengkapi isian kemudian tekan test connection . Jika sukses berarti koneksi ke database berhasil

• Tekan ok kemudian next

• Tekan next kemudian beri list pada Tbmahasiswa yang akan ditampilkan kemudian finish

• Selanjutnya masukan Data dari Data Source ke Form

• Selanjutnya memberi Bottom pada Navigasi yaitu: First, Next, Previus, Last, Tambah, Hapus, Cari, Edit, Filter

• Langkah selanjutnya kita akan memberi Source kode pada masing-masing Navigasi tersebut:

Public Class Form1

    Private Sub TbmahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbmahasiswaBindingNavigatorSaveItem.Click

        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

        TbmahasiswaBindingSource.MoveNext()

    End Sub

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

        TbmahasiswaBindingSource.MovePrevious()

    End Sub

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

        TbmahasiswaBindingSource.MoveFirst()

    End Sub

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

        TbmahasiswaBindingSource.MoveLast()

Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        NIMTextBox.Text = ""

        NAMATextBox.Text = ""

        TGLLAHIRDateTimePicker.Text = ""

        ALAMATTextBox.Text = ""

        JURUSANComboBox.Text = ""

        SPPTETAPTextBox.Text = ""

    End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Me.TbmhsTableAdapter.Fill(Me.SugiantoDataSet.tbmhs)

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        Me.Validate()

        Me.TbmhsBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.SugiantoDataSet)

    End Sub

End Class

itulah langkah- langkah membuatnya semoga bermanfaat bagi anda... :D