koneksi vb dan sql server

episode 7

pada episode kali ini kita akan membuat koneksi dari vb.net ke dalam sql server ....

nah pertama kali kita buat yaitu kita harus membuat module koneksi yang berguna untuk memanggil fungsi koneksi yang kita buat di dalam modul tersebut,,,,,,

dengan cara klik pada project anda,lalu klik kanan ,pilih add,lalu pilih yang add module,,,,selanjutnya masukan syntax di bawah......

*)ada yang harus  diperhatikan dari sytax dibawah ada script catalog,di situ kita isi nama database yang kita buat dalam sql server.....

checkidot lah

Imports System.Data

Imports System.Data.Sql

Module koneksidatabase

    Public Database As New OleDb.OleDbConnection

    Public Tampil As New OleDb.OleDbCommand

    Public Tampil2 As New OleDb.OleDbCommand

    Public Tampilkan As OleDb.OleDbDataReader

    Public hasiljur, jur, hasilcek As String

   

    Public Sub Koneksi()

        Try

            Database.Close()

            'server'

            'Database.ConnectionString = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;"User ID=sasa;Initial Catalog=PTJayaKarta;Data Source=192.168.10.4

            'lokal

            Database.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ihsan;Data Source=."

            Database.Open()

            'Tampil.Connection = Database

        Catch ex As Exception

            MsgBox(ex.ToString)

        End Try

    End Sub

End Module

lalu selanjutnya kita buat form seperti berikut,,,

 ini syntaxnya

Public Class tambah_2

    Sub kosong()

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox1.Focus()

    End Sub

    Sub netral()

        Button1.Text = "tambah"

        Button2.Text = "ubah"

        Button3.Text = "apus"

        Button4.Text = "keluar"

        Button1.Enabled = True

        Button2.Enabled = True

        Button3.Enabled = True

        TextBox1.Enabled = True

    End Sub

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

    End Sub

   

    Sub simpan_kelompok()

        If Button1.Text = "tambah" Then

            TextBox1.Text = ""

            Button1.Text = "simpan"

            Button2.Enabled = False

            Button3.Enabled = False

            Button4.Text = "batal"

            TextBox1.Focus()

        Else

            If TextBox1.Text = "" Then Exit Sub

            If TextBox2.Text = "" Then Exit Sub

            Call cekrecord2()

            Try

                If hasilcek = False Then

                    Call Koneksi()

                    Tampil.Connection = Database

                    Tampil.CommandType = CommandType.Text

                    Tampil.CommandText = "insert into tbl_jurusan (kd_jurusan,nm_jurusan)values ('" & TextBox1.Text & "','" & TextBox2.Text & "')"

                    Tampil.ExecuteNonQuery()

                    Call kosong()

                Else

                    MsgBox("udah ada boy", MsgBoxStyle.Critical, "silahkan masukin data")

                    TextBox1.Focus()

                End If

            Catch ex As Exception

                MsgBox(ex.ToString())

            End Try

        End If

    End Sub

    Sub cekrecord2()

        Call Koneksi()

        Tampil.Connection = Database

        Tampil.CommandType = CommandType.Text

        Tampil.CommandText = "select * from tbl_jurusan where kd_jurusan=' " & Trim(TextBox1.Text) & " ' "

        Tampilkan = Tampil.ExecuteReader

        If Tampilkan.HasRows = True Then

            hasilcek = True

        Else

            hasilcek = False

        End If

    End Sub

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

        Call simpan_kelompok()

    End Sub

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

        If Button4.Text = "keluar" Then

            Me.Close()

        Else

            Call kosong()

            Call netral()

        End If

    End Sub

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

        Call ubah_kel()

    End Sub

    Sub ubah_kel()

        If Button2.Text = "ubah" Then

            Button2.Text = "simpan"

            Button1.Enabled = False

            Button3.Enabled = False

            Button4.Text = "batal"

            TextBox1.Focus()

        Else

            If TextBox1.Text = " " Then Exit Sub

            If TextBox2.Text = " " Then Exit Sub

            Try

                Call Koneksi()

                Tampil.Connection = Database

                Tampil.CommandType = CommandType.Text

                Tampil.CommandText = "update tbl_jurusan set nm_jurusan='" & Trim(TextBox2.Text) & "'" & " where kd_jurusan ='" & Trim(TextBox1.Text) & "'"

                Tampil.ExecuteNonQuery()

                Call kosong()

                TextBox1.Focus()

            Catch ex As Exception

                MsgBox(ex.ToString())

            End Try

        End If

    End Sub

End Class

 download file dalam bentuk project klik disini



*****)mohon untuk memahami maksudnya dulu,,,,karena kalo langsung copy paste  sering error juga,karena mungkin beda nama databas yang anda buat,atau nama2 objek yang anda buat,,,,,,,,,,,,