دخول

**dubai.eig** · 19-02-19, 02:35 PM

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

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

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

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

وشكرا

**عبد العزيز البسكري** · 19-02-19, 02:51 PM

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

**Fransesco** · 20-02-19, 02:27 AM

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

**sendbad100** · 20-02-19, 03:42 AM

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

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

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

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

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

باذن الله

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

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

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

**elgokr** · 20-02-19, 05:48 PM

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

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

كود :

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

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

تحياتى لك

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

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	ما هو الخطاء في الكود ProgressBar1	Mostafa201255411	1	197	26-11-25, 08:19 PM آخر رد: asmarsou
	[VB.NET] مساعدة تعديل على الكود	ZEEN4ZEEN	2	218	08-10-25, 02:20 PM آخر رد: salamandal
	[كود] تصحيح الخطاء في الكود	محمد مسافر	2	1,053	28-08-25, 09:13 AM آخر رد: محمد مسافر
	[كود] تصحيح الخطاء في الكود	محمد مسافر	0	847	27-08-25, 04:05 PM آخر رد: محمد مسافر
	ما هو الخطأ فى هذا الكود	خالد كامل1	10	1,187	28-05-25, 09:16 PM آخر رد: خالد كامل1
	ارجو تعديل الكود بواستطة الاجراء المخزن	new_programer	3	680	03-04-25, 02:44 PM آخر رد: princelovelorn
	مساعدة في تحويل الكود من فيجوال بسيك 6 الى فيجوال دوت نت	سيد أحمد	5	823	23-03-25, 10:54 PM آخر رد: سيد أحمد
	ارجو تعديل الكود جلب البيانات عن طريق اجراء مخزن - مرفق مثال	new_programer	0	624	05-02-25, 01:51 AM آخر رد: new_programer
	ارجو تقيم الكود المرفق - جلب اعلي رقم لتسلسل نصي للباركود	new_programer	4	604	30-01-25, 08:26 AM آخر رد: new_programer
	تصحيح الأخطاء التابعة للموديل	أحمد فتح الرحمن	1	331	28-01-25, 11:25 PM آخر رد: أحمد فتح الرحمن