[dubai.eig]

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


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

في القاعده عندي  شخص وامامه هذا الرقم
----------- -------------- ------- 
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

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

وشكرا