.:: Jasa Membuat Aplikasi Website,Desktop,Android Order Now..!! | | Order Now..!! Jasa Membuat Project Arduino,Robotic,Print 3D ::.

Pencarian cepat data dengan ADODC dan SQL(2)

0 komentar


بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم
bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Assalamu'alaikum warahmatullahi wabarakatuh

Deskripsi :
Mencari cepat suatu record dengan menampilkan terlebih dahulu pillihan yang mungkin dimaksud kedalam sebuah listBox

Download :

http://www.ziddu.com/download/10633420/caricepat_2.rar.html

Screenshot :

Project : Standard EXE
Component Tambahan :
  • ADODC (Microsoft ADO Data Control 6.0 (OLEDB))
  • Datagrid (Microsoft Datagrid Control 6.0 (OLEDB))
Controls :
  • list1 (listBox)
  • text1 (textbox)
  • cmdCari (Commandbutton)
  • lbsuggest (label)
  • Adodc1, Adodc2 (ADODC)
  • Datagrid1 (Datagrid)

Code :
Private Sub cmdcari_Click()
With Adodc1
.RecordSource = "SELECT Nama, Alamat FROM TbAlamat WHERE nama like '" + Text1.Text + "%'"
.Refresh
End With
DataGrid1.Refresh
End Sub

Private Sub Form_Load()
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + _
                              "Data Source=" + App.Path & "\data\db1.mdb;" + _
                              "Persist Security Info=False"
    Adodc1.RecordSource = "TbAlamat"
    Adodc1.Refresh
    DataGrid1.Refresh
   
    Adodc2.ConnectionString = Adodc1.ConnectionString
    Adodc2.RecordSource = "TbAlamat"
    Adodc2.Refresh
       
    List1.Top = lbsuggest.Top + lbsuggest.Height
    List1.Left = Text1.Left
    List1.Height = 0
    List1.Width = Text1.Width
    List1.Visible = False
    lbsuggest.Visible = False
End Sub

Private Sub List1_Click()
Text1.Text = List1.Text
List1.Visible = False
lbsuggest.Visible = False
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    List1.Clear
    List1.Visible = False
    lbsuggest.Visible = False
    n = 0
    If Not Text1.Text = "" Then
        List1.Clear
        With Adodc2
        .RecordSource = "SELECT nama FROM TbAlamat WHERE nama like '" + Text1.Text + "%'"
        .Refresh
            If Not .Recordset.EOF Then
                Do Until .Recordset.EOF
                    n = n + 1
                    List1.AddItem .Recordset(0)
                    .Recordset.MoveNext
                Loop
                List1.Height = n * 225
                If List1.Height > 2250 Then List1.Height = 2250
                List1.Visible = True
                lbsuggest.Visible = True
            End If
        End With
    End If
End Sub

 

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com


atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين
Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
wassalamualaikum warahmatullahi wabarakatuh


Artikel Pencarian cepat data dengan ADODC dan SQL(2), Diterbitkan oleh scodeaplikasi pada Kamis, 08 Juli 2010. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.

Tawk.to