SINAU_AKSORO_DOT.NET: Membuat Koneksi Database dengan menggunakan Program visual basic 2008 dan SQL Server 2008

PERTEMUAN 11 DAN 12

Agenda : Program koneksi Database dengan VB 2008 dan SQL Server 2008

TIPS untuk bisa Koneksi dengan menggunakan Visual basic 2008 dan SQl Server 2008:
1. PC atau laptop harus dsudah ter INSTALL SQL Server 2000 atau 2008
2, Cara Koneksi dengan SQL Server 2008 , dengan cara menonaktifkan Blok pada Window Firewall Debug , bisa di buka / clik di Control panel.

Proses Koneksi nya:

1. Membuat file project dengan Nama S1TI4AK . dan membuat dan directory pada solution Explorer , dengan nama Server Aplikasi.

2. Membuat Modul MyKoneksi ,

seperti Source Code dibawah ini:

Imports System.Data

Imports System.Data.Sql

Module MyKoneksi

Public PENYEWAAN_MOBIL_DWI_UTOMO As New OleDb.OleDbConnection

Public Tampil As New OleDb.OleDbCommand

Public Tampilkan As OleDb.OleDbDataReader

Public Grid As New OleDb.OleDbDataAdapter

Public Ds As New DataSet

Public Table, hasilcek As String

Public record As New BindingSource

Public noo As Integer

Public DMLSql As New OleDb.OleDbCommand

Public Sub Koneksi()

Try

PENYEWAAN_MOBIL_DWI_UTOMO.Close()

'Server

'Database.ConnectionString = "Provider=SQLOLEDB.1;Passwor=;Persist Security Info=True;User ID=sa;Initial Catalog=sim akuntansi=200.200.10.150"

'lokal()

PENYEWAAN_MOBIL_DWI_UTOMO.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;_persist Security Info=False;Initial Catalog=PENYEWAAN_MOBIL_DWI_UTOMO;Data Source=."

PENYEWAAN_MOBIL_DWI_UTOMO.Open()

'tampil

Catch ex As Exception

MsgBox(ex.ToString())

End Try

MsgBox("KONEKSI ANDA TELAH BERHASIL , SILAKAN MELANJUTKAN KE PROSES BERIKUTNYA ")

End Sub

End Module

3. Membuat Form1.vb* design

Dengan source Code:

Public Class Form1

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

Call PELANGGAN()

End Sub

Sub PELANGGAN() ' Membuat method baru dengan nama PELANGGAN

Call Koneksi()

Tampil.Connection = PENYEWAAN_MOBIL_DWI_UTOMO

Tampil.CommandType = CommandType.Text

Tampil.CommandText = "Select * from PELANGGAN"

'Trim :

' ' " & Trim (TextBox1.text)&" ================> untuk character

' " &Val ( textBox1.text )& " =================> untuk Numeric

Tampilkan = Tampil.ExecuteReader

If Tampilkan.HasRows = True Then

While Tampilkan.Read()

If IsDBNull(Tampilkan("Nama_Plg")) Then

' Is DBNull Utk menentukan apakah di sebuah filed ada datanya atau tidak

TextBox2.Text = "-"

' Untuk menampilkan data yang disimpan sebuah Field dalam Text2

Else : TextBox2.Text = Tampilkan("Tempat_lhr")

End If

' Untuk menampilkan data yang disimpan sebuah Field dalam Text2

End While

End If

' FUNGSI lOOPING DAN MEMBACA PER RECORD

End Sub

End Class

3.Koneksi dengan SQL server 2008:

Kemudian Membuka File Database atau membuat database baru pada SQl Server 2008: sesuai dengan nama database yang ada pada Modul Mykoneksi dan form1.

Module MyKoneksi

Public PENYEWAAN_MOBIL_DWI_UTOMO As New OleDb.OleDbConnection

Dan Conection String :

PENYEWAAN_MOBIL_DWI_UTOMO.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;_persist Security Info=False;Initial Catalog=PENYEWAAN_MOBIL_DWI_UTOMO;Data Source=."

PENYEWAAN_MOBIL_DWI_UTOMO.Open()

Pada Form1:

Tampil.Connection = PENYEWAAN_MOBIL_DWI_UTOMO

Sehingga setelah Dikoneksi akan Tampil seperti berikut: pada message Box