Membuat program sederhana dengan VB 2010 dan SQL 2008

1. Koding Modul 

Imports System.Data

Imports System.Data.Sql

Module Module1

    Public database As OleDb.OleDbConnection

    Public Sub koneksi()

        Try

            database = New OleDb.OleDbConnection("Provider=SQLOledB.1;persist security info =false;datasource=FHUJI-PC;initial catalog=fujiok; integrated security=sspi")

            database.Open()

        Catch ex As Exception

            MsgBox(ex.ToString)

        End Try

    End Sub

End Module

2. Koding Form1

Kemudian Masukan koding berikut :

Imports System.Data

Imports System.Data.Sql

Public Class Form1

    Dim tabel As OleDb.OleDbDataAdapter

    Dim data As DataSet

    Dim record As New BindingSource

    Sub bersih()

        txtnim.Text = ""

        txtnama.Text = ""

        txtalamat.Text = ""

        txtkelas.Text = ""

        Call siswa()

 End Sub

    Sub siswa()

        Call koneksi()

        tabel = New Data.OleDb.OleDbDataAdapter("select * from tabelku", database)

        data = New DataSet

        tabel.Fill(data)

        record.DataSource = data

        record.DataMember = data.Tables(0).ToString()

        DataGridView1.DataSource = record

    End Sub

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

        Call siswa()

        Module1.koneksi()

 

    End Sub

 

3. Koding Simpan

Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click

        Dim SqlQuery As New OleDb.OleDbCommand

        SqlQuery.Connection = database

        SqlQuery.CommandType = CommandType.Text

        SqlQuery.CommandText = "Insert into tabelku values ('" & txtnim.Text & "','" & txtnama.Text & "','" & txtalamat.Text & "','" & txtkelas.Text & "')"

        SqlQuery.ExecuteNonQuery()

        MsgBox("Data Tersimpan")

        Call bersih()

4. Koding Edit

Private Sub Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Edit.Click

        Try

            Call koneksi()

            Dim sqlquery As New OleDb.OleDbCommand()

            sqlquery.Connection = database

            sqlquery.CommandType = CommandType.Text

            sqlquery.CommandText = "Update tabelku set nama = '" & txtnama.Text & "',alamat='" & txtalamat.Text & "',kelas='" & txtkelas.Text & "'where nim = '" & txtnim.Text & "'"

            sqlquery.ExecuteNonQuery()

            MsgBox("Data  Sudah Di Update")

            Call bersih()

        Catch ex As Exception

            MsgBox(ex.ToString())

 

        End Try

    End Sub

5. Koding Hapus

Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click

        Try

            Call koneksi()

            Dim sqlquery As New OleDb.OleDbCommand()

            sqlquery.Connection = database

            sqlquery.CommandType = CommandType.Text

            sqlquery.CommandText = "Update tabelku set nama = '" & txtnama.Text & "',alamat='" & txtalamat.Text & "',kelas='" & txtkelas.Text & "'where nim = '" & txtnim.Text & "'"

            sqlquery.ExecuteNonQuery()

            MsgBox("Data  Sudah Di Update")

            Call bersih()

        Catch ex As Exception

            MsgBox(ex.ToString())

 

        End Try

    End Sub

6. Koding Cari

Private Sub Cari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cari.Click

        Dim Nim_siswa = InputBox("Masukkan Nim Siswa")

        Try

            data.Tables(0).PrimaryKey = New DataColumn() {data.Tables(0).Columns("nim")}

            Dim row As DataRow

            row = data.Tables(0).Rows.Find(Nim_siswa)

            txtnim.Text = row("nim")

            txtnama.Text = row("nama")

            txtalamat.Text = row("alamat")

            txtkelas.Text = row("kelas")

 

        Catch ex As Exception

            MessageBox.Show("Data Tidak ada / anda batal mencari Data !!")

        End Try

    End Sub