18-04-2008, 23:13
Merhabalar;
Biraz ADO biraz SQL kullanarak yaptığım örnek, seçenek grubundan artan ya da azalan seçilerek, ilgili alana çift tıklanarak seçilen sıralamaya göre dizilim yapmaktadır. Bu sıralamayı kendi uygulamalarınızda da kullanabilirsiniz sadece modulu kaydediniz..
Kullanımı ise; ilgili alana tıklama,çift tıklama ya da bir düğmenin click kodlarına alttaki kodu yazmanız yeterlidir.
Sondaki "seçenek alanı" opsiyoneldir yani kullanmak zorunda değilsiniz ama bu sefer sadece artan sıralama yapar ve kodu aşağıdaki gibi yazmanız gerekir;
Biraz ADO biraz SQL kullanarak yaptığım örnek, seçenek grubundan artan ya da azalan seçilerek, ilgili alana çift tıklanarak seçilen sıralamaya göre dizilim yapmaktadır. Bu sıralamayı kendi uygulamalarınızda da kullanabilirsiniz sadece modulu kaydediniz..
Visual Basic
- Public Function beab(alanismi As String, bbtable As String, formismi As Form, Optional a As Integer) As String
- '------------------------
- 'beab05
- 'www.Access-Sql.com
- '18.04.2008
- '------------------------
- Dim rs As ADODB.Recordset
- Set cn = CurrentProject.Connection
- Set rs = New ADODB.Recordset
- Dim bbsql As String
-
- If a = 2 Then
- bbsql = "select *, " & alanismi & " from " & bbtable & " order by " & alanismi & " desc;"
- Else
- bbsql = "select *, " & alanismi & " from " & bbtable & " order by " & alanismi
- End If
- rs.Open bbsql, cn, adOpenKeyset, adLockOptimistic
- Set formismi.Recordset = rs
- Do Until rs.EOF
-
- rs.MoveNext
- Loop
-
- rs.Close
- Set cn = Nothing
-
- End Function
Kullanımı ise; ilgili alana tıklama,çift tıklama ya da bir düğmenin click kodlarına alttaki kodu yazmanız yeterlidir.
Visual Basic
- Call beab("[alan ismi]", "[tablo/sorgu ismi]", Me, Me.[seçenek alanı])
Sondaki "seçenek alanı" opsiyoneldir yani kullanmak zorunda değilsiniz ama bu sefer sadece artan sıralama yapar ve kodu aşağıdaki gibi yazmanız gerekir;
Visual Basic
- Call beab("[alan ismi]", "[tablo/sorgu ismi]", Me)
Javascript
- this.setState({sign:"Here comes the sun...."})
