Membuat Database menggunakan SQL Management Studio (SMS)

Jika Anda ingin menggunakan SMSS, aplkasi ini harus diinstal terlebih dahulu karena secara default sewaktu install Visual Studio 2005, SMSS tidak diinstall. Berikut cara membuat database menggunakan SMSE.

1.       Jalankan aplikasi SMSE, lakukan login.

Anda bisa melakukan login dengan menggunakan Windows Authentication

Atau dengan menggunakan SQL Server Authentication

2.       Setelah Anda berhasil login ke SQL Server, maka Anda dapat membuat database dengan melakukan klik kanan pada Databases > kemudian klik New Database…

3.       Masukkan nama database pada Database name:, kemudian klik tombol OK

4.       Jika database telah berhasil dibuat maka sekarang untuk membuat tabel klik [nama database] > klik kanan pada Tables > kemudian klik New Table…

5.       Masukkan field yang diperlukan kemudian klik tombol Save (Ctrl+S)

6.       Masukkan nama tabel yang dibuat kemudian klik tombol OK

7.       Secara default file database yang dibuat akan berada pada Drive C:\Program Files\Microsoft SQL Server\MSSQL.X\MSSQL\Data (X merupakan nomor urutan instance, biasanya jika Anda tidak membuat instance lainnya maka X=1). Database yang Anda buat terdapat 2 file yaitu .mdf dan .ldf. NB: Untuk menghindari database hilang jika terjadi kerusakan pada OS maka sebaiknya database dipindahkan ke drive lainnya misalnnya D:

8.       Sebelum Anda memindahkan database (.mdf & .ldf) Anda harus melakukan detach database (melepaskan database dari SMSE) terlebih dahulu. Klik kanan pada database yang Anda buat > kemudian pilih Tasks > klik Detach…

9.       Jika detach berhasil, pindahkan file .mdf & .ldf pada langkah nomor 7 ke-drive yang Anda inginkan.

10.   Sekarang attach kembali database yang telah Anda buat sebelumnya, klik kanan pada Databases > klik Attach…

11.   Pilih lokasi dimana tempat Anda memindahkan file database, hanya file .mdf yang muncul, kemudian klik OK.

12.   Setelah selesai memilih lokasi database, akan muncul jendela seperti di bawah, klik OK.

Jika terjadi error, hal ini terjadi karena secara default SQL Server Log On As adalah Network Service, lakukan penggantian Log On As menjadi Local System, caranya disini.

13.   Silahkan refresh database dengan klik kanan pada Databases > kemudian klik Refresh. Maka akan tampak database yang di-attach sebelumnya dalam keadaan Read-Only, lakukan detach database tersebut.

14.   Jika Anda sudah mengganti Log On As menjadi Local System dan database yang Read-Only, silahkan coba attach kembali database dari langkah nomor 10.

~ Semoga Bermanfaat ~

Download File PDF : DOWNLOAD

Cara Membuat Database dari Visual Studio 2005

Sebenarnya tanpa kita meng-install SQL Management Studio Express (SMSE), Visual Studio 2005 sudah menyediakan fasilitas atau tool untuk membuat database, berikut langkah membuat database tanpa menggunakan SMSE.

1.       Buka aplikasi Visual Studio 2005, klik menu View >  Server Explorer (Ctrl+Alt+S)

2.       Akan muncul Server Explorer pada sisi pane sebelah kiri, untuk membuat database. Klik kanan pada Database Connections > Create New SQL Server Database

3.       Akan muncul jendela Create New SQL Server Database, masukkan Server name: .\SQLExpress, pada group box Log on to the server, Anda dapat menggunakan Use Windows Authentication atau Use SQL Server Authentication (jika Anda menggunakan metode ini maka Anda harus memasukkan Username: dan Password: ), kemudian masukkan nama database yang ingin Anda buat pada New database name:, kemudian klik tombol OK

4.       Setelah database berhasil dibuat, untuk membuat tabel klik Database Connections > [Nama Database] > klik kanan pada Tables kemudian klik Add New Table

