tugas 9-koneksi ke sql server-Dwi sumarti-11.11.2262-TI 11 F

MEMBUAT KONEKSI KE SQL SERVER

Saya akan sedikit menjelaskan tentang bagaimana cara untuk membuat koneksi ke SQL server dan cara untuk membuat  tombol navigasi NEXT, PREVIOUS, FIRST, LAST, SEARCH NAME dan KELUAR pada Visual Basic 2010 yang terkoneksi dengan SQL Server 2005.

Pertama – pertama  kita membuat database dahulu di SQL Server 2005. Kali ini saya akan membuat database mahasiswa dengan nama dbmahasiswa, selanjutnya membuat tabel mahasiswa dengan nama tbmahasiswa setelah itu kita ubah di  jabatan dengan meng gunakan combobox , kemudian kita masukan secara manual di combobox jurusan yang akan dipilih, misalnya SI dan TI. Kemudian isi data-data pada tbmahasiswa dan jangan lupa  di save, kita save dengan nama tbmahasiswa.

Setelah membuat dbmahasiswa, buka Microsoft Visual Studio dan buat satu Form. Untuk mengkoneksikan dengan SQL Server 2005, pilih Menu Data, Add New Data Source, klik Next terus sampai terlihat tombol New Connection, di klik., kemudian OK, klik Next, klik Finish.

Langkah selanjutnya, drag semua isi dbmahasiswa dan tbmahasiswa yang terdapat pada Data Sources, serta buat 5 button untuk membuat tombol FIRST, PREVIOUS, NEXT, LAST, dan KELUAR. Namun untuk SEARCH NAME dengan menggunakan TextBox. Pada SEARCH NAME ini, pencarian dilakukan dengan kriteria nama saja. Maka akan tampil seperti gambar berikut:

Pada saat kita akan membuat tombol navigator FIRST,

 Codingnya seperti berikut:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TbmahasiswaBindingSource.MoveFirst()

    End Sub

Pada saat kita akan membuat  tombol navigator LAST, 

Codingnya seperti berikut:

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

        TbmahasiswaBindingSource.MoveLast()

    End Sub

Pada saat kita akan  memunculkan tom bol navigator PREVIOUS

Codingnya seperti berikut:

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

        If TbmahasiswaBindingSource.Position > 0 Then

            TbmahasiswaBindingSource.MovePrevious()

        Else

            MsgBox("tidak ada data lagi")

        End If

    End Sub

Pada saat kita akan membuat  tombol navigator NEXT,

Codingnya:

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

        Dim jmlrow = DbmahasiswaDataSet.Tables(0).Rows.Count

        If TbmahasiswaBindingSource.Position < jmlrow - 1 Then

            TbmahasiswaBindingSource.MoveNext()

        Else

            MsgBox("tidak ada data lagi")

        End If

    End Sub

 

 Apabila nama yang kita akan mencari data dan apabila yang kita cari tidak ada, maka akandi tabel akan kosong  seperti ini:

Codingnya:

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

        Dim jmlrow = DbmahasiswaDataSet.Tables(0).Rows.Count

        If TbmahasiswaBindingSource.Position < jmlrow - 1 Then

            TbmahasiswaBindingSource.MoveNext()

        Else

            MsgBox("tidak ada data lagi")

        End If

    End Sub

Apabila akan membuat tombol untuk menyimpan data, codingnya sebagai berikut.

Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click

        Me.Validate()

        Me.TbmahasiswaBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DonnyDataSet)

    End Sub

Apabila akan membuat tombol filter

    Private Sub FilterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FilterToolStripMenuItem.Click

tbmahasiswaBindingSource.filter=field “ dwi sumarty” ()

    End Sub

Apabila akan membuat tombol untuk menambahkan data, maka codingnya sebagai berikut.

    Private Sub TambahToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TambahToolStripMenuItem.Click

        TbmahasiswaBindingSource.AddNew()

    End Sub

Apabila kita akan membuat tombol hapus , maka codingnya adalah sebagai berikut.

    Private Sub HapusToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HapusToolStripMenuItem.Click

    End Sub

   

Terakhir pada tombol KELUAR, codingnya sederhana:

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Me.Close()

    End Sub

Jika semua kode program sudah di ketikkan pada jendela kode,,setelah itu jalankan program dengan mengklik tombol run atau tombol F5 pada keyboard.

tugas 8 visual basic - after UTS-TI11F-DWI SUMARTI-11.11.2262

Return Value Function, Overloading Function & Function Bawaan Visual Basic

 RETURN VALUE FUNCTION

 


sehingga akan menghasilkan gambar di atas sebagai berikut:

Public Class Form1

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

        Dim statistik As Single() = fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)

        TextBox1.Text = statistik(0)

        TextBox2.Text = statistik(1)

        TextBox3.Text = statistik(2)

    End Sub

    Private Function fstat(ByVal ParamArray args() As Object) As Single()

        Dim hasil(3) As Single

        Dim i As Integer

        For i = 0 To UBound(args)

            hasil(0) = hasil(0) + args(i)

            If i = 0 Then

                hasil(1) = args(i)

                hasil(2) = args(i)

            End If

            If hasil(1) < args(i) Then hasil(1) = args(i)

            If hasil(2) > args(i) Then hasil(2) = args(i)

        Next i

        Return hasil

    End Function

End Class

Function dengan nama fstat yang menggunakan ByVal ParamArray, parameter berupa array. Parameter tersebut diberi nama args yang bertipe data Object, sedangkan fstat bertipe data Single.

Dim hasil(3) As Single merupakan variabel lokal, hasil(3) berupa array yang menampung 3 elemen.
For i = 0 To UBound(args) melakukan perulangan sebanyak indeks terakhir pada array args.

If hasil(1) < args(i) Then hasil(1) = args(i)            

If hasil(2) > args(i) Then hasil(2) = args(i)

Jika hasil(1) < args(i), maka args(i) elemen dari array fstat maka nilai hasil(1) diganti args(i), dan jika hasil(2) > args(i) maka nilai hasil(2) diganti dengan args(i).

Return hasil , akan mengembalikan nilai.

Maka ketika kita menekan tombol Button1 maka akan muncul Total, Terbesar, Terkecil seperti gambar di atas.

 OVERLOADING FUNCTION

 
dengan menggunakan perintah di bawah ini akan menghasilkan gambar seperti diatas.

Public Class overloading

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

        TextBox1.Text = hitung(1, 2, 3)

    End Sub

    Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer

        hitung = bil1 + bil2

    End Function

    Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3 As Integer) As Integer

        hitung = bil1 + bil2 + bil3

    End Function

End Class

Terdapat 2 function yang sama-sama diberi nama hitung. Pada function pertama mendeklarasikan parameter menggunakan 2 keyword ByVal yang bertipe data Integer. Pada function kedua mendeklarasikan parameter menggunakan 3 keyword ByVal juga bertipe Integer.

coding program di atas, pada saat pemanggilan function menggunakan function kedua dengan  perintah hitung = bil1 + bil2 + bil3.Maka ketika kita menekan tombol Button1 pada TextBox1 akan menampilkan jumlah hitung yaitu 6, jumlah dari 1+2+3.

FUNCTION BAWAAN

Fungsi bawaan adalah suatu fungsi yang sudah ada dalam Visual Basic dan dapat digunakan secara langsung.

a.    Fungsi-fungsi konversi ke integer

Fungsi	Keterangan
Cint( )	Pembulatan nilai desimal 0.5 dan lebih ke integer yang lebih dekat
Fix( )	Pemotongan suatu nilai desimal menjadi integer
Int( )	Pembulatan ke bawah suatu nilai desimal

b.    Fungsi – fungsi konversi tipe data

Fungsi	Keterangan
Ccur( )	Mengkonversi argumen menjadi tipe data currency
Cdbul( )	Mengkonversi argumen menjadi tipe data double (presisi ganda)
CLng( )	Mengkonversi argumen menjadi tipe data long integer
CSng( )	Mengkoonversi argumen menjadi tipe data single
CStr( )	Mengkonversi argumen menjadi tipe data string
Ivar( )	Mengkonversi argumen menjadi tipe data variant

 

c.    Fungsi-fungsi matematika 

Fungsi	Keterangan
Abs( )	Mengembalikan nilai absolut dari argumen
Atn( )	Mengembalikan nilai arc tangen dari arguen dalam bentuk radian
Cos( )	Mengembalikan nilai cosinus dari argumen dalam radian
Exp( )	Mengembalikan nilai exponensial dari argumen
Log( )	Mengembalikan nilai logaritma dari argumen
Sin( )	Mengembalikan nilai sinus dar argumen dalam radian
Sqr( )	Mengembalikan nilai akar dari argumen
Tan( )	Mengembalikan nilai tangen dari argumen dalam radian

 

 

d.    Fungsi-fungsi String

Fungsi	Keterangan
Lcase$( )	Mengembalikan argumen string sebagai tipe data string huruf kecil
UCase( )	Mengembalikan argumen string sebagai tipe data variant huruf besar
Ucase$( )	Mengembalikan argumen string sebagai tipe data string huruf besar
Val( )	Mengembalikan nilai number dari argumen string
Len( )	Mengembalikan nilai number yang menunjukkan panjang string

 

e.    Fungsi-fungsi Tanggal dan Waktu

Fungsi	Keterangan
Now( )	Mengembalikan tanggal dan waktu sistem
Date( )	Mengembalikan tanggal dari sistem
Time( )	Mengembalikan waktu dari sistem