Perpustakaan VB.Net

Membuat Module Koneksi Database

2018-04-05T08:40:00.002+07:00

Assalamu'alaikum Wr. Wb..

Teman-teman, adik-adikku dan semuanya.. maaf saya baru lagi membuat postingan dikarenakan kesibukan. Akhir-akhir ini banyak sekali chat dan email yang menanyakan kesulitan dalam membuat program, terutama adik-adik yang sedang melakukan tugas kuliah. Untuk hal ini saya akan membahas yang sangat mendasar sekali, yaitu bagaimana caranya koneksi ke database.

Dalam postingan sebelumnya, saya membahas bagaimana perintah untuk membuat koneksi ke berbagai database. Namun banyak juga yang belum memahami dalam perepannya. Sekarang akan saya bahas lebih lanjut. Yaitu dengan cara membuat module dan di gunakan di prosedure di tempat lain.

Baik kita mulai pembahasannya. Pertama kali kita buat suatu Module, kita beri nama MdlBase.vb

kemudian ketikan deklarasi berikut :

#Region "Setting variabel global"
Public MyServerName As String
Public MyDatabaseName As String
Public MyProvider As String = ""
Public MyProvider1 As String = ""
Public SQLConn As New SqlConnection(MyProvider)
Public SQLConn1 As New SqlConnection(MyProvider1)
Public SQLComm As SqlCommand = Nothing
Public objDataAdapter As SqlDataAdapter = Nothing
Public ObjDataSet As DataSet = Nothing
Private Declare Ansi Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
Public strINIFile As String = Application.StartupPath + "\Project.ini"
#End Region

setelah mengetikan deklarasi, kita buat prosedure untuk proses koneksinya. Ketikan sbb :

#Region "Cek Connection String"
Public Sub CheckConnection()

Dim StrConn As String = ""

StrConn = "Persist Security Info=false;"
StrConn = StrConn & "Data Source=" + (ketik alamat IP database) + ";"
StrConn = StrConn & "Initial Catalog=" + (Nama Database) + ";"
StrConn = StrConn & "User ID=" + (Nama user Database) + ";"
StrConn = StrConn & "Password=" + (Password user Database) + ";"

MyProvider = StrConn
MyProvider1 = StrConn

SQLConn = New SqlConnection(MyProvider)
SQLConn1 = New SqlConnection(MyProvider1)

If SQLConn Is Nothing Then
SQLConn = New SqlConnection(MyProvider)
SQLConn.Open()
ElseIf SQLConn1 Is Nothing Then
SQLConn1 = New SqlConnection(MyProvider1)
SQLConn1.Open()
Else
If SQLConn.State = ConnectionState.Closed Or SQLConn.State = ConnectionState.Broken Then
SQLConn.Open()
ElseIf SQLConn1.State = ConnectionState.Closed Or SQLConn1.State = ConnectionState.Broken Then
SQLConn1.Open()
End If
End If
End Sub
#End Region

simpan module koneksi tersebut. Untuk proses pamanggilannya, ketika kita membuat form input data, report atau sebagaimnya cukup mengetikan CheckConnection()

demikian pembahasan koneksi ke database, semoga bermanfaat.

Metode Next Page dan Previous Page dengan Tabcontrol

2017-03-23T12:02:00.001+07:00

Assalamu'alaikum Wr. Wb....Selamat berjumpa lagi..
Kali ini saya akan membahas pembuatan apilkasi dengan metode Next Page dan Previous Page.

Biasanya metode ini diperuntukan bagi aplikasi yang membutuhkan beberapa halaman dan menuntun user untuk input data secara bertahap. Metode ini banyak diterapkan dalam sistem aplikasi wizard. sebagai contoh misalnya aplikasi input data karyawan, dimana user harus input data selengkap mungkin sehingga membutuhkan banyak halaman.

Baik kita mulai pembahasan metode ini :
1. Buat sebuah form
2. Buat Tabcontrol
3. Klik Properties Tabcontrol --> TabPages lihat gambar (klik tombol ...)

akan muncul gambar sebagai berikut :

buatlah tabpage dengan klik tombol add sebanyak 4 buah dengan properties sbb :
Text : dihapus/dihilangkan sehingga diatas tab nanti tidak ada nama tab

4. Buat 3 tombol didalam form dengan nama : Cancel, Next dan Prev seperti gbr dibawah ini :
berinama BtnBatal, BtnNext dan BtnPrev