5.       Silahkan masukkan nama field yang diinginkan kemudian klik tombol Save (Ctrl+S) kemudian masukkan nama tabel yang diinginkan.

~ Semoga Bermanfaat ~

Download File PDF : DOWNLOAD

Membuat Form Koneksi ke SQL Server

Berikut contoh senderhana membuat form untuk menyimpan connection string yang digunakan untuk melakukan koneksi ke SQL Server, silahkan melakukan pengembangan jika diperlu. 

 Jika koneksi ke SQL Server berhasil maka akan muncul pesan sebagai berikut:

 
Cara kerja:

·        Jika user meng-klik tombol Test Connection, maka program akan melakukan pengujian koneksi ke SQL Server

·        Jika user meng-klik tombol Save, dan jika pengaturan koneksi sudah benar dan koneksi berjalan normal maka connection string akan disimpan.

 
Code :
 
'untuk STREAM WRITER
Imports System.IO
 
'untuk SQL CONNECTION
Imports System.Data
Imports System.Data.SqlClient
 
Public Class frmDatabaseConnect
    'deklarasi variabel
    Private SW As StreamWriter
    Private sqlConn As SqlConnection
    Private m_ConnString As String
 
    'menentukan path dari file EXE, untuk meletakan file Connection String
    Private myPath As String = AppDomain.CurrentDomain.BaseDirectory
#Region "Message Box"
    Private Sub ValidationMessage(ByVal strMessage As String)
        MessageBox.Show(strMessage, _
                 "Database Connect - Validation", _
                 MessageBoxButtons.OK, MessageBoxIcon.Warning)
    End Sub
