listview finditem

[emrexcel123]

arkadaşlar ve üstadlar selamlar
1- listview nesnesi üzerinde herhangi bir kolonda yer alan metni arama yaptırıp daha sonra seçilmesi yapılabilir mi ?
2- listview üzerinde klavye ile hangi tuşa basarsanız ilk kolonda otomatik arama yapmaktadır.bunu herhangi bir kolon için nasıl yapabiliriz ?
Not : Forumda arama yaptım fakat örnek bulamadım...

 

[emrexcel123]

dostlar ve arkadaşlar selamlar
elinizde listview finditem ile ilgili link varsa da olabilir.paylaşırsanız sevinirim...

 

[Zeki Gürsoy]

dostlar ve arkadaşlar selamlar
elinizde listview finditem ile ilgili link varsa da olabilir.paylaşırsanız sevinirim...

http://msdn2.microsoft.com/en-us/library/aa443432(VS.60).aspx

Örneği,

http://msdn2.microsoft.com/en-us/library/aa443437(VS.60).aspx

 

[emrexcel123]

sn anemos üstadım çok sağolun kendime göre revize ettim tamamlanınca paylaşıma sunacağım.2.sorum için çözüm yolu olarak fikir verebilir misiniz ?
(ek bir soru olarak,sizin diğer çalışmalarınızı da inceledim fakat SQL Server üzerinden excel e değilde listview üzerine veriler nasıl aktarıldığını anlayamadım bir örnek verebilirseniz sevinirim)
çok teşekkürler ii akşamlar üstadım

 

[hsayar]

valla bende anlamadım ama spreadsheete aktamayı öğrendim

 

[Zeki Gürsoy]

2. sorunuz için kısa bir çözüm yoktur malesef. Ancak finditem ile istenen sütunda arama yapılabildiğini biliyoruz. Burdan yola çıkarak, Listview "KeyDown" veya "KeyPress" olayı altında tuş değerine göre arama yaptırırıp satırı seçebiliriz. Hangi sütunda aranacağını baştan belirlemelisiniz.

SQL Server' dan açılan Recordset de yine döngü ile Listview nesnesine aktarılır. Grid nesnesinde olduğu gibi "Set DataGrid1.DataSource = Recordset" özelliği olmadığından döngü kullanmak zorundayız.
(Bahsettiğiniz SQL başlığı hangisiydi hatırlayamadım bu arada.)

 

[hsayar]

hocam datagridli bir örnek eklermisiniz benim amacım verileri salt okunur görmek spreedshet ile alıyorum ama döngüde aç kapa oluyor ve userform initalize ile 5 connection 11 record set devreye giriyor ve buda zaman aşımınamı yol açıyor ve bazı recordsetler boş dönüyor

 

[emrexcel123]

sn anemos üstadım birkaç örnek verebilirseniz kendime göre revize edebilirim.yardımlarınız için çok teşekkür ederim.iyi çalışmalar...

 

[Zeki Gürsoy]

Listview veri alma örneği,

Private Sub UserForm_Initialize()
 
Dim Cn As Object, Rs As Object, Litem As ListItem
Set Cn = CreateObject("ADODB.Connection")
 
Cn.Open _
"Driver={Microsoft Excel Driver (*.xls)};DBQ=" & _
    ThisWorkbook.FullName
 
Set Rs = Cn.Execute( _
"SELECT [KULLANICI ADI], [RÜTBE] FROM [Sayfa1$A1:B65536]")
 
    With ListView1
        .FullRowSelect = True
        .Gridlines = True
        .LabelEdit = lvwManual
        .View = lvwReport
 
        .ColumnHeaders.Add , , "KULLANICI ADI", 200
        .ColumnHeaders.Add , , "RÜTBE", 100
 
        While Not Rs.EOF
            Set Litem = .ListItems.Add(, , Rs(0))
            Litem.SubItems(1) = Rs(1)
 
            Rs.movenext
        Wend
 
    End With
 
Rs.Close
Cn.Close
 
Set Rs = Nothing
Set Cn = Nothing
Set Litem = Nothing
End Sub

DataGrid veri alma örneği,

Private Cn As Object, Rs As Object
 
Private Sub UserForm_Initialize()
 
Set Cn = CreateObject("ADODB.Connection")
Set Rs = CreateObject("ADODB.Recordset")
 
Cn.Open _
"Driver={Microsoft Excel Driver (*.xls)};DBQ=" & _
    ThisWorkbook.FullName
 
    With Rs
        .CursorLocation = 3 'adUseClient
        .Open _
            "SELECT [KULLANICI ADI], [RÜTBE] " & _
            "FROM [Sayfa1$A1:B65536]", Cn
    End With
 
    Set DataGrid1.DataSource = Rs
 
End Sub
 
Private Sub UserForm_Terminate()
Set DataGrid1.DataSource = Nothing
 
Rs.Close
Cn.Close
 
Set Rs = Nothing
Set Cn = Nothing
End Sub

 

[emrexcel123]

sn anemos hocam aradığım tam olarak bu, size minnettarım.yalnız bu bağlantıyı SQL Server üzerinden nasıl yapabiliriz.birçok deneme yapmama rağmen bir türlü hatadan kurtulamadım.
Hata kodu = '2147467259'-Run-time error
Örnek :
Driver = SQL Server
Server = Deneme
UID = XX
Parola = XX
Database = Server.Deneme
ve select deyimlerini de bu şekilde nasıl hazırlayabilirim.yardımcı olursanız minnettar kalırım.çok sağolun iyi çalışmalar...

 

[Zeki Gürsoy]

"SELECT" deyimi her veritabanında aynıdır. Anladığım kadarıyla "ConnectionString" te sorun yaşıyorsunuz. M$ SQL Server kullanmadığım için size güzel bir kaynak adres veriyorum.
Burada her veritabanının "ConnectionString" dizimini bulabilirsiniz.

www.connectionstrings.com

 

[emrexcel123]

hocam ne diyebilirim ki hakkınızı helal edin vallahi en büyük isteğimdi diyebilirim çok çok minnettarım.sizi ayakta alkışlamak isterim
:bravo::bravo::bravo::bravo::bravo:

 

[Zeki Gürsoy]

Sağolun, çalışmalarınızda başarılar dilerim...

 

[emrexcel123]

çok sağolun sn anemos son olarak ufak bir rica da bulunsam bana kızar mısınız
Rs deyimlerinde listview kolon başlıklarını Rs(2) daki başlık şeklinde ayarlama şansımız varmıdır iyi çalışmalar...

 

[Zeki Gürsoy]

Tam anlayamadım, aşağıdaki gibi mi?

.ColumnHeaders.Add , , Rs(0).Name, 200

 

[emrexcel123]

evet hocam teşekkürler peki bu RS deyiminin diğer özellikleri nelerdir ?

 

[Zeki Gürsoy]

ADO' yu referans ile eklerseniz, "." kullanıldığında tüm özelliklerini görebilirsiniz.

Rs.Fields, Rs.Fields(0).Name gibi.

 

[emrexcel123]

peki hocam bu bağlanma olaylarındaki adımları açıklayarak anlatabilme şansınız varmı Rs deyimi ADODB.Connection oluşturma vs. nasıl yapılır...