5. Buat object bebas disetiap tabpage. agar kita tahu apakah tombol next - prev bekerja.
6. ketik list prog ini dalam form load

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
TabControl1.SelectedIndex = 0
BtnNext.Enabled = True
BtnPrev.Enabled = False
TabControl1.Appearance = TabAppearance.FlatButtons
TabControl1.ItemSize = New Size(0, 1)
TabControl1.SizeMode = TabSizeMode.Fixed
End Sub

7. Ketik list Prog berikut dalam prosedur BtnNext Klik sbb :

Private Sub BtnNext_Click(sender As System.Object, e As System.EventArgs) Handles BtnNext.Click
For Each tc In {TabControl1}
With tc
If TabControl1.SelectedIndex = 0 Then
---- isi sesuai kebutuhan aplikasi
ElseIf TabControl1.SelectedIndex = 1 Then
---- isi sesuai kebutuhan aplikasi
ElseIf TabControl1.SelectedIndex = 2 Then
BtnNext.Enabled = False
---- isi sesuai kebutuhan aplikasi
End If

TabControl1.SelectedIndex = TabControl1.SelectedIndex + 1
BtnPrev.Enabled = True

End With
Next
End Sub

8. Ketik list prog. dalam prosedur BtnPrev klik sbb :

Private Sub BtnPrev_Click(sender As System.Object, e As System.EventArgs) Handles BtnPrev.Click
For Each tc In {TabControl1}
With tc
TabControl1.SelectedIndex = TabControl1.SelectedIndex - 1
BtnNext.Enabled = True
If TabControl1.SelectedIndex = 0 Then
BtnPrev.Enabled = False
End If
End With
Next
End Sub

9. Terakhir Ketik close di prosedur btnclose sbb :

Private Sub BtnBatal_Click(sender As System.Object, e As System.EventArgs) Handles BtnBatal.Click
Close()
End Sub

10. Run Aplikasi.

Ketika proses running berjalan, dihalaman pertama tombol next enable sementara tombol Previous Disable. Dihalaman berikutnya keduanya enable. Dihalaman terakhir tombol next Disable sedangkan tombol previous enable.

demikian pembahasan metode ini, semoga bermanfaat. selamat mencoba...

Text Box Seperti Radio Button di DataGridView

2015-08-21T14:37:00.000+07:00

Pada kasus tertentu, kita sering membutuhkan pilihan pada kolom tertentu untuk menentukan apakah data sudah di verifikasi atau belum. Sebagai contoh : Misalkan terdapat Soal Ujian Pilihan Benar atau salah atau Benar keduanya. Atau Ceklist Formulir atau data barang yang harus di cek oleh Ceker. Untuk lebih lanjut kita langsung ke permasalahan dengan contoh kasus dibawah ini :

user harus melakukan ceklist pada salah satu kolom Ya, Tidak atau Tidak Perlu. Sementara sifat Chekbox adalah bisa melakukan ceklist semuanya. Tapi kita menginginkan perlakuannya seperti Radio Button, Ceklist harus dilakukan pada salahsatunya.

Ini List Programnya.. Agar sifat checkbox diatas seperti radio Button :

Private Sub Datagridview1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dglist.CellContentClick
Dim firstCheckboxColIndex = 2
Dim secondCheckboxColIndex = 3
Dim ThirdCheckboxColIndex = 4
Select Case e.ColumnIndex
Case firstCheckboxColIndex
DirectCast(sender, DataGridView).Rows(e.RowIndex).Cells(3).Value = False
DirectCast(sender, DataGridView).Rows(e.RowIndex).Cells(4).Value = False
Case secondCheckboxColIndex
DirectCast(sender, DataGridView).Rows(e.RowIndex).Cells(2).Value = False
DirectCast(sender, DataGridView).Rows(e.RowIndex).Cells(4).Value = False
Case ThirdCheckboxColIndex
DirectCast(sender, DataGridView).Rows(e.RowIndex).Cells(2).Value = False
DirectCast(sender, DataGridView).Rows(e.RowIndex).Cells(3).Value = False
End Select
End Sub

Keterangan List Program :
Ketika kita ceklist kolom 2, maka kolom 3 dan 4 akan bernilai false
Ketika kita ceklist kolom 3, maka kolom 2 dan 4 akan bernilai false
Ketika kita ceklist kolom 4, maka kolom 2 dan 3 akan bernilai false

hasilnya akan seperti dibawah ini :

Demikian Metodnya..semoga bisa membantu.

Membuat User Control Progress Bar

2012-11-20T10:00:00.002+07:00