#End Region
    Private Sub prepare4start()
        txtServer.Text = ""
        cbxUseWA.Checked = False
        txtUserID.Text = ""
        txtPassword.Text = ""
        txtDatabase.Text = ""
        txtServer.Focus()
    End Sub
    Private Sub initWindowsAuthentication()
        txtUserID.Text = ""
        txtPassword.Text = ""
        If cbxUseWA.Checked = True Then
            txtUserID.ReadOnly = True
            txtPassword.ReadOnly = True
            txtDatabase.Focus()
        Else
            txtUserID.ReadOnly = False
            txtPassword.ReadOnly = False
        End If
    End Sub
    Private Function validateInput() As Boolean
        If txtServer.Text.Trim = "" Then
            ValidationMessage("Please input SERVER NAME")
            txtServer.Text = ""
            txtServer.Focus()
            Return False
        ElseIf cbxUseWA.Checked = False Then
            If txtUserID.Text.Trim = "" Then
                ValidationMessage("Please input USER ID")
                txtUserID.Text = ""
                txtUserID.Focus()
                Return False
            ElseIf txtPassword.Text.Trim = "" Then
                ValidationMessage("Please input PASSWORD")
                txtPassword.Text = ""
                txtPassword.Focus()
                Return False
            Else
                Return True
            End If
        ElseIf txtDatabase.Text.Trim = "" Then
            ValidationMessage("Please input DATABASE NAME")
            txtDatabase.Text = ""
            txtDatabase.Focus()
            Return False
        Else
            Return True
        End If
    End Function
    Private Function tryConnection() As Boolean
        'cek validasi input dari user
        If validateInput() = False Then Exit Function
 
        m_ConnString = ""
        If cbxUseWA.Checked = True Then
            m_ConnString = "Integrated Security=SSPI" & _
                           ";Persist Security Info=False" & _
                           ";Initial Catalog=" & txtDatabase.Text.Trim & _
                           ";Data Source=" & txtServer.Text.Trim
        ElseIf cbxUseWA.Checked = False Then
            m_ConnString = "Password=" & txtPassword.Text.Trim & _
                           ";Persist Security Info=True" & _
                           ";User ID=" & txtUserID.Text.Trim & _
                           ";Initial Catalog=" & txtDatabase.Text.Trim & _
                           ";Data Source=" & txtServer.Text.Trim
        Else
            m_ConnString = ""
        End If
        sqlConn = New SqlConnection(m_ConnString)
        Try
            'mencoba untuk membuka koneksi ke SQL Server
            sqlConn.Open()
            'jika koneksi berhasil maka akan mengembalikan nilai TRUE
            Return True
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Database Connect - ERROR", _
            MessageBoxButtons.OK, MessageBoxIcon.Error)
            'jika koneksi gagal maka akan mengembalikan nilai FALSE
            Return False
        Finally
            'jika koneksi dalam keadaan terbuka, maka koneksi akan ditutup
            If sqlConn.State = ConnectionState.Open Then
                sqlConn.Close()
            End If
        End Try
    End Function
 
    Private Sub cbxUseWA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbxUseWA.CheckedChanged
        initWindowsAuthentication()
    End Sub
 
    Private Sub frmDatabaseConnect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        prepare4start()
        initWindowsAuthentication()
    End Sub
 
    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Try
            'ClientObject.ini merupakan file yang dibuat dengan NotePad
            'hanya extention file yang diganti dari .txt menjadi .ini
            If File.Exists(myPath & "ClientObject.ini") Then
                File.Delete(myPath & "ClientObject.ini")
            End If
 
            If tryConnection() = True Then
                'membuat file ClientObject.ini baru
                SW = New StreamWriter(myPath & "ClientObject.ini")
                'menulis connection string ke file text
                SW.WriteLine(m_ConnString)
                MessageBox.Show("Save succeed", "Database Connect - Information", _
                                MessageBoxButtons.OK, MessageBoxIcon.Information)
                prepare4start()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Database Connect - ERROR", _
                     MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            If Not SW Is Nothing Then
                SW.Close()
            End If
        End Try
 
    End Sub
 
    Private Sub btnTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTest.Click
        If tryConnection() = True Then
            MessageBox.Show("Connection to database succeed", _
                            "Database Connect - Information", _
                            MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub
End Class
 
Download Source Lengkap : DOWNLOAD

Langkah-langkah menguji koneksi ke SQL Server

Langkah-langkah menguji koneksi ke SQL Server

1.       Buat sebuah file text dengan menggunakan “NotePad”, kemudian buka file tersebut.

2.       Klik File > Save As…

3.       Pada ComboBox Save as type diganti menjadi All Files, kemudian untuk File name masukan nama yang diinginkan dengan memberikan extensi (extention) .udl, lalu klik Save

4.       Buka file yang dibuat dengan extensi .udl tadi, kemudian pilih tab Provider, pilih Microsoft OLE DB Provider for SQL Server, klik Next >> atau pilih tab Connection

5.       Masukan nama server pada Select or enter a server name, pada urutan nomor 2 Enter the information to log on to the server, terdapat 2 pilihan:

·        Use Windows NT Integreted security, pilihan ini digunakan jika ingin login ke SQL Server dengan menggunakan login Windows. Masukan nama database pada Select the database on the server

·         Use a specific username and password, pilihan ini digunakan jika ingin login ke SQL Server dengan menggunakan username & password yang telah dibuat pada SQL Server (biasanya digunakan pada sistem yang bersifat client server). Masukan User name dan Password, untuk login ke SQL Server (NB: bukan username & password untuk login ke Windows), centang/contreng Allow saving password. Masukan nama database pada Select the database on the server

Untuk melakukan pengujian apakah koneksi sudah benar atau SQL Server berjalan dengan lancar, klik Test Connection. Jika berhasil maka akan muncul pesan seperti di bawah ini

Jika memilih untuk login tidak dengan Windows Authentication / Integrated Security, dan mencentang pilihan Allow saving password, maka akan muncul pesan seperti di bawah ini, klik Yes.

6.       Untuk mengambil / meng-copy connection string, klik kanan pada file .udl yang telah dibuat (tentunya setelah dilakukan pengaturan koneksi ke SQL Server), pilih Open With > Notepad

7.       Maka file tersebut akan berisi beberapa baris text, seperti gambar di bawah ini.

Silahkan copy conection string mulai dari setelah Provider=SQLOLEDB.1;

Jika memilih Use Windows NT Integreted security, maka conection string sbb:

Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=master;Data Source=(local)

Jika memilih Use a specific username and password, maka connection string sbb:

Password=12345678;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=(local)

Keterangan:

Initial Catalog (Nama DATABASE)

Data Source (Nama SERVER)

Password (Password user SQL Server)

User ID (User ID SQL Server)

Simple Calculator

Dibuat menggunakan VB.Net 2005, dalam materi ini berisikan contoh beberapa control seperti : textbox, label, combobox, listbox dan button. Materi ini juga menggunakan Variabel, yang digunakan untuk menampung data secara sementara

 

Code:

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        'mengisi nilai ComboBox Operator
        cboOperator.Items.Add("+  ""Tambah""")
        cboOperator.Items.Add("-  ""Kurang""")
        cboOperator.Items.Add("*  ""Kali""")
        cboOperator.Items.Add("/  ""Bagi""")
    End Sub
 
    Private Sub btnProcess_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnProcess.Click
        'variabel -> berfungsi untuk menampung data sementara
        Dim sng1stNumber, sng2ndNumber, sngResult As Single
 
        'jika user mengisi TextBox txt1stNumber, txt2ndNumber
        'dengan karakter selain angka, maka tidak akan diproses
        If Not IsNumeric(txt1stNumber.Text) = True Then
            MessageBox.Show("Silahkan masukkan angka pada TextBox 1stNumber", _
                            "WARNING", MessageBoxButtons.OK, _
                            MessageBoxIcon.Warning)
            'memberikan nilai textbox menjadi 0 (nol)
            txt1stNumber.Text = 0
            'membuat cursor berada pada textbox 1stNumber
            txt1stNumber.Focus()
            'memberhentikan proses selanjutnya
            Exit Sub
        ElseIf Not IsNumeric(txt2ndNumber.Text) = True Then
            MessageBox.Show("Silahkan masukkan angka pada TextBox 2ndNumber", _
                            "WARNING", MessageBoxButtons.OK, _
                            MessageBoxIcon.Warning)
            txt2ndNumber.Text = 0
            txt2ndNumber.Focus()
            Exit Sub
        End If
 
        'mengisi nilai variabel berdasarkan yang input oleh user
        sng1stNumber = CSng(txt1stNumber.Text)
        sng2ndNumber = CSng(txt2ndNumber.Text)
        sngResult = 0
 
        'memilih index atau urutan item yang dipilih oleh user
        'pada ComboBox cboOperator
        Select Case cboOperator.SelectedIndex
            Case 0 'tambah
                sngResult = sng1stNumber + sng2ndNumber
            Case 1 'kurang
                sngResult = sng1stNumber - sng2ndNumber
            Case 2 'kali
                sngResult = sng1stNumber * sng2ndNumber
            Case 3 'bagi
                sngResult = sng1stNumber / sng2ndNumber
            Case Else 'jika user mengisi ComboBox cboOperator
                'dengan sembarangan maka akan menampilkan pesan
                MessageBox.Show("Operator tidak dikenal / Anda belum memilih", _
                                "WARNING", MessageBoxButtons.OK, _
                                MessageBoxIcon.Warning)
        End Select
        txtResult.Text = sngResult
    End Sub
 
End Class


Download Source Lengkap : DOWNLOAD 

Stream Reader

Stream reader digunakan untuk membaca file text, yang disimpan dalam “NotePad”, berikut contoh aplikasi sederhana untuk membaca isi dari notepad perbaris (3 baris).

 

Code:

'untuk menggunakan stream reader, harus melakukan IMPORTS component
'yaitu System.IO
Imports System.IO
 
Public Class Form1
 
    Private Sub btnGetData_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnGetData.Click
        'mengambil lokasi file exe
        Dim myPath As String = AppDomain.CurrentDomain.BaseDirectory
        Dim SR As StreamReader
        Dim strBaris1, strBaris2, strBaris3 As String
 
        'mengosongkan variabel
        strBaris1 = ""
        strBaris2 = ""
        strBaris3 = ""
 
        'mengosongkan stream reader
        sr = Nothing
 
        'mengecek apakah file myData.txt ada
        If File.Exists(myPath & "myData.txt") Then
            'SR = New StreamReader(myPath & "myData.txt")
            'Dim sr As StreamReader = File.OpenText(myPath & "myData.txt")
            SR = File.OpenText(myPath & "myData.txt")
            strBaris1 = SR.ReadLine
            strBaris2 = SR.ReadLine
            strBaris3 = SR.ReadLine
 
        Else
            MessageBox.Show("File yang Anda maksud tidak ditemukan", _
                        "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
        'SR.Close()
 
        'Jika SR/StreamReader berisi atau tidak kosong,
        'maka SR harus ditutup
        If Not SR Is Nothing = True Then
            SR.Close()
        End If
 
        'Jika semua variabel strBaris mempunyai isi
        If strBaris1 <> "" And strBaris2 <> "" And strBaris3 <> "" Then
            'sebelum mengisi data pada TextBox, ComboBox, ListBox
            'kosongkan data terlebih dahulu
            txtData.Text = ""
            cboData.Items.Clear()
            lstData.Items.Clear()
 
            'mengisi txtData
            'vbCrLf berfungsi untuk memberikan ENTER / baris baru
            txtData.Text = strBaris1 & vbCrLf & _
                             strBaris2 & vbCrLf & _
                             strBaris3
            'vbCrlF ==> visual basic Carriage return Line feed
 
            'mengisi cboData
            cboData.Items.Add(strBaris1)
            cboData.Items.Add(strBaris2)
            cboData.Items.Add(strBaris3)
 
            'mengisi lstData
            lstData.Items.Add(strBaris1)
            lstData.Items.Add(strBaris2)
            lstData.Items.Add(strBaris3)
        End If
    End Sub
 
End Class

Download Source Lengkap : DOWNLOAD

Algoritma dan Pemrograman I (Part 1)

Pengenalan Visual Studio 2005/2008

Visual studio merupakan suatu software yang terintegrasi yang digunakan untuk membangun aplikasi, visual studio berisi beberapa jenis bahasa pemrograman diantaranya VB, C#, C++, J#, ASP.NET dan sebagainya.

Pada pertemuan pertama kita akan membahas mengapa kita harus menggunakan Visual Studio dengan bahasa pemrograman yang dipakai adalah Visual Basic. Visual Studio merupakan software IDE (Integrated Development Environtment) yang dibuat oleh perusahaan raksasa Microsoft. Pemrograman Visual Basic sangat populer dikarena kemudahan untuk membangun aplikasi yang cepat.


Sejak komputer telah berubah dari halaman hitam (console) yang dulunya masih menggunakan DOS  menjadi GUI's (Grafic User Interface) pemrograman yang berbasiskan GUI sangat populer salah satunya yaitu VB, keuntungan aplikasi berbasis GUI yaitu dapat menerima input secara acak, coba bayangkan jika Anda menggunakan aplikasi yang berbasis command prompt (perintah) data yang harus Anda input lebih dari 10 atau 20, jika Anda sekarang sudah menginput pada baris ke 20, teryata baris kedua salah, maka Anda tidak dapat langsung mengubah baris kedua.


Contoh seperti dibawah:
  

Console Application

GUI Application

Ada terjadi salah penginputan pada baris alamat, yaitu BATAMA seharusnya BATAM, maka pada aplikasi yang berbasis console harus diinput dulu sampe program selesai tidak bisa langsung baris alamat akan tetapi jika berbasis GUI maka user dapat langsung merubah baris alamat dengan mengklik mouse pada kolum alamat.