- Katılım
- 19 Mart 2008
- Mesajlar
- 2,154
- Excel Vers. ve Dili
-
Office 2007 Enterprise
Türkçe
Kod:
Sub sorgula()
Set con = CreateObject("adodb.connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=yes"""
Set rs = CreateObject("adodb.recordset")
s = "select * from [Sayfa1$] where not isnull(ADISOYADI)"
If ARAMA1.Text <> "" Then s = s & " and ADISOYADI like '" & UCase(ARAMA1.Text) & "%'"
If ARAMA2.Text <> "" Then s = s & " and TC '" & ARAMA2.Value & "%'"
If ARAMA3.Text <> "" Then s = s & " and ÜNVANI like '" & UCase(ARAMA3) & "%'"
If ARAMA4.Text <> "" Then s = s & " and SİCİL like '" & ARAMA4.Value & "%'"
'XXXXXXXXXXXX
s = s & "order by NO asc" 'desc"ADISOYADI
'XXXXXXXXXXXX
rs.Open s, con, 1, 1
With ListView1
.ListItems.Clear
On Local Error Resume Next
If rs.RecordCount > 0 Then
Do While Not rs.EOF
.ListItems.Add , , rs(0).Value
For x = 1 To 4
.ListItems(.ListItems.Count).ListSubItems.Add , , rs(x).Value '
Next x
rs.movenext
Loop
End If
End With
Set rs = Nothing
con.Close: Set con = Nothing
End Sub
Kod:
s = s & "order by ADISOYADI asc"
Kod:
s = s & "order by NO asc"
Son düzenleme: