April 15, 2009

Binding Manager Dengan Vb 2008


Apakah pada sudah membaca artikel saya dengan judul Multiple BindingNavigator ?? Jika sudah, pada artikel tersebut di jelaskan bagaimana Binding Data dengan cara Design Time dan sangat mudah sekali. Untuk artikel kali ini penulis akan menjelaskan bagaimana cara Binding Data dengan cara Run Time (Coding).
Penulis menggunakan Northwind database, dengan menggunakan table Employees. Sekarang pada form tambahkan 2 buat text box dan 4 buah button. Susun dan design seperti gambar diatas.
Untuk pertama kali buat deklarasikan objek Dataset dan Binding Manager
Pada Class Form

Dim DataSet1 As New DataSet
Dim bMgr As BindingManagerBase

Lalu double click form, dan ketikkan sintaks dibawah ini :
       ' Set up connection string
        Dim connString As String = _
             "server = .\sqlexpress;" _
           & "integrated security = true;" _
           & "database = northwind"

        Dim sql As String = _
        "select " _
        & " * " _
        & "from " _
        & "employees"

        Dim conn As SqlConnection = New SqlConnection(connString)
        Dim da As SqlDataAdapter = New SqlDataAdapter(sql, conn)
        da.Fill(DataSet1, "employees")

        'Bind textbox ke data kolom
        TextBox1.DataBindings.Add("text", DataSet1, "employees.firstname")
        TextBox2.DataBindings.Add("text", DataSet1, "employees.lastname")

        'Membuat Binding Manager
        bMgr = MyBase.BindingContext(DataSet1, "employees")

Dengan sintaks di atas kita telah melakukan Binding data untuk TextBox1 dengan kolom FirstName dan TextBox2 dengan kolom LastName.
Dan untuk menjalankan Navigator data, double click button Previous/Mundur dan ketik sintaks dibawah :
bMgr.Position -= 1
Button Next/Maju : bMgr.Position += 1
Button First / Awal : bMgr.Position = 0
Button Last / Akhir : bMgr.Position = DataSet1.Tables("employees").Rows.Count - 1

Sangat mudahkan.. Selamat mencoba dan bercoding ria...
Wassalam..

April 8, 2009

Visual Basic 2008 Dan Lambda Expression


Memanjakan Programmer itulah kata yang tepat untuk Visual Basic 2008. Ada banyak fitu baru yang memudahkan programmer dalam memecahkan masalah. Salah satunya adalah Lambda Expression. Dan pada tulisan ini saya akan memberikan simple sintaks dari fungsi Where () pada query  List(of Integer). Tambahkan Module pada project anda (Vb 2008), ketikkan sintaks dibawah ini

    Private integersList As New List(Of Integer)
    Private Result As New System.Text.StringBuilder
  
    Public Function Contoh() As String
        Dim numbers() As Integer = {5, 4, 1, 3, 9, 8, 6, 7, 2, 0}
        integersList.AddRange(numbers)
        'ganti integersQuery1 menjadi 2 dan 3 untuk melihat hasil yang berbeda
        Dim integersQuery1 = integersList.Where(Function(n) n Mod 2 = 0)
        Dim integersQuery2 = integersList.Where(Function(n) n Mod 2 <> 0)
        Dim integersQuery3 = integersList.Where(Function(n) n <>
        For Each x As Integer In integersQuery1
            Result.Append(x)
            Result.Append(vbNewLine)
        Next
        Return MsgBox(Result.ToString, MsgBoxStyle.Information, "Hasil")

    End Function

Ada 3 fungsi pada sintaks diatas yaitu (mencari bilangan genap, ganjil dan bilangan di bawah 5), ganti integersQuery1 menjadi 2 atau 3 untuk melihat hasil yang berbeda.

Semoga bermanfaat..
Wassalam..