Progress Bar sering kali digunakan dalam berbagai aplikasi terutama dalam proses yang memerlukan waktu sedikit lama.Sehingga user dapat membedakan bahwa proses sedang berjalan. Pembahasan kali ini saya akan membuat User Control Progress Bar. Pertama kali kita buat User Control dan beri nama ProgreswsBar, kemudian masukkan Progress Bar dan Label seperti gambar dibawah ini :

progress Bar diberi nama : bar
label diberi nama : lblProgress

kemudian ketikan list program dibawah ini :

Inherits System.Windows.Forms.UserControl

#Region " Windows Form Designer generated code "

Public Sub New()

MyBase.New()

InitializeComponent()

End Sub

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose()

End If

MyBase.Dispose(disposing)

End Sub

Private components As System.ComponentModel.IContainer

Friend WithEvents Bar As System.Windows.Forms.ProgressBar

Friend WithEvents lblProgress As System.Windows.Forms.Label

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

Me.Bar = New System.Windows.Forms.ProgressBar

Me.lblProgress = New System.Windows.Forms.Label

Me.SuspendLayout()

Me.Bar.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _

Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)

Me.Bar.Location = New System.Drawing.Point(4, 8)

Me.Bar.Name = "Bar"

Me.Bar.Size = New System.Drawing.Size(154, 23)

Me.Bar.TabIndex = 0

Me.lblProgress.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _

Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)

Me.lblProgress.Location = New System.Drawing.Point(5, 31)

Me.lblProgress.Name = "lblProgress"

Me.lblProgress.Size = New System.Drawing.Size(152, 16)

Me.lblProgress.TabIndex = 1

Me.lblProgress.Text = "0% Done"

Me.lblProgress.TextAlign = System.Drawing.ContentAlignment.TopCenter

Me.Controls.Add(Me.lblProgress)

Me.Controls.Add(Me.Bar)

Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Me.Name = "Progress"

Me.Size = New System.Drawing.Size(164, 49)

Me.ResumeLayout(False)

End Sub

#End Region

Property Value() As Integer

Get

Return Bar.Value

End Get

Set(ByVal Value As Integer)

Bar.Value = Value

UpdateLabel()

End Set

End Property

Property Maximum() As Integer

Get

Return Bar.Maximum

End Get

Set(ByVal Value As Integer)

Bar.Maximum = Value

End Set

End Property

Property [Step]() As Integer

Get

Return Bar.Step

End Get

Set(ByVal Value As Integer)

Bar.Step = Value

End Set

End Property

Public Sub PerformStep()

Bar.PerformStep()

UpdateLabel()

End Sub

Private Sub UpdateLabel()

lblProgress.Text = ((Bar.Value * 100) \ Bar.Maximum).ToString() & "% Done"

End Sub

setelah selesai kita akan panggil dalam WinForm. Buat sebuah Form dengan nama FrmBar. Masukkan Timer beri nama tmrIncrementBar. masukkan juga User Control yang sudah dibuat ProgressBar kedalam Form. Dalam Propertis Form ubah Control Box menjadi False, Form Border Style -->FixedToolWindow. Skema UI nya akan seperti gambar dibawah ini :

ketik list prog sbb :

Private Sub LoadProgressBar()
        status.Visible = True

        tmrIncrementBar.Enabled = False

        status.Value = 0
        status.Maximum = 100
        status.Step = 1

        tmrIncrementBar.Enabled = True
End Sub

Private Sub tmrIncrementBar_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrIncrementBar.Tick
        Dim sJum As Double

        sJum = status.Value

        status.PerformStep()
        If status.Value = 10 Then
            Call ---Prosedur 1
        ElseIf status.Value = 30 Then
            Call ---Prosedur 2
        ElseIf status.Value = 50 Then
            Call ---Prosedur 3
        ElseIf status.Value = 70 Then
            Call ---Prosedur 4
        ElseIf status.Value = 90 Then
            Call ---Prosedur 5
        ElseIf status.Value = status.Maximum Then
            tmrIncrementBar.Enabled = False
            status.Visible = False
            Close()
        End If
End Sub

dalam load form panggil prosedur LoadProgressBar
     call LoadProgressBar()

demikian pembuatan User Control Progress Bar. Silahkan untuk mencobanya...

Menggunakan Perintah Pengulangan FOR EACH di VB.NET

2012-10-25T10:44:00.003+07:00

