+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=23034)
استفسار :- بخصوص البحث في قاعدة البيانات - dubai.eig - 23-12-17
السلام عليكم ورحمة الله
عندي فكرة احترة في كيف اكتبه الكود الخاص بها
عندي قاعدة بيانات فيها
id
name
age
ومثلا
id --- 1
name --- ahmed
age--- 30
id --- 1
name --- ali
age---
اريد كود يبحث في القاعدة عن الاسم
واذا وجد الاسم موجود -- يشوف تيبل ال age مكتوب عمر الشخص او لا
اذا موجود عمر الشخص يحطه واذا موب موجود العمر يطلع لي مسج
مثال
كود :
Dim conn1 As New SQLiteConnection(String.Format("Data Source= {0}\BK\DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))
conn1.Open()
Dim cmd11cmd2sxcsxz As New SQLiteCommand(String.Format("SELECT * FROM DB{0} WHERE name= @name", strc), conn1)
cmd11cmd2sxcsxz.Parameters.AddWithValue("name", name .Text)
Dim rowCount11cmd2sxcsxz As Integer = Convert.ToInt32(cmd11cmd2sxcsxz.ExecuteScalar())
If rowCount11cmd2sxcsxz <> 0 Then
MsgBox("age ok")
Else
MsgBox("age no")
End Ifوشكرا لكم بارك الله فيكم
RE: استفسار :- بخصوص البحث في قاعدة البيانات - طالب برمجة - 23-12-17
هذا تعديل للكود
PHP كود :
Dim conn1 As New SQLiteConnection(String.Format("Data Source= {0}\BK\DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))
conn1.Open()
Dim cmd11cmd2sxcsxz As New SQLiteCommand(String.Format("SELECT age FROM DB{0} WHERE name= @name", strc), conn1)
cmd11cmd2sxcsxz.Parameters.AddWithValue("name", name .Text)
Dim rowCount11cmd2sxcsxz =(cmd11cmd2sxcsxz.ExecuteScalar())
If IsNothing(rowCount11cmd2sxcsxz) Then
MsgBox("nothing")
ElseIf IsDBNull(rowCount11cmd2sxcsxz) Then
MsgBox("age no")
ElseIf Not IsDBNull(rowCount11cmd2sxcsxz) Then
MsgBox("age = " & rowCount11cmd2sxcsxz)
End If
RE: استفسار :- بخصوص البحث في قاعدة البيانات - dubai.eig - 26-12-17
(23-12-17, 02:21 AM)طالب برمجة كتب : هذا تعديل للكود
PHP كود :
Dim conn1 As New SQLiteConnection(String.Format("Data Source= {0}\BK\DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))
conn1.Open()
Dim cmd11cmd2sxcsxz As New SQLiteCommand(String.Format("SELECT age FROM DB{0} WHERE name= @name", strc), conn1)
cmd11cmd2sxcsxz.Parameters.AddWithValue("name", name .Text)
Dim rowCount11cmd2sxcsxz =(cmd11cmd2sxcsxz.ExecuteScalar())
If IsNothing(rowCount11cmd2sxcsxz) Then
MsgBox("nothing")
ElseIf IsDBNull(rowCount11cmd2sxcsxz) Then
MsgBox("age no")
ElseIf Not IsDBNull(rowCount11cmd2sxcsxz) Then
MsgBox("age = " & rowCount11cmd2sxcsxz)
End If
بارك الله فيك
ضبط الامر الحمدالله
واسف على التاخير
بس سؤال كيف اذا بغيت اتاكد من اشياء اخرى غير العمر
مثلا
id --- 1
name --- ali
age---
Birth
Living
اريد اتاكد من
age---
Birth
Living
وشكرا من جديد بارك الله فيك
RE: استفسار :- بخصوص البحث في قاعدة البيانات - طالب برمجة - 26-12-17
غير age الموجود في نص الاستعلام الى اسم الحقل المطلوب
RE: استفسار :- بخصوص البحث في قاعدة البيانات - dubai.eig - 27-12-17
(26-12-17, 09:09 PM)طالب برمجة كتب : غير age الموجود في نص الاستعلام الى اسم الحقل المطلوب
بارك الله فيك
قصدي هل يمكن يكون كذا
كود :
SELECT age ,Birth , Living FROM DB{0} WHERE name= @name"او اعمل استعلام جديد لكل واحد
كود :
Dim conn1 As New SQLiteConnection(String.Format("Data Source= {0}\BK\DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))
conn1.Open()
Dim cmd11cmd2sxcsxz As New SQLiteCommand(String.Format("SELECT age FROM DB{0} WHERE name= @name", strc), conn1)
cmd11cmd2sxcsxz.Parameters.AddWithValue("name", name .Text)
Dim rowCount11cmd2sxcsxz =(cmd11cmd2sxcsxz.ExecuteScalar())
If IsNothing(rowCount11cmd2sxcsxz) Then
MsgBox("nothing")
ElseIf IsDBNull(rowCount11cmd2sxcsxz) Then
MsgBox("age no")
ElseIf Not IsDBNull(rowCount11cmd2sxcsxz) Then
MsgBox("age = " & rowCount11cmd2sxcsxz)
End If
Dim conn1 As New SQLiteConnection(String.Format("Data Source= {0}\BK\DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))
conn1.Open()
Dim cmd11cmd2sxcsxz As New SQLiteCommand(String.Format("SELECT Birth FROM DB{0} WHERE name= @name", strc), conn1)
cmd11cmd2sxcsxz.Parameters.AddWithValue("name", name .Text)
Dim rowCount11cmd2sxcsxz =(cmd11cmd2sxcsxz.ExecuteScalar())
If IsNothing(rowCount11cmd2sxcsxz) Then
MsgBox("nothing")
ElseIf IsDBNull(rowCount11cmd2sxcsxz) Then
MsgBox("Birth no")
ElseIf Not IsDBNull(rowCount11cmd2sxcsxz) Then
MsgBox("Birth = " & rowCount11cmd2sxcsxz)
End If
Dim conn1 As New SQLiteConnection(String.Format("Data Source= {0}\BK\DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))
conn1.Open()
Dim cmd11cmd2sxcsxz As New SQLiteCommand(String.Format("SELECT Living FROM DB{0} WHERE name= @name", strc), conn1)
cmd11cmd2sxcsxz.Parameters.AddWithValue("name", name .Text)
Dim rowCount11cmd2sxcsxz =(cmd11cmd2sxcsxz.ExecuteScalar())
If IsNothing(rowCount11cmd2sxcsxz) Then
MsgBox("nothing")
ElseIf IsDBNull(rowCount11cmd2sxcsxz) Then
MsgBox("Living no")
ElseIf Not IsDBNull(rowCount11cmd2sxcsxz) Then
MsgBox("Living = " & rowCount11cmd2sxcsxz)
End Ifشكرا على وقتك