+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مساعده في تصحيح الكود (/showthread.php?tid=28683)
مساعده في تصحيح الكود - dubai.eig - 19-02-19
السلام عليكم ورحمة الله
اريد ابحث بين رقمين
يعني مثلا
في القاعده عندي شخص وامامه هذا الرقم
----------- -------------- -------
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افيدوني بارك الله فيكم
وشكرا
RE: مساعده في تصحيح الكود - عبد العزيز البسكري - 19-02-19
جرب أخي الكريم حذف علامات التنصيص من الارقام
RE: مساعده في تصحيح الكود - Fransesco - 20-02-19
مرحبااا ممكن مساعده
RE: مساعده في تصحيح الكود - sendbad100 - 20-02-19
(20-02-19, 02:27 AM)Fransesco كتب : مرحبااا ممكن مساعده
حياك اخي الكريم
ضع سؤالك في قسم الاسئلة
[b]كي يطلع عليه الاعضاء
[/b]
[/b]
والذي لديه الحل سياتيك به
باذن الله
------------------------------
[b]ما وجدنا هنا لا لمساعدت بعضنا البعض[/b]
[b]والاستفادة من بعض[/b]
RE: مساعده في تصحيح الكود - elgokr - 20-02-19
وعليكم السلام ورحمة الله وبركاته
مرحباً اخى الفاضل بما ان البحث بين رقمين وتطابق الارقام فيفضل جعل الاستعلام بهذا الشكل
كود :
select * FROM BKDXclust WHERE [freq] >= 14111 and [freq] <= 14200بكده سيقوم باظهار كل من هم بين الرقمين والتطابق الارقام ايضاً
تحياتى لك
وتمنياتى لك التوفيق