Dalam pemrograman sering kali kita melakukan perintah yang berulang terutama ketika kita menggunakan data yang tersimpan dalam Grid atau pun menyimpan ke grid. Untuk itu bisa digunakan perintah berulang, salah satunya adalah perintah FOR EACH LOOP.

Perintah ini biasanya digunakan untuk mengerjakan perintah item dalam suatu grup. Konsep perintah pengualangannya adalah sebagai berikut :

For Each [Item] In [Group]
   [loopBody]

Next [Item]

contoh list programnya adalah sebagai berikut :

      For Each brs As DataGridViewRow In dgJournal.Rows
            GetPosting(brs.Cells(6).Value, brs.Cells(12).Value)
            brs.Cells(14).Value = gCek
            dgJournal.Update()
      Next

brs = item data gridview merupakan variabel
dgjournal = Nama Grid

demikian pembahasan looping dengan perintah FOR EACH LOOP.

Cara menggunakan IF..ELSE..END IF

2012-10-24T08:42:00.000+07:00

Kondisional Pernyataan IF..ELSE digunakan untuk memeriksa kondisi yang diberikan dan membuat keputusan berdasarkan kondisi itu sendiri. Biasanya menggunakan Operator Perbandingan dan Operator Logis.
Konsep pernyataannya adalah sebagai berikut :

    If [your condition here]
       Your code here
    Else
       Your code Here
    End If

Jika kondisi bernilai TRUE maka, sistem akan mengambil keputusan diantara IF dan Else. Dan Apabila bernilai FALSE maka, sistem akan mengambil keputusan diantara Else dan End IF.

Bagaimana jika banyak kondisi yang diinginkan ? Jika lebih dari satu kondisi maka bisa digunakan ElseIf.

    If [your condition here]
       Your code here
    ElseIf [your condition here]
       Your code here
    ElseIf [your condition here]
       Your code here
    Else
       Your code Here
    End If

sebagai contoh misalkan pemberian nilai terhadap siswa dengan aturan atau asumsi sebagai berikut :

Jika nilai lebih dari atau sama dengan 80 maka siswa mendapat nilai A.
Jika nilai lebih dari atau sama dengan 70 maka siswa mendapat nilai B.
Jika nilai lebih dari atau sama dengan 60 maka siswa mendapat nilai C.
Jika nilai lebih dari atau sama dengan 50 maka siswa mendapat nilai D.
Jika nilai lebih dari atau sama dengan 0 maka siswa mendapat nilai E.

maka penulisan List Program adalah sbb :

1. If Nilai >= 80 Then

2. MsgBox("Siswa Mendapat Nilai A")

3. ElseIf Nilai >= 70 Then

4. MsgBox("Siswa Mendapat Nilai B")

5. ElseIf Nilai >= 60 Then

6. MsgBox("Siswa Mendapat Nilai C")

7. ElseIf Nilai >= 50 Then

8. MsgBox("Siswa Mendapat Nilai D")

9. ElseIf Nilai >= 0 Then

10. MsgBox("Siswa Mendapat Nilai E")

11. Else

12. MsgBox("Tidak Terdefinisi")

13. End If

demikian pembahasan pernyataan kondisional IF..ELSE..ENDIF. Semoga bermanfaat

TextBox AutoComplete dengan Database sebagai Data Source

2012-10-23T08:21:00.000+07:00

Proses AutoComplete di TextBox lebih mirip ketika kita mengetikan kata di google, maka akan keluar kata yang menyerupai kata yang diketik secara otomatis. Proses ini dengan tujuan untuk mempermudah user dalam memilih/mencari kata yang dicarinya. Langsung saja kita bahas listing Programnya..

1. buat sebuah TextBox di dalam Form dan kita beri nama txtNama.

2. di Property box ubah AutocompleteMode -- > SuggestAppend dan AotuCompleteSource --> CustomeSource

3. Buat Prosedure :

Private Sub ProcACText()

Dim ds As DataSet = New DataSet()

Dim SQL As String

Dim authors As New AutoCompleteStringCollection

SQL = "select Fullname from Person where RecordKey between 2042470 and 2045000 order by Fullname"

CheckConnection() 'Prosedure Koneksi silahkan buat sendiri

Dim SqlDbDataAdapter As System.Data.SqlClient.SqlDataAdapter = New System.Data.SqlClient.SqlDataAdapter(SQL, SQLConn)

SqlDbDataAdapter.Fill(ds, "Person")

Dim dvManager As DataViewManager = New DataViewManager(ds)

Dim dv As DataView = dvManager.CreateDataView(ds.Tables("Person"))

