Teknologi Terkini: koneksi

Pembuatan koneksi di visualbasic secara mudah saat pemanggilan

Pembuaatan koneksi di sebuah program adalah awal dari tahap pengkodingan apabila tahap pengkodingan belum membuat koneksi maka tidak akan mungkin melakukan proses insert, update dan delete. Pengkodean koneksi adalah kode yang sangat sering di panggil, jadi apabila pembuatan kode koneksi simpel saat di panggil maka akan sedikit sourcecode. Berikut ini adalah pembuaatan koneksi apa bila mau melakukan pemanggilan. disini di contohkan dengan koneksi dengan sqlserver<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://1.bp.blogspot.com/-aaW3VRBJmd4/UsWhMZo_NII/AAAAAAAAAHs/hNDihfdmN90/s1600/assaasasa.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="190" src="http://1.bp.blogspot.com/-aaW3VRBJmd4/UsWhMZo_NII/AAAAAAAAAHs/hNDihfdmN90/s320/assaasasa.png" width="320" /></a></div>
<br />
<br />
Pertama-tama kita bikin sebuah module koneksi dengan isi sebagai berikut<br />
<br />
<script class="brush : vb" type="syntaxhighlighter">
Imports System.Data.SqlClient
Module settanggal
    Public sql As String
    Public dtbl As DataTable
    Public cn As SqlConnection
    Public da As SqlDataAdapter
    Public ds As DataSet
    Public com As SqlCommand
    Public dr As SqlDataReader
    Public dt As DataTable
    Public setatus As String
    Public cb As SqlCommandBuilder
    Sub siapkoneksi()
        Try
            'variabel str berfungsi untuk menyimpan koneksi string dicontoh menggunakan sqlserver
            str = "Data Source=localhost;Initial Catalog=penjadwalanalgoritmagenetika;Integrated Security=True"
            cn = New SqlConnection(str)
        Catch ex As Exception
            MsgBox("Koneksi tidak mau terhubung " + ex.ToString, MsgBoxStyle.Critical)
        End Try
    End Sub
End Module
</script>

<br />
Dan membuat sebuah class koneksi<br />
<script class="brush : vb" type="syntaxhighlighter">
Imports System.Data.SqlClient
Public Class classdatabase
    Public Function OpenConn() As Boolean
        siapkoneksi()
        Try
            cn.Open()
            If cn.State <> ConnectionState.Open Then
                Return False
            Else
                Return True
            End If
        Catch ex As Exception
            MsgBox("Koneksi Tidak Mau Tersambung", MsgBoxStyle.Exclamation, "Error")
        End Try
    End Function
    Public Sub CloseConn()
        Try
            If Not IsNothing(cn) Then
                cn.Close()
                cn = Nothing
            End If
        Catch ex As Exception
            MsgBox("Koneksi Tidak Mau Terputus", MsgBoxStyle.Exclamation, "Error")
        End Try
    End Sub
    Public Function ExecuteQuery(ByVal Query As String) As DataTable
        Try
            If Not OpenConn() Then
                MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed")
                Return Nothing
                Exit Function
            End If

com = New SqlCommand(Query, cn)
            da = New SqlDataAdapter
            da.SelectCommand = com
            ds = New Data.DataSet
            da.Fill(ds)
            dt = ds.Tables(0)
            Return dt
            dt = Nothing
            ds = Nothing
            da = Nothing
            com = Nothing
            CloseConn()
        Catch ex As Exception
            MsgBox("Terjadi Kesalahan Dengan Printah SQL : " + Query + "Dan Err Sebagai Berikut " + ex.ToString.ToUpper, MsgBoxStyle.Exclamation, "Error")
            dt = Nothing
            Return dt
        End Try
    End Function
    Public Sub ExecuteNonQuery(ByVal Query As String)
        Try
            If Not OpenConn() Then
                MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed..!!")
                Exit Sub
            End If
            com = New SqlCommand
            com.Connection = cn
            com.CommandType = CommandType.Text
            com.CommandText = Query
            com.ExecuteNonQuery()
            com = Nothing
            CloseConn()
        Catch ex As Exception
            MsgBox("Terjadi Kesalahan Dengan Printah SQL : " + Query + "Dan Err Sebagai Berikut " + ex.ToString.ToUpper, MsgBoxStyle.Exclamation, "Error")
        End Try
    End Sub
    Public Function ExecuteScalar(ByVal query As String) As String
        Dim str As String = Nothing
        If OpenConn() Then
            Dim cmd As New SqlCommand(query, cn)
            str = CType(cmd.ExecuteScalar, String)
            CloseConn()
        End If
        Return str
    End Function
End Class
</script>

Hanya cukup satu baris saja, Perintah menghapus data dosen<br />
<br />
<br />
<script class="brush : vb" type="syntaxhighlighter">
Imports System.Data.SqlClient
Public Class dosen
    Dim proses As New Classkoneksi
    Private Sub bthapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthapus.Click
        proses.ExecuteNonQuery("delete from dosen where iddosen ='" & txtid.Text & "' ")
     End Sub
End Class
</script>

Pembuatan koneksi di visualbasic secara mudah saat pemanggilan

Pembuaatan koneksi di sebuah program adalah awal dari tahap pengkodingan apabila tahap pengkodingan belum membuat koneksi maka tidak ...

Baca selengkapnya »

04.44

Pembuatan koneksi di visualbasic secara mudah saat pemanggilan

Popular Posts

Comments

Archive