منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله

اريد ابحث بين رقمين
يعني مثلا

في القاعده عندي شخص وامامه هذا الرقم
----------- -------------- -------
id   ------- 1
naem  ------- ail
  freq  ------- 14200

وشخص اخر

----------- -------------- -------
id   ------- 2
naem  ------- ahmed
  freq  ------- 14150

اريد ابحث ما بين
'14111' AND '14350'

لتطلع لي النتيجه

ail
ahmed

الكود اللي عندي كذا

كود :

     If Settings.m20ssb = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '14111' AND '14350' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

ولاكن لا يعمل

هل طريقه البحث صحيحه

هذا الكود كامل

كود :

       Dim con As SQLiteConnection = New SQLiteConnection(String.Format("Data Source= C:\LOG\DB{0}.s3db; version=3;Pooling=True;Synchronous=Off;journal mode=Memory", strcallbk))

        con.Open()

        If Settings.m6cw = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '5000' AND '5010' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m6ssb = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '5020' AND '5400' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m10cw = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '28000' AND '28069' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m10Data = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '28070' AND '28140' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m10ssb = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '28150' AND '29700' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m12cw = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '24890' AND '24914' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m12Data = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '24915' AND '24929' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m12ssb = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '24930' AND '24990' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m15cw = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '21000' AND '21069' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m15Data = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '21070' AND '21099' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m15ssb = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '21100' AND '21450' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m17cw = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '18068' AND '18099' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m17Data = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '18100' AND '18109' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m17ssb = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '18110' AND '18168' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m20cw = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '14000' AND '14069' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m20Data = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '14070' AND '14110' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m20ssb = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '14111' AND '14350' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m40cw = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '7000' AND '7034' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m40Data = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '7035' AND '7078' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m40ssb = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '7079' AND '7300' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m80cw = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '3500' AND '3569' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m80Data = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '3570' AND '3619' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m80ssb = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '3620' AND '3900' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m160cw = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '1800' AND '1829' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m160Data = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '1830' AND '1844' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m160ssb = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '1845' AND '2000' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m30cw = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '10100' AND '10130' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con = Nothing

        End If

        If Settings.m30Data = "Y" Then

            Dim cmd As SQLiteCommand = New SQLiteCommand("select * FROM BKDXclust WHERE [freq] BETWEEN '10131' AND '10150' order by utctime DESC", con)

            Dim myDA As SQLiteDataAdapter = New SQLiteDataAdapter(cmd)

            Dim myDataSet As DataSet = New DataSet()

            myDA.Fill(myDataSet, "BKDXclust")

            DataGridView1.DataSource = myDataSet.Tables("BKDXclust").DefaultView

            SettingGridColumns()

            con.Close()

            con = Nothing

        End If

افيدوني بارك الله فيكم

وشكرا

جرب أخي الكريم حذف علامات التنصيص من الارقام

مرحبااا ممكن مساعده

(20-02-19, 02:27 AM)Fransesco كتب : [ -> ]مرحبااا ممكن مساعده

حياك اخي الكريم

ضع سؤالك في قسم الاسئلة

[b]كي يطلع عليه الاعضاء
[/b]

والذي لديه الحل سياتيك به

باذن الله

------------------------------

[b]ما وجدنا هنا لا لمساعدت بعضنا البعض[/b]

[b]والاستفادة من بعض[/b]

وعليكم السلام ورحمة الله وبركاته

مرحباً اخى الفاضل بما ان البحث بين رقمين وتطابق الارقام فيفضل جعل الاستعلام بهذا الشكل

كود :

select * FROM BKDXclust WHERE [freq] >= 14111 and  [freq] <= 14200

بكده سيقوم باظهار كل من هم بين الرقمين والتطابق الارقام ايضاً

تحياتى لك

وتمنياتى لك التوفيق

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

dubai.eig

عبد العزيز البسكري

Fransesco

sendbad100

elgokr