For Each dRow In ds.Tables(0).Rows

txtNama.AutoCompleteCustomSource.Add(dRow("Fullname").ToString)

End Sub

4. Panggil Prosedure di Load Form

Private Sub FrmAutocompleteTextBox_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Call ProcACText()

End Sub

5. Running Program Hasilnya akan terlihat seperti Gambar dibawah ini :

Selamat Mencoba !!

Fungsi Terbilang VB.net

2012-10-17T09:54:00.002+07:00

Hari ini saya akan membahas cara membuat fungsi terbilang. fungsi ini sering kali digunakan terutama untuk aplikasi yang berhubungan dengan bisnis keuangan.
Kita buat function ini dalam sebuah Class yang di public. Listing Programnya adalah sebagai berikut :
#Region "Fungsi Terbilang Hingga Ratusan Trilyun"
        Public Function Terbilang(ByVal Angka As Double) As String
            Dim strAngka, strDiurai, Urai, Tbl1, Tbl2 As String
            Dim x, y, z As Short
            Dim arrBelasan() As String = {"SEPULUH ", "SEBELAS ", _
                "DUA BELAS ", "TIGA BELAS ", "EMPAT BELAS ", _
                "LIMA BELAS ", "ENAM BELAS ", "TUJUH BELAS ", _
                "DELAPAN BELAS ", "SEMBILAN BELAS "}
            Dim arrSatuan() As String = {"DUA ", "TIGA ", "EMPAT ", _
                "LIMA ", "ENAM ", "TUJUH ", "DELAPAN ", "SEMBILAN "}
            Urai = ""
            'Angka yang akan dibuat terbilang dibulatkan dulu Jika ada desimalnya

            Angka = Math.Round(Angka)

            'Angka tipe Double diubah menjadi string Dihilangkan spasi dikiri atau kanan angka jika ada
            strAngka = Trim(CStr(Angka))

            'Perulangan While ...End While akan mengevaluasi angka satu per satu dan dimulai dari angka paling kiri
            'x menunjukkan iterasi ke berapa dimulai dari 1

            While (x < Len(strAngka))
                x += 1
                strDiurai = Mid(strAngka, x, 1)

                'y menunjukkan angka yang sedang dievaluasi
                y += Val(strDiurai)

                'z menunjukkan posisi digit ke berapa
                z = Len(strAngka) - x + 1

                ' Jika yang dievaluasi angka 1
                If Val(strDiurai) = 1 Then
                    If (z = 1 Or z = 7 Or z = 10 Or z = 13) Then
                        Tbl1 = "SATU "
                    ElseIf (z = 4) Then
                        If (x = 1) Then
                            Tbl1 = "SE"
                        Else
                            Tbl1 = "SATU "
                        End If
                    ElseIf (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then
                        'Ditambahkan iterasi angka berikutnya
                        x += 1
                        strDiurai = Mid(strAngka, x, 1)
                        z = Len(strAngka) - x + 1
                        Tbl2 = ""
                        Tbl1 = arrBelasan(Val(strDiurai))
                    Else
                        Tbl1 = "SE"
                    End If
                    'Yang dievaluasi angka 2 sampai 9
                ElseIf Val(strDiurai) > 1 And Val(strDiurai) < 10 Then
                    Tbl1 = arrSatuan((Val(strDiurai)) - 2)
                Else
                    Tbl1 = ""
                End If

                If (Val(strDiurai) > 0) Then
                    If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or _
                            z = 14) Then
                        Tbl2 = "PULUH "
                    ElseIf (z = 3 Or z = 6 Or z = 9 Or z = 12 _
                            Or z = 15) Then
                        Tbl2 = "RATUS "
                    Else
                        Tbl2 = ""
                    End If
                Else
                    Tbl2 = ""
                End If

                If (y > 0) Then
                    Select Case z
                        Case 4
                            Tbl2 &= "RIBU "
                            y = 0
                        Case 7
                            Tbl2 &= "JUTA "
                            y = 0
                        Case 10
                            Tbl2 &= "MILYAR "
                            y = 0
                        Case 13
                            Tbl2 &= "TRILYUN "
                            y = 0
                    End Select
                End If

                Urai = Urai & Tbl1 & Tbl2
            End While

            Terbilang = Urai & "RUPIAH"
        End Function
#End Region

sesudah listing program diatas diketik. kita panggil fungsi diatas dengan perintah berikut :

        Terbilang(CDbl(txtInput.Text))

