Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
30/01/2012 14:23
Konu Sahibi
drummers
Yorumlar
2
Okunma
1756
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

drummers

Omur Can
Destek
OM.... CA....
 409
 119
 11/05/2009
125
 İzmir
 
 Ofis 2003
 17/09/2018,12:41
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        arabul()
    End Sub
    Private Sub arabul()
        Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tablolar.mdb;")
        Dim adp As New OleDb.OleDbDataAdapter()
        adp.SelectCommand = New OleDb.OleDbCommand("Select * From faaliyetkodlari", baglan)

        baglan.Open()

        Dim ds1 As New DataSet()
        adp.Fill(ds1)

        baglan.Close()

        ListView1.Items.Clear()
        For Each i As DataRow In ds1.Tables(0).Rows

            If (i("Aciklama").ToString().StartsWith(TextBox1.Text)) Then
                Dim item As New ListViewItem(i("Kod").ToString())
                item.SubItems.Add(i("Aciklama").ToString())
                ListView1.Items.Add(item)

            End If
        Next
    End Sub


Bu kod Textbox1 e yazarak veritabanında arama yapabiliyorum.

Benim istediğim cümle içindeki kelimede ve büyük küçük harfe DUYARSIZ olarak arama yapması.

Örnek:

Aranacak kelime = "Muhasebe"

Arama Cümlesi(verilerimizdeki faaliyet açıklaması) = " Defter Tutma ve Buna Benzer Muhasebe,Muhasebeye Benzer İşler"



Şümdi ben Textbox1 e "muhasebe" yada "muh" yazdığımda bu satırı bana bulamıyacak, ben cümle veya cümleler içinde de arama yapmasını istiyorum.

Teşekkürler

Ek Dosyalar
faaliyet kod.rar(170.69 KB)


drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

Kur@l

AccessTR.Net
Uzman
 42
 2.034
 59
 05/11/2008
 -
 
 Ofis 2010 32 Bit
 22/07/2018,02:01
Çözüldü 
Aşağıda kş şekilde yazarsanız size hazır veri gelir sizde ayrıca cümle içinde aramazsınız

SQL Code
Select * From faaliyetkodlari where aciklama like %muh% 

siz bu şekilde zaten bulabiliyormuşsunuz.

O zaman şu şekilde yapmalısınız.
Bu kalıp sizin aradığınız kısmı aradığınız metinde olup olmadığını belirler. Kod Vba için ama mantık VB.NET içinde aynı.

Visual Basic Code
1
2
3
4
5
6
7
8
For i = 1 To Len(Me.ANAMETIN)
 
If Mid(Me.ANAMETIN, i, len(me.ARANANMETIN) ) = me.ARANANMETIN Then
Msgbox "Aranan Metin Pozisyonu : " & i 

End If

Next



Kullanici Avatari

drummers

Omur Can
Destek
OM.... CA....
 409
 119
 11/05/2009
125
 İzmir
 
 Ofis 2003
 17/09/2018,12:41
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub arabul()
        ListView1.Items.Clear()
        Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tablolar.mdb;")
        Dim adp As New OleDb.OleDbDataAdapter()
        adp.SelectCommand = New OleDb.OleDbCommand("SELECT faaliyetkodlari.Kod, faaliyetkodlari.Aciklama FROM faaliyetkodlari WHERE faaliyetkodlari.Aciklama Like '%" & Me.TextBox48.Text & "%' ", baglan)
        baglan.Open()
        Dim ds1 As New DataSet()
        adp.Fill(ds1)
        baglan.Close()
        Dim item As New ListViewItem
        For Each row As DataRow In ds1.Tables(0).Rows
            item = ListView1.Items.Add(row.Item("Kod"))
            item.SubItems.Add(row.Item("Aciklama"))
        Next
    End Sub


Visual Basic Code
1
2
3
4
5
6
Private Sub ListView1_ItemChecked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ItemCheckedEventArgs) Handles ListView1.ItemChecked
        If (e.Item.Checked) Then
            TextBox7.Text += e.Item.SubItems(0).Text.ToString() '& " - " & e.Item.SubItems(1).Text.ToString()
            'Kayit.TextBox22.Text += e.Item.SubItems(1).Text.ToString()
        End If
    End Sub


Sorunu böyle aştım.


drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü VB.NET DataGridViev İçinde Arama Yapma Mettleshade 4 1.964 23/12/2016, 16:25
Son Yorum: Mettleshade
Çözüldü Formda arama yapamiyorum... oztuncla 7 3.054 08/06/2013, 21:53
Son Yorum: oztuncla
Çözüldü Bir fazla tabloda, birden çok veri arama nasıl yapılır. oztuncla 7 3.715 03/06/2013, 21:34
Son Yorum: oztuncla
Çözüldü Açılan site içinde arama yapmak drummers 4 2.064 31/05/2012, 16:02
Son Yorum: drummers
Çözüldü textbox ıcınde arama qnill 3 2.297 05/08/2010, 13:42
Son Yorum: beab05

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.