Listeleme

Veri dediğiniz 6,7,8,9.... sayılarımıdır ? 

 

Zannedersem istediğiniz şu tarz bir şey. integer mı değilmi kontrolünü yağmadım direk olarak textlere rakam girin.

 

http://1drv.ms/1FRmiHg

 

saygılarımla

 

Benim databasemde lisans tablom var. Tablomda ise lisans sayısı, ürünadlarım vs. alanlarım var. Textboxa gireceğim sayılarla tablomdaki verileri eşitleyip listelemek istiyorum. Yani textboxlara 0-50 yazdığım zaman databasemde bu iki sayı arasındaki lisans sayılarını ve bilgilerini listelemek istiyorum. 

Doğru anladıysam tablonuzun içeriği şu şekilde :

TABLO ADI : LISANS

 ID MIKTAR URUN LISANSTURU

2 20 MS-OFFICE OPEN

3 45 WINDOWS 7 OPEN

4 15 WINDOWS 8.1  KUTU

5 2 WINDOWS 2012 SER. OPEN 

 

Dil belirtmediğinizden ve uyarlayacağınızı tahmin ederek  VB.NET örneği veriyorum. 

Basit olduğu için ben bir ListView Control kullandım. siz istediğinizi kullanabilirsiniz.

 

        ListView.Columns.Add("SIRA NO", 70, HorizontalAlignment.Left)

        ListView.Columns.Add("ADET", 70, HorizontalAlignment.Left)

        ListView.Columns.Add("URUN", 140, HorizontalAlignment.Left)

        ListView.Columns.Add("LISANS TURU", 150, HorizontalAlignment.Left)

        Dim sql As String = ""

 

Dim sql_server_ip As String = "192.168.1.200"  ' SERVER IP ADRESINIZ

        Dim sql_USER As String = "sa"  ' SQL user

        Dim sql_pass As String = "sifre"  ' SQL sifresi

        Dim sql_data_base As String = "TEST_DATA"  ' DATABASE ADI

        Dim SqlConnection As String =  "server=" & sql_server_ip & ";uid=" & sql_user & ";pwd=" & sql_pass & ";database=" & sql_data_base

        Dim i As Integer = 0

        ListView.Items.Clear()

        Dim ekle(4) As String

        Dim itm As ListViewItem

        Using Con As New SqlClient.SqlConnection(SqlConnection)

            Con.Open()

            sql = "SELECT MIKTAR, URUN, LISANTURU "

            sql = sql & " FROM LISANS  "

            sql = sql & " WHERE ADET > ' " & TEXT1.text  & " ' AND ADET < ' " & TEXT2.TEXT & " ' ORDER BY ADET "

            Using Com5 As New SqlCommand(sql, Con5)

                Using RDR5 = Com5.ExecuteReader()

                    Do While RDR5.Read

                        i = i + 1

                        ekle(0) = i

                        ekle(1) = RDR5("ADET").ToString

                        ekle(2) = RDR5("URUN").ToString

                        ekle(3) = RDR5("LISANSTURU").ToString

                        itm = New ListViewItem(ekle)

                        ListView.Items.Add(itm)

                    Loop

                End Using

            End Using

            Con.Close()

 

        End Using

 

 

Kolaygelsin.

Başarılar.

 

Teşekkür ederim. Asp.net C# kullanıyorum ben

Merhaba , 

Convert Etmeyi denerseniz işinizi görecektir. neticede .net aynı kodlamaya sahip

http://www.developerfusion.com/tools/convert/vb-to-csharp/

saygılarımla