ok. pembahasan pembuatan fungsi terbilang sudah selesai dan siap untuk digunakan. selamat mencoba !!.

Metoda pencarian kata dengan textbox di datagridview

2012-10-16T09:36:00.000+07:00

Dalam suatu aplikasi, biasanya ada pencarian kata dalam daftar/list yang ditampilkan dalam suatu Grid. Misalnya pencarian Nama, Alamat, Nomor Invoice dsb. Dalam hal ini penulis akan membahas pencarian dimana user mengetikan kata dalam sebuah textbox, sementara kursor didatagrid akan mencari kata yang sama sesuai dengan kata dalam textbox. Baiklah kita asumsikan bahwa kita sudah mempunyai aplikasi dan data yang akan ditampilkan seperti gambar dibawah ini :

proses pencarian gambar diatas adalah pencarian Nomor Akun. ketika kita mengetikan Nomor Akun yang kita inginkan, kursor yang berwarna biru di dalam grid akan menunjukkannya. Listing Programnya adalah sebagai berikut :

Private Sub txtFind_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFind.TextChanged

        Dim xloop1 As Integer
        Dim sPola As String
        Dim sbuka As String
        Dim SBetul As Boolean

        sPola = txtFind.Text + "*"

        For xloop1 = 1 To Gridme.RowCount - 1
            sbuka = Gridme.Rows(xloop1 - 1).Cells(0).Value
            SBetul = UCase(sbuka) Like UCase(sPola)

            If SBetul = True Then
                Gridme.CurrentCell = Gridme.Item(0, xloop1 - 1)
                Exit Sub
            End If
        Next
    End Sub

keterangan Listing Program :

    sPola = txtFind.Text + "*" : string yang akan dicari
sbuka = Gridme.Rows(xloop1 - 1).Cells(0).Value : string pembanding dalam Grid dengan alamat cell = 0
    SBetul = UCase(sbuka) Like UCase(sPola) : Proses pembandingan kata yang dicari dengan pembanding

     If SBetul = True Then
           Gridme.CurrentCell = Gridme.Item(0, xloop1 - 1)
           Exit Sub
     End If
    : Jika sBetul = true, maka kursor akan diam row yang sama dengan kata yang dicari

hasilnya akan seperti ini,

demikian cara pencarian dengan menggunakan textbox. semoga bermanfaat.

Cara VB.NET Koneksi ke Database SQL

2012-10-15T13:12:00.000+07:00

Waduhhh.. sudah lama tidak share knowledge, dikarenakan sibuk dengan pekerjaan. disela-sela waktu ini saya sempatkan untuk share. Untuk share kali ini adalah tentang koneksi ke database. Saya akan memberikan contoh koneksi ke berbagai jenis software penyimpan data. Baik kita mulai saja... sharingnya.

A. Koneksi ke SQL

SQL ODBC connection strings

Standard Security:

"Driver={SQLServer};Server=Your_Server_Name;Database=Your_Database_Name;

Uid=Your_Username;Pwd=Your_Password;"

Trusted connection:

"Driver={SQLServer};Server=Your_Server_Name;Database=Your_Database_Name;

Trusted_Connection=yes;"

SQL OLE DB connection strings

Standard Security:

"Provider=SQLOLEDB;Data Source=Your_Server_Name;

Initial Catalog=Your_Database_Name;UserId=Your_Username;

Password=Your_Password;"

Trusted connection:

"Provider=SQLOLEDB;Data Source=Your_Server_Name;

Initial Catalog=Your_Database_Name;Integrated Security=SSPI;"

SQL OleDbConnection .NET strings

Standard Security:

"Provider=SQLOLEDB;Data Source=Your_Server_Name;

Initial Catalog= Your_Database_Name;UserId=Your_Username;

Password=Your_Password;"

Trusted connection:

"Provider=SQLOLEDB;Data Source=Your_Server_Name;
Initial Catalog=Your_Database_Name;Integrated Security=SSPI;"

SQL SqlConnection .NET strings

Standard Security:

1. "Data Source=Your_Server_Name;

Initial Catalog= Your_Database_Name;UserId=Your_Username;

Password=Your_Password;"

2. "Server=Your_Server_Name;Database=Your_Database_Name;

UserID=Your_Username;Password=Your_Password;Trusted_Connection=False"

Trusted connection:

1. "Data Source=Your_Server_Name;Initial Catalog=Your_Database_Name;

Integrated Security=SSPI;"

2."Server=Your_Server_Name;Database=Your_Database_Name;

Trusted_Connection=True;"

Cara VB.NET Koneksi ke Database MySQL dan Oracle

2012-10-15T07:55:00.002+07:00

MySQL connection strings

MySQL ODBC connection strings

Open connection to local MySQL database using MySQL ODBC 3.51 Driver

"Provider=MSDASQL; DRIVER={MySQL ODBC 3.51Driver}; SERVER= localhost; DATABASE=Your_MySQL_Database; UID= Your_Username; PASSWORD=Your_Password; OPTION=3"

MySQL OLE DB & OleDbConnection (.NET framework) connection strings

Open connection to MySQL database:

"Provider=MySQLProv;Data Source=Your_MySQL_Database;User Id=Your_Username; Password=Your_Password;"

Oracle connection strings

Oracle ODBC connection strings

Open connection to Oracle database using ODBC

"Driver= {Microsoft ODBCforOracle};Server=Your_Oracle_Server.world;Uid=Your_Username;Pwd=Your_Password;"

Oracle OLE DB & OleDbConnection (.NET framework) connection strings

Open connection to Oracle database with standard security:

1. "Provider=MSDAORA;Data Source= Your_Oracle_Database;UserId=Your_Username;Password=Your_Password;"

2. "Provider= OraOLEDB.Oracle;Your_Oracle_Database;UserId=Your_Username;Password=Your_Password;"

Open trusted connection to Oracle database

"Provider= OraOLEDB.Oracle;DataSource=Your_Oracle_Database;OSAuthent=1;"

Cara VB.NET Koneksi ke Database MS Access

2012-10-13T11:05:00.001+07:00

MS Access connection strings

MS Access ODBC connection strings

Standard Security:

"Driver= {MicrosoftAccessDriver(*.mdb)};DBQ=C:\App1\Your_Database_Name.mdb;Uid=Your_Username;Pwd=Your_Password;"

Workgroup:

"Driver={Microsoft Access Driver (*.mdb)}; Dbq=C:\App1\Your_Database_Name.mdb; SystemDB=C:\App1\Your_Database_Name.mdw;"

Exclusive "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\App1\Your_Database_Name.mdb; Exclusive=1; Uid=Your_Username; Pwd=Your_Password;"

MS Access OLE DB & OleDbConnection (.NET framework) connection strings

Open connection to Access database:

"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\App1\Your_Database_Name.mdb; User Id=admin; Password="

Open connection to Access database using Workgroup (System database):

"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\App1\Your_Database_Name.mdb; Jet OLEDB:System Database=c:\App1\Your_System_Database_Name.mdw"

Open connection to password protected Access database:

"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\App1\Your_Database_Name.mdb; Jet OLEDB:Database Password=Your_Password"

Open connection to Access database located on a network share:

"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\Server_Name\Share_Name\Share_Path\Your_Database_Name.mdb"

Open connection to Access database located on a remote server:

"Provider=MS Remote; Remote Server=http://Your-Remote-Server-IP; Remote Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\App1\Your_Database_Name.mdb"

Cara Ekspor DataGridView ke Excel

2011-02-01T10:39:00.003+07:00

Dalam beberapa aplikasi, banyak yang menginginkan hasil pengolahan data yang ditampilkan di grid. langsung di Printout menggunakan excel. selain mudah untuk di print juga dapat diedit jika terjadi kesalahan input. di sini kita akan membahas itu. dan ini List Prognya.

Imports System.Data

Imports System.Data.SqlClient

Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Button1.Click

Dim cnn As SqlConnection

Dim connectionString As String

Dim sql As String

connectionString = "data source=servername;" & _

"initial catalog=databasename;user id=username;password=password;"

cnn = New SqlConnection(connectionString)

cnn.Open()

sql = "SELECT * FROM Product"

Dim dscmd As New SqlDataAdapter(sql, cnn)

Dim ds As New DataSet

dscmd.Fill(ds)

DataGridView1.DataSource = ds.Tables(0)

cnn.Close()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Button2.Click

Dim xlApp As Excel.Application

Dim xlWorkBook As Excel.Workbook

Dim xlWorkSheet As Excel.Worksheet

Dim misValue As Object = System.Reflection.Missing.Value

Dim i As Integer

Dim j As Integer

xlApp = New Excel.ApplicationClass

xlWorkBook = xlApp.Workbooks.Add(misValue)

xlWorkSheet = xlWorkBook.Sheets("sheet1")

For i = 0 To DataGridView1.RowCount - 2

For j = 0 To DataGridView1.ColumnCount - 1

xlWorkSheet.Cells(i + 1, j + 1) = _

DataGridView1(j, i).Value.ToString()

xlWorkSheet.SaveAs("C:\vbexcel.xlsx")

xlWorkBook.Close()

xlApp.Quit()

releaseObject(xlApp)

releaseObject(xlWorkBook)

releaseObject(xlWorkSheet)

MsgBox("You can find the file C:\vbexcel.xlsx")

End Sub

Private Sub releaseObject(ByVal obj As Object)

Try

System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)

obj = Nothing

Catch ex As Exception

obj = Nothing

Finally

GC.Collect()

End Try

End Sub

End Class

Demikian ekspor data ke excel. silahkan dicoba !!!

Memasukkan Hasil Input di TextBox ke DataGridView dengan sort Descending

2011-01-27T10:46:00.000+07:00

Kontrol DataGridView digunakan untuk menampilkan data. Baik Data dari hasil query maupun dari textbox. Kita akan membahas bagaimana caranya memasukkan data ke datagridview dari textbox dengan hasil berurut secara descending. Jadi setiap data yang diinput baru akan ditempatkan di baris pertama.

Kita buat form dan komponennya lihat gambar :

dan ketik list Programnya sebagai berikut :

Public Class Form2
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
gridme.Rows.Add(1)

gridme.Rows(gridme.RowCount - 2).Cells(0).Value = CStr(gridme.RowCount - 1)
gridme.Rows(gridme.RowCount - 2).Cells(1).Value = TextBox1.Text
gridme.Rows(gridme.RowCount - 2).Cells(2).Value = TextBox2.Text
gridme.Rows(gridme.RowCount - 2).Cells(3).Value = TextBox3.Text
gridme.Rows(gridme.RowCount - 2).Cells(4).Value = TextBox4.Text
gridme.Rows(gridme.RowCount - 2).Cells(5).Value = TextBox5.Text

gridme.Sort(New comparer)
gridme.Update()

End Sub

Public Class comparer Implements System.Collections.IComparer

Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
Dim dataX As DataGridViewRow = DirectCast(x, DataGridViewRow)
Dim dataY As DataGridViewRow = DirectCast(y, DataGridViewRow)

'sort descending
Return CInt(dataY.Cells(0).Value).CompareTo(CInt(dataX.Cells(0).Value))

End Function
End Class
End Class

Ini adalah hasil akhirnya.
selamat mencoba.

DataGridView adding rows and columns in VB.NET

2010-12-02T15:23:00.000+07:00

The DataGridView control is designed to be a complete solution for displaying tabular data with Windows Forms. The DataGridView control is highly configurable and extensible, and it provides many properties, methods, and events to customize its appearance and behavior. The DataGridView control is used to display data from a variety of external data sources. Alternatively, you can add rows and columns to the control and manually populate it with data. The following vb.net source code shows how to manually create Columns and Rows in a DataGridView.

DataGridView1.Columns(Index).Name = "Column Name"

Imports System.Data.SqlClient
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
DataGridView1.ColumnCount = 3
DataGridView1.Columns(0).Name = "Product ID"
DataGridView1.Columns(1).Name = "Product Name"
DataGridView1.Columns(2).Name = "Product_Price"

Dim row As String() = New String() {"1", "Product 1", "1000"}
DataGridView1.Rows.Add(row)
row = New String() {"2", "Product 2", "2000"}
DataGridView1.Rows.Add(row)
row = New String() {"3", "Product 3", "3000"}
DataGridView1.Rows.Add(row)
row = New String() {"4", "Product 4", "4000"}
DataGridView1.Rows.Add(row)
End Sub
End Class

Delete row in DataGridView

2010-10-29T10:12:00.001+07:00

we will discuss how to delete a row in DataGridView. its very easy way of typing the following syntax:
Private Sub DataGridView1_UserDeletingRow(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowCancelEventArgs) Handles DataGridView1.UserDeletingRow
Dim id As String = e.Row.Cells("ISBN").FormattedValue.ToString() 'Taking value to the ISBN field
Dim name As String = e.Row.Cells("Title").FormattedValue.ToString()
'Displays a dialog windows
Dim result As DialogResult = MessageBox.Show("Are you sure you want to delete ISBN " & id & " - " & name & "?", "Delete?", MessageBoxButtons.OKCancel)
'If the Cancel button that is selected then the process will be deleted.
If result = DialogResult.Cancel Then
e.Cancel